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