Programa de ventas

[epenor]

jejeje, ok muchachos suave , quizas no hice un buen plateamiento además no he pedido nada de inventario o compras. Reconosco que no es facil pedir el trabajo de programacion, hice este post por si alguien tenian algo de codigo sencillo para guiarme porque tengo que hacerle login, controles de acceso,validaciones y permisos para los usuarios. El problema es que caresco de tiempo y queria ver si alguien tenia algo hecho para asi ahorrarme tiempo. El programa de caral me ha servido bastante.

Creo que mejor continuaré dandole seguimiento a uno que estaba haciendo pero tengo dificultares en la parte de ventas, porque los DBGrid no me permiten adicionarles registro a menos que estos no sean leidos desde una tabla. Quiero un control que me permita añadir y eleminar items del detalle de factura para luego ser vaciados en las tablas de factura.

Por el momento iré trabajando y luego les traigo mis dudas.

[[Caral]]

Hola
Creo que el que esta en el ftp del club es el programa completo.
Este que pongo aquí es el Tutorial, es un programa completo pero mas básico.
Creo que también esta en el wiki del club.
Este tiene login, base de datos access, se conecta por ini, etc...
Es lo mas sencillo que tengo, espero te sirva.
Saludos
PD: En pocos días lo retiro de aquí por falta de espacio, cualquier interés adicional buscarlo en el wiki.

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

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