No corre

[[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)

[[Bicho]]

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 //(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 begin//(4)
        ShowMessage('La factura Nº'+' '+TxtNumero.Text+' '+'ya fue cobrada!!!');
        (Sender as TDBEdit).SelectAll;
      end;
    end
    Else begin//(3)
      ShowMessage('Factura no encontrada. Verifique el Número de la misma.');
      (Sender as TDBEdit).SelectAll;
    end; //(3)
  end; //(2)
end; //(1)

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

[Ñuño Martínez]

Empezado por Bicho

La verdad es que yo no iba por lo que había escrito Ñuño, pero en fin...

Paz hermanos.

Ciertamente, hoy no debí salir de casa...

[silviodp]

Bueno muchas gracias, lo voy a probar...
Disculpen las molestias ocasionadas no fue mi intención, por ahi con 500 mensajes aprendo, gracias a la gente perfecta yo puedo aprender.
Saludos.-

[[kuan-yiu]]

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