|
Error en delphi al agregar una porción de código
Saludos amigos, espero me puedan ayudar a continuación les muestro un código que adicione a un botón de una aplicación que estoy desarrollando, la cuestión es que al agregar dicho código la aplicación me muestra una venta tipo messagebox pero sin descripción alguna y no me ejecuta las instrucciones que debería realizar.
este el código del botón:
AcumuladoVentas;
ACUMULADO:=StrToFloat(lbAcumulado.Caption);
MONTOTOTAL:=StrToFloat(lbMtoFac.Caption);
If (ACUMULADO+MONTOTOTAL) <= CONFIG.MtoMaxZ Then Imprimir:=True;
If (ACUMULADO+MONTOTOTAL) > CONFIG.MtoMaxZ Then Begin
Application.MessageBox(Pchar(Documento + lbnumFac.Caption + ' no pódra ser impreso porque al acumularse sobrepasa limite de monto
para un Z.' + #13 + 'Ejecute un reporte Z para continuar con las operaciones'),'INFORMACIÓN', MB_OK OR MB_ICONINFORMATION);
DelLineasCmdNotPrinted;
UpdateDocNoPrint;
BuscarDoc;
End;
Todo funciona bien hasta la cuarta instrucción pero al agregar el código resaltado me muestra una ventana con lo que supongo es un error, el error lo pueden ver en el archivo adjunto,
para seguir con el desarrollo documente ese código pero es necesario que tenga dicha validación para el buen funcionamiento del programa, espero me puedan dar luz con esto, de antemano muchas gracias
|