Todo son maneras de trabajar más cómodamente, yo además de indentar el código suelo colocar los begins en la misma linea del condicional, ya que se que el begin esta siempre en la primera linea, pero no donde está el END. Al tenerlo indentado veo claramente el condicional y el END.
Además otra a la que me acostumbro mucho últimamente es a dejar una linea en blanco siempre antes de un condicional o de cualquier bloque begin-end. Vease:
Código Delphi
[-]procedure TForm14.DBEdit2KeyPress(Sender: TObject; var Key: Char);
Var
n,m:Variant;
begin
If Key=#13 Then begin ModuloDatos.TblComprobantes.Active:=True;
If ModuloDatos.TblComprobantes.Locate('Numero',TxtNumero.Text,[]) Then begin
If ModuloDatos.TblComprobantes.FieldValues['Estado']<>'P' Then begin m:=ModuloDatos.TblComprobantes.FieldValues['Cod_soc'];
If ModuloDatos.TblSocios.Locate('Cod_soc',m,[]) Then TxtSocio.Text:=m;
n:=ModuloDatos.TblComprobantes.FieldValues['Cod_periodo'];
If ModuloDatos.TblPeriodos.Locate('Cod_periodo',n,[]) Then TxtPeriodo.Text:=n;
TxtImporte.Text:=ModuloDatos.TblComprobantes.FieldValues['Importe'];
Confirmar.SetFocus
end
Else begin ShowMessage('La factura Nº'+' '+TxtNumero.Text+' '+'ya fue cobrada!!!');
(Sender as TDBEdit).SelectAll;
end;
end
Else begin ShowMessage('Factura no encontrada. Verifique el Número de la misma.');
(Sender as TDBEdit).SelectAll;
end; end; end;
Cita:
Empezado por casimiro notevi
Cita:
Originalmente Escrito por silviodp
La verdad que ultimamente hay bastante mala onda en el foro!!!!!
¿en qué lo notaste?
¿verdad que algunos no se dan por aludidos?
|
Ahí le has dado.
La verdad es que yo no iba por lo que había escrito Ñuño, pero en fin...
Paz hermanos.
Saludos