No corre

[silviodp]

Hola a todos, alguien puede ver este codigo y decirme como solucionarlo para que se ejecute ya que me da error en el ELSE //(4), y puedo hacerlo andar.

procedure TForm14.DBEdit2KeyPress(Sender: TObject; var Key: Char);
Var
 n,m:Variant;
begin //(1)
If Key=#13 Then
 begin //(2)
  ModuloDatos.TblComprobantes.Active:=True;
  If ModuloDatos.TblComprobantes.Locate('Numero',TxtNumero.Text,[]) Then
   begin //(3)
    If ModuloDatos.TblComprobantes.FieldValues['Estado']<>'P' Then
     begin //(4)
       m:=ModuloDatos.TblComprobantes.FieldValues['Cod_soc'];
       If ModuloDatos.TblSocios.Locate('Cod_soc',m,[]) Then
        begin
         TxtSocio.Text:=m;
       end;
       n:=ModuloDatos.TblComprobantes.FieldValues['Cod_periodo'];
       If ModuloDatos.TblPeriodos.Locate('Cod_periodo',n,[]) Then
        begin
         TxtPeriodo.Text:=n;
       end;
       TxtImporte.Text:=ModuloDatos.TblComprobantes.FieldValues['Importe'];
       Confirmar.SetFocus
     Else //(4)
      begin
       ShowMessage('La factura Nº'+' '+TxtNumero.Text+' '+'ya fue cobrada!!!');
       (Sender as TDBEdit).SelectAll;
      end
   Else //(3)
    begin
     ShowMessage('Factura no encontrada. Verifique el Número de la misma.');
     (Sender as TDBEdit).SelectAll;
    end; //(3)
 end; //(1)
end;

Muchas gracias, saludos.

Silvio.-

[Neftali [Germán.Estévez]]

Empezado por silviodp

...ya que me da error en el ELSE //(4)

¿Y qué error te da?

[[rcarrillom]]

A primera vista a riego de equivocame, antes del Else //4,falta el end que cierra al begin //4

[silviodp]

Uno de los errores que da es mas o menos: "END expected but ELSE", pero si le pongo el END como sugirio rcarrillom, me da otro error ya probe agregando END en todas partes y no hay forma que funcione...

[[Bicho]]

Hola, parece que está claro,

Cuenta los BEGIN que hay en la función (8) y los END que has puesto (6), te faltan 2.
Prueba a indentar el código para meter los bloques begin-end unos dentro de otros para poder separarlos y tenerlos más claro visiblemente y no te ocurrirá este tipo de errores, que por otra parte es muy común en tipo de código como el que has puesto, con multitud de condiciones.

Ej:

Código Delphi [-]
If ModuloDatos.TblComprobantes.FieldValues['Estado']<>'P' Then
begin //(4)
     m:=ModuloDatos.TblComprobantes.FieldValues['Cod_soc'];
     If ModuloDatos.TblSocios.Locate('Cod_soc',m,[]) Then
     begin
          TxtSocio.Text:=m;
     end;
     n:=ModuloDatos.TblComprobantes.FieldValues['Cod_periodo'];
     If ModuloDatos.TblPeriodos.Locate('Cod_periodo',n,[]) Then
     begin
          TxtPeriodo.Text:=n;
     end;
     TxtImporte.Text:=ModuloDatos.TblComprobantes.FieldValues['Importe'];
     Confirmar.SetFocus;
end;

Espero te sirva.

Saludos

[Albano]

Empezado por Bicho

Prueba a indentar el código para meter los bloques begin-end unos dentro de otros para poder separarlos y tenerlos más claro visiblemente y no te ocurrirá este tipo de errores

La verdad es que necesitas un poco mas de orden en la manera de redactar tu codigo y tus preguntas en el foro silviodp y con 200 mensajes debes de tener la experiencia de que "mientras mas detalles des en tus hilos, mas rápido obtienes respuesta".
Aqui ya no te debe marcar el error que mencionas.

Código Delphi [-]
procedure TForm14.DBEdit2KeyPress(Sender: TObject; var Key: Char);
Var
  n,m:Variant;
begin //(1)
  If Key=#13 Then
  begin //(2)
    ModuloDatos.TblComprobantes.Active:=True;
    If ModuloDatos.TblComprobantes.Locate('Numero',TxtNumero.Text,[]) Then
    begin //(3)
      If ModuloDatos.TblComprobantes.FieldValues['Estado']<>'P' Then
      begin //(4)
        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 //(4)
      begin
        ShowMessage('La factura Nº'+' '+TxtNumero.Text+' '+'ya fue cobrada!!!');
        (Sender as TDBEdit).SelectAll;
      end;
    end
    Else //(3)
    begin
      ShowMessage('Factura no encontrada. Verifique el Número de la misma.');
      (Sender as TDBEdit).SelectAll;
    end; //(3)
  end; //(2)
end; //(1)

[[kuan-yiu]]

Te faltan 2 "end", creo que uno antes de cada "else".

[Ñuño Martínez]

Empezado por Neftali

¿Y qué error te da?

Que haya que preguntar esto a un principiante ya es molesto, ¡pero a alguien que ya lleva 200 mensajes en este foro!

Lo siento, pero es que me saca de quicio .

[silviodp]

Bueno a mi tambien me sacaste de quicio la verdad!!!!, si pregunto es porque probe un monton de formas y no funciona, no me queda otra alternativa, de ultima el foro es para que nos ayudemos, sino tenes ganas ni siquiera contestes..., quien te crees que sos????????, no sabia que Bill Gate se hacia llamar Ñuño Martinez...

[silviodp]

Solo queria que vieran el codigo ya que por ahi ven errores en el mismo que no me doy cuenta..., nada mas que eso, igual, gracias.

[[Bicho]]

Jod... comó está la peña últimamente, es que no se puede decir nada a nadie.
Vamos hombre, que estamos en Navidad (casi casi),

Felices fiestas a todos,

Un abrazo