Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-11-2018
alversanz alversanz is offline
Registrado
 
Registrado: nov 2018
Posts: 2
Poder: 0
alversanz Va por buen camino
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
Imágenes Adjuntas
Tipo de Archivo: jpg ventana error delphi.jpg (9,6 KB, 14 visitas)
Responder Con Cita
  #2  
Antiguo 19-11-2018
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Utiliza las etiquetas de código e indenta:
Código Delphi [-]
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;

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.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Agregar Codigo Dinamicamente GunMiNiHo Varios 1 05-05-2010 10:53:06
Agregar componentes desde codigo delphi 2010 iktwo Varios 2 04-01-2010 16:42:10
ocultar una porción del código dario1406 Internet 8 15-01-2009 23:07:22
Error al agregar el componente HTTPGet en Delphi 2009, ayuda por favor Black_Ocean Varios 2 23-09-2008 21:40:49
Guardar porción de un TBitmap Sr_Sombrero Gráficos 1 21-09-2005 21:30:05


La franja horaria es GMT +2. Ahora son las 12:45:59.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi