45 replies to this topic

[egostar]

Lo que veo es que por un lado está la validación a nivel dataset (Fields[]) y otra a nivel data-ware.... creo que allí­ está el problema: no se ha volcado el dato.

Saludos,

Efectivamente amigo Delphius, el problema es que se está comparando el DataSet cuando se debe de comparar los DBEdit, tal como lo he planteado en mi código.

Salud OS

Debo reconocer que el viejito Caral tení­a razón, mas sabe el diablo por viejo que por diablo

El código de validación tiene que estar en el ultimo paso, revisando todos los dbedits, así­ si se sabrá si hay algún dbedit vací­o.

[enecumene]

Hola

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for I := 0 to ComponentCount - 1 do begin
      if (Components[i] is TDBEdit) then begin
          if TDBEdit(Components[i]).Text = '' then
             showmessage(TDBEdit(Components[i]).name+' esta vacio');
      end;
  end;
end;

Salud OS

Hola Eliseo, ése código ya lo habí­a intentado pero la cuestión es que ahí­ estamos obligando a que todos los DBEdits sean obligatorios, o ¿no?.

Hola, debo admitir que cuando hice mi sugerencia no ha habí­a probado pero intuí­a que deberí­a funcionar.

Lo que me pregunto es ¿cómo es posible que algo del foco de un DBEdit afecte? ¡Si se ha presionado un botón es porque el foco están en él!

A lo mejor algo del manejo de los DBEdits se me escapa... es que como no los uso y prefiero las consultas SQL...

Me gustarí­a saber que más hace ese botón en el que ejecutas el método CamposVacios.

No se... hay algo que no veo

Saludos,

Hola Delphius, la cuestión es que no estoy usando TButton sino TImage con el evento OnClick, ya sabes que esos componentes no tienen focos. Ahora, no creo que tenga que ver a qué nivel ya sea Dataset o Dataware, total cada uno í­ntimamente ligado entre ellos, el procedimiento funciona perfectamente, sólo tengo el problema del foco.

Carlos, en estos casos no me vale usar TEdits ya que estoy tratando de evitar en lo más mí­nimo de usar demasiada lí­nea de código .

Saludos.

[cHackAll]

...ahí­ estamos obligando a que todos los DBEdits sean obligatorios...

delphi

// . . .
    if Components[i] is TDBEdit then 
      with TDBEdit(Components[i]) do
        if (Text = '') and (Tag = 666) then
          ShowMessage(Name + ' esta vacio');

[enecumene]

...ahí­ estamos obligando a que todos los DBEdits sean obligatorios...

delphi

// . . .
    if Components[i] is TDBEdit then 
      with TDBEdit(Components[i]) do
        if (Text = '') and (Tag = 666) then
          ShowMessage(Name + ' esta vacio');

Ah vaya, eso está mejor, nunca se me hubiese ocurrido el uso de TAGs, aunque no sabí­a para que se usan, pero ya veo para qué sirven. Gracias cHackAll

Saludos.

[cHackAll]

...Ah vaya, eso está mejor, nunca se me hubiese ocurrido el uso de TAGs, aunque no sabí­a para que se usan, pero ya veo para qué sirven. Gracias CHacKall

Saludos.

1. el code es de egostar, nomas le agrege una condicion.
2. Tag es un "Flag", "Dummy", "i", "Ptr", etc... se puede usar como a uno mejor le parezca (siempre documentando)!
3. es "cHackAll" cabr....

[enecumene]

...3. es "cHackAll" cabr....

Uy, qué sensible 

Saludos.

[cHackAll]

...3. es "cHackAll" cabr....

Uy, qué sensible 

Saludos.

Pues claro compadre... yo no "pronuncio" enecumeme o memecumeme

Disculpen por desvirtuar el hilo :$

[eduarcol]

jajajaja memecumene, pilas que cHackAll se desperto revolucionario jejejeje

[enecumene]

Si él es así­ con una simple "A" Mayúscula, pues no sé como será en lo demás, , hostia, tranquilo bro

[cHackAll]

Si él es así­ con una simple "A" Mayúscula, pues no sé como será en lo demás, , hostia, tranquilo bro

:$ herí­ tus sentimientos?

Mi7pxil6lhY

[Delphius]

Y si no quieres emplear el simple TAG, tal vez esto si pueda funcionar:

delphi

if Components[i] is TDBEdit 
   then 
      with TDBEdit(Components[i]) do
        if (Text = '') and Field.Required then
          ShowMessage(Name + ' esta vacio');

Aviso: está hecho al vuelo, pero creo que el DBEdit tiene la propiedad Field que apunta al TField indicado. La idea es que si dicho campo es requerido y el DBEdit está vacio... pues lo avisamos.

No lo he probado. Lo digo de memoria.

Saludos,

[enecumene]

Acabo de confirmar que los TDBEdits sí­ tienen la propiedad Field, Field.Required y Field.DisplayName, más tarde te comento como me va.

Saludos.

[enecumene]

Bueno adaptando a las sugerencias de Egostar y Delphius el asunto ha quedado así­:

delphi

procedure TFMantenimiento.CamposVacios(Tab: TTabsheet);
var nIdx: Integer;
begin
for nIdx := 0 to Tab.ComponentCount -1 do begin
      if (Components[nIdx] is TDBEdit) then begin
          if (TDBEdit(Components[nIdx]).Text = '') And (TDBEdit(Components[nIdx]).Field.Required) then
             showmessage(TDBEdit(Components[nIdx]).Field.DisplayName+' esta vacio');
             Abort;
      end;
end;
    ShowMessage('Todos están llenos');
end;

Pues me indica que todos están llenos

[egostar]

Hey amigo enecumene no jodas, caiste en una de primaria

Estas dejando Abort fuera de la rutina de comparación, por lo que en el primer DBEdit se aborta el proceso

delphi

procedure TForm1.Button1Click(Sender: TObject);
var nIdx: Integer;
begin
for nIdx := 0 to ComponentCount -1 do begin
     if (Components[nIdx] is TDBEdit) then begin
         if (TDBEdit(Components[nIdx]).Text = '') And (TDBEdit(Components[nIdx]).Field.Required) then begin
            showmessage(TDBEdit(Components[nIdx]).Field.DisplayName+' esta vacio');
            Abort; 
         end; // Begin----End
     end;
end;
   ShowMessage('Todos están llenos');
end;

Salud OS

[Caral]

Hola
La verdad es que para mi gusto es mucho codigo.
Lo que yo hago es mas sencillo:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var seguro: Bolean;
begin
      ShowMessage('Acabas de Presionar el boton de actualizacion, CABRON estas seguro?');
      IF seguro = true then
      ShowMessage('Estas REALMENTE Seguro???, Mira que esta en juego tu empleo!!!!!')
      else
      // lo que sea.
end;

Saludos
PD: Piénsalo amigo, te aseguro que funciona

[enecumene]

Pues lo lamento mi estimado pero el efecto es el mismo , me quedé así­:

delphi

procedure TFMantenimiento.CamposVacios(Data: TDatasource);
var nIdx: Integer;
begin
  for nIdx := 0 to Data.DataSet.FieldCount -1 do begin
    if (Data.DataSet.Fields[nIdx].IsNull) And (Data.DataSet.Fields[nIdx].Required = True) then begin
       Showmessage('La Casilla ' +Data.DataSet.Fields[nIdx].DisplayLabel+ ' está vací­a.');
       Data.DataSet.Fields[nIdx].FocusControl;
       Abort;
    end;
  end;
end;

Cuando la vaya a ejecutar hago esto:

delphi

procedure TFMantenimiento.imCrearClick(Sender: TObject);
begin
cliCodigo.SetFocus;
CamposVacios(dsClientes);
end;

Es una chapuza pero me resuelve el problema .

Saludos.

[egostar]

Hola
La verdad es que para mi gusto es mucho codigo.
Lo que yo hago es mas sencillo:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var seguro: Bolean;
begin
      ShowMessage('Acabas de Presionar el boton de actualizacion, CABRON estas seguro?');
      IF seguro = true then
      ShowMessage('Estas REALMENTE Seguro???, Mira que esta en juego tu empleo!!!!!')
      else
      // lo que sea.
end;

Saludos
PD: Piénsalo amigo, te aseguro que funciona

Hey amigo Caral, tu code no funciona, por eso la empresa va de picada

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  if MessageDlg('Acabas de Presionar el boton de actualizacion, CABRON estas seguro?',
     mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
      if MessageDlg('Estas REALMENTE Seguro???, Mira que esta en juego tu empleo!!!!!',
         mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
         ShowMessage('Te lo adverti wey !!!!!');
      end;
  end;
end;

Salud OS

[Caral]

Hola
Ahora me vas a criticar el codigo???.
Te salvas que no trabajas con migo.
Saludos
PD: Lo que quieres es que abra delphi y lo piense, verdad.....

[egostar]

Hola
Ahora me vas a criticar el codigo???.
Te salvas que no trabajas con migo.
Saludos
PD: Lo que quieres es que abra delphi y lo piense, verdad.....

No estarí­a mal que probraras el codigo antes de publicarlo, no seas flojo

Salud OS

[egostar]

Pues lo lamento mi estimado pero el efecto es el mismo , ne quedé así­:

Es una chapuza pero me resuelve el problema .

Me pregunto si en el DataSet le indicaste al campo que debia ser requerido  8-)

Salud OS