Programa de ventas

[[Delphius]]

Empezado por epenor

Muchas gracias caral por tu ayuda. Quisiera saber si el procedimiento que tienes para control de error en el más complete, puedo implementarlo en otra aplicacion similar, y qué modificaciones habría que hacerle al procedimiento.

¿Procedimiento para control de errores? ¿El más completo? ¿Si lo puedes usar en otro lado? ¿Que hay que modificar?
Epenor, con tan poca ayuda de tu parte muy difícil que te ayudemos. Por empezar no indicas sobre que aspecto estás hablando ¿errores en que, donde, cuando, que errores?

Sin conocer a lo que te mencionas va a ser difícil ayudarte. ¡No somos adivinos!

Si estás tan falto de tiempo ¿Porqué en vez de ponernos en la posición de adivinos, no nos dices donde estás teniendo problemas? Lo más adecuado para ti es que expongas tus avances y dudas y a medida que continúas con el trabajo y de allí te podremos ser de ayuda.

Mientras sigas con tu postura de "denme" y de ir por lo fácil no creo que recibas ayuda.
Como te lo han comentado el resto de los compañeros: si quieres ayuda, ayudanos a ayudarte y explícate bien. No se te va a cobrar por las palabras que escribas.

Saludos,

[epenor]

Muy bien Delphi, me refiero a la funcion SysErrorMessageParam(ErrorCode: Integer; Param: string): string; del programa de facturacion de caral.

Segun he visto en el codigo esa funcion captura los errores que puede cometer la persona que opera el sistema y asi evita que la aplicacion "explote". Por ejemplo, si se deja algun Edit vacio que sea not null en la DB y se intenta guardarlo.

No veo ningun procedimiento desde donde se llame la funcion, pero si se refleja su funcionamiento, asi que quieria saber si esa funcion puede ser usada en una aplicacion similar a la de caral, porque me parece una funcion un tangto "generica" (no sé si es el termino correcto) porque no tiene refencias de otras partes del codigo de la aplicacion.

Está dicha funcion enlazada de alguna manera con los try...finaly?

Disculpen mi novatada.

[[Caral]]

Hola
Estos tres funcionan juntos y sirven para llamar a otro programa.
El primero lo que hace es enviar un mensaje de error si detener el programa.

Código Delphi [-]
function SysErrorMessageParam(ErrorCode: Integer; Param: string): string;
var
  Len: Integer;
  Buffer: array[0..255] of Char;
  ArgArray: array[1..1] of PChar;
begin
  ArgArray[1] := PChar(Param);
  Len := FormatMessage(Format_Message_From_System or
    Format_Message_Argument_Array, nil, ErrorCode, 0, Buffer,
    SizeOf(Buffer), @ArgArray);
  while (Len > 0) and (Buffer[Len - 1] in [#0..#32, '.']) do Dec(Len);
  SetString(Result, Buffer, Len);
end;

Código Delphi [-]
function TFMainForm.ExecuteApp(AppName, Params: string): TProcessInformation;
var
  SI: TStartupInfo;
  PI: TProcessInformation;
begin
  FillChar(SI, SizeOf(SI), 0);
  with SI do
  begin
    cb := SizeOf(TStartupInfo);
    dwFlags := StartF_UseShowWindow;
    wShowWindow := sw_ShowNormal;
  end;
  if not CreateProcess(nil, PChar(AppName + ' ' + Params), nil,
           nil, False, 0, nil, nil, SI, PI) then
    raise EExecAppError.Create(SysErrorMessageParam(GetLastError, AppName));
  Result := PI;
end;

Código Delphi [-]
procedure TFMainForm.Launch(AppName, Params: string);
begin
  ExecuteApp(AppName, Params);
end;

Saludos

[[Caral]]

Hola
Aparte de lo dicho en el post anterior.....(revisalo)
Este es un ejemplo de lo que hace dicha funcion, ejecuta el proyect1 y veras lo que sucede.
Saludos

[[Delphius]]

Empezado por epenor

Muy bien Delphi, me refiero a la funcion SysErrorMessageParam(ErrorCode: Integer; Param: string): string; del programa de facturacion de caral.

Segun he visto en el codigo esa funcion captura los errores que puede cometer la persona que opera el sistema y asi evita que la aplicacion "explote". Por ejemplo, si se deja algun Edit vacio que sea not null en la DB y se intenta guardarlo.

No veo ningun procedimiento desde donde se llame la funcion, pero si se refleja su funcionamiento, asi que quieria saber si esa funcion puede ser usada en una aplicacion similar a la de caral, porque me parece una funcion un tangto "generica" (no sé si es el termino correcto) porque no tiene refencias de otras partes del codigo de la aplicacion.

Está dicha funcion enlazada de alguna manera con los try...finaly?

Disculpen mi novatada.

Hola epenor, Creo que estás un tanto confundido... el uso del try-finally es una cosa, lo que hacen esas funciones es otra. Creo que el ejemplo de caral demuestra que es lo que hacen.

No te enojes pero creo que estás enfocando mal tu esfuerzo, no le pongas demasiado detalles al aspecto del manejo de errores. Primeramente asegúrate de cumplir con los objetivos primarios:
1. Que el sistema se logre conectar a la base de datos
2. Que realize las funcionalidades necesarias para responder a los requisitos planteados para el sistema.

Después si se lo puede adornar.

Si sigues analizando aspectos que poco estén relacionados con el verdadero propósito perderás tiempo y además conseguirás únicamente tener una ensalada en el cerebro.

Haz caso a lo que te hemos aconsejado: plantea tus dudas y avances. ¿De que otro modo podremos asesorarte si no nos describes tu situación con los detalles adecuados?

Saludos,

[HombreGordo]

Bueno, ya hace ya algún tiempo hice un programa de ventas, mira como funciona:

• Agregar registros es agregar asientos a la tabla.
• Unas multiplicaciones por ahí (por ejemplo: Cantidad por precio unitario).
• Sumar la columna de los totales.
• Imprimir por el Rave Reports.

No puedo enseñarte el código hecho porque es un trabajo privado, y esto que te dije puede ser fácilmente adivinado solo mirando el programa por encimita, pero si buscas todos los hilos que he hecho en este foro, puedes darte cuenta que todos giran alrededor del proyecto. Y sin mucha explicación te guiarás a la perfección, son unos hilos muy completos. Saludos a todos y gracias a quiénes me han ayudado a lo largo de mi vida en este foro.

[DJerez]

Epenor:
Si te interesa una guia de novato respecto a lo que querés hacer te recomiendo que aunque o tengas tiempo, te des una mirada a otros post referidos a cada aspecto que va a tener el programa.

Hace un tiempito me sucedió lo mismo, Delphius me dió una guía junto con Caral (Naty???) si bien terminé un poco excedido de tiempo el trabajo, me di cuenta que si sos un poco ordenado ni siquiera es necesario bajarte nada desde el FTP.

Si te interesa te puedo pasar parte de lo que terminé haciendo en Delphi7, es un control de stock y ventas. Quizás te sirva de guía. [email protected] Correo+MSN.

Abrazo a todos.

PD: Espero no moleste mi comment al resto de la gente.