Programa de ventas

[[Caral]]

Hola
No se a que parte del programa te refieres, me ayudarías si pones un ejemplo de la parte en cuestión.
Me imagino que debe ser a la conexión con la base de datos, pero no estoy seguro.
Saludos

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