FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
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 |
#2
|
||||
|
||||
Utiliza las etiquetas de código e indenta:
La información que das es bastante parca. Application.MessageBox es la API encargada de esa ventana que dices.otra cosa es que las variables que desconocemos Documento y lbnumFac.Caption tangan algún valor válido y que no contengan ceros. Ten en cuenta que la API MessageBox maneja cadenas ASCIIZ, eso quiere decir que un carácter #0 indica el fin de la cadena lo que supone que si esta al principio, no escribirá nada. Ejecuta paso a paso y controla el valor de las variables. Saludos. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Agregar Codigo Dinamicamente | GunMiNiHo | Varios | 1 | 05-05-2010 09:53:06 |
Agregar componentes desde codigo delphi 2010 | iktwo | Varios | 2 | 04-01-2010 15:42:10 |
ocultar una porción del código | dario1406 | Internet | 8 | 15-01-2009 22:07:22 |
Error al agregar el componente HTTPGet en Delphi 2009, ayuda por favor | Black_Ocean | Varios | 2 | 23-09-2008 20:40:49 |
Guardar porción de un TBitmap | Sr_Sombrero | Gráficos | 1 | 21-09-2005 20:30:05 |
|