Mi programa de facturación paso a paso

[Delphitest]

Muy buenas tardes a tod@s,

siento haber desaparecido durante estos días, pero ya tenía que descansar un poco.

El tema ha sido lo del famoso cálculo de la base imponible, pese a que el código de Caral funcionaba, no me convencía del todo por los errores que saltaban con frecuencia y ademas quería algo automatico, sin tener que pulsar nada.

Al final como era de esperar lo he conseguido con un apaño como este:

Código Delphi [-]
var
  valor: String;
  t: Currency;
  tr,i: integer;
begin
  i:=0;
  t:=0;
  dtmgesatrans.TDesgloseAlbaran.Refresh;
  dtmgesatrans.TAlbaranes.Refresh;
  DTMGesatrans.TDesgloseAlbaran.First;
  tr:= DTMGesatrans.TDesgloseAlbaran.RecordCount;
  if (tr <> 0) then
    begin
      repeat
        i:=i+1;
        valor:= dbgrid1.Fields[9].AsString;
        DTMGesatrans.TdesgloseAlbaran.Next;
        t:= t + strtofloat (valor);
      until i=tr;
        DTMGesatrans.TAlbaranes.Edit;
        DBEdit24.Text := floattostr(t);
        DTMGesatrans.TAlbaranes.Post;
        DTMGesatrans.TDesgloseAlbaran.First;
    end
  else
    showmessage('Este albarán no tiene lineas')
end;

supongo que se entiende bien. Lo que hago es ir sumando el importe lineal linea a linea, teniendo en cuenta que hay pocas casi ni se nota.

Ahora que ya tengo esto sigo para adelante.

Tengo que hacer los presupuestos y las facturas que son casi identicos a los albaranes, supongo que podré copiarlos o algo parecido. Ya probaré pero si hay algun truco y me lo quereis decir pues eso que adelanto.

Ya estan las bases de datos creadas, solo faltan los form y unit.

Robert, revisa lo que hago en FRepartidores por si te puede servir. Ahí añado fotografías a la ficha con un sistema muy sencillo.

Caral, ¿ya pensabas que había tirado la toalla? jejejeje

ha sido un bache en el camino y supongo que vendrán mas, pero mientras me pueda levantar no hay problema

Aqui os dejo lo nuevo

Buen fin de semana a todos