Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-01-2019
jose.ignacio.ve jose.ignacio.ve is offline
Miembro
 
Registrado: sep 2012
Posts: 79
Poder: 13
jose.ignacio.ve Va por buen camino
problema con el dbedit

Hola.
Tengo un problema con un programa, resulta que estoy haciendo un alta de productos, con dbedit y componentes zeos.. el problema es que me deja cargar una única vez el producto, cuando vuelvo a entrar para cargar el dbedit "descripción" no me deja escribir.. revise el dataset y las tablas, las abro antes de mostrar el formulario y al apretar cierro la tabla...
muestro algo de codigo
Código Delphi [-]
procedure TFprincipal.Cargar1Click(Sender: TObject);
begin
       fmodulo.tProducto.Active:=true;
       fmodulo.tProducto.Refresh;
       fmodulo.tProducto.Insert;
       fproducto.modificacion:=false;
       fproducto:=TFProducto.create(self);
       fproducto.ShowModal;
end;
cuando presiono en cargar muestro el formulario fproducto..
Código Delphi [-]
IF(modificacion=true)then
        begin
          fmodulo.tProducto.Active:=true;
          fmodulo.tProducto.Edit;
          modificacion:=false;
        end;
      //validacion de los campo
      if(self.DBECod.Text='')then
        begin
              Application.MessageBox('El campo COD BARRA no puede ser vacio','SISTEMA PUNTO DE VENTA JV',MB_OK+MB_ICONWARNING);
              self.DBECod.SetFocus;
        end
      else
          if(self.DBDesc.Text='')then
            begin
                Application.MessageBox('El campo DESCRIPCION no puede ser vacio','SISTEMA PUNTO DE VENTA JV',MB_OK+MB_ICONWARNING);
              self.DBDesc.SetFocus;
            end
            else
               if(self.DBPrecio.text='')then
                begin
                    Application.MessageBox('El campo PRECIO no puede ser vacio','SISTEMA PUNTO DE VENTA JV',MB_OK+MB_ICONWARNING);
                  self.DBPrecio.SetFocus;
                end
                else
                  if(self.DBDescuento.text='')then
                    begin
                        Application.MessageBox('El campo DESCUENTO no puede ser vacio','SISTEMA PUNTO DE VENTA JV',MB_OK+MB_ICONWARNING);
                      self.DBDescuento.SetFocus;
                    end
                    else //paso toda,s las validaciones necesarias
                      begin
                        fmodulo.tProducto['estado']:='A';
                       fmodulo.tProducto.Post;
                       fmodulo.tProducto.Refresh;
                       fmodulo.tProducto.Close;
    
                       self.Close;
                      end;
end;
cuando presiono guardar verifico los campo y cargo el producto..
pero cuando quiero volver a entrar para cargar otro producto ya no me deja escribir en el campo dbdesc...
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problema con DBEDIT Y DBGRD carlos v.p.l. Tablas planas 4 18-06-2010 03:54:30
Problema al validar DBEdit con ADOQuery mgp2401 Conexión con bases de datos 1 08-01-2010 17:12:39
Problema con dbedit en ventana modal M. FM. OOP 2 22-08-2008 14:59:45
problema con dbedit Ken_Masters Conexión con bases de datos 1 08-11-2006 11:10:18
Problema DBEDIT y ACCESS Rabata Conexión con bases de datos 1 23-10-2003 13:47:34


La franja horaria es GMT +2. Ahora son las 00:56:58.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi