Mi programa de facturación paso a paso

[Robert01]

Hola caral

a ver si me podés ayudar un poquito.
¿como hago para insertar las fotos en una base de datos paradox? Yo uso delphi 6 y con la utilidad de borland database desktop no me sale, o no entiendo como es.

Además probé el código de delphitest con base de datos paradox y tengo errores con la tabla desgloseAlbaranes, con el campo calculado Importe lineal que puso delphitest para ser más precisos.

saludos

[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

[[Caral]]

Hola Robert01
Estuve viendo el database desktop y en paradox al igual que en access hay un campo memo, en este campo es en el que yo guardo las fotos, creo que no deberias tener problemas en guardarlas tu tampoco, de todos modos no conozco mucho de paradox.
Con respecto al campo calculado de nuestro amigo, efectivamente da error, el ultimo envio que hice, ya hace el calculo bien, revisalo.
No se como va tu proyecto, seria bueno verlo, tal vez pueda darte una mano, pero necesito el archivo conpleto con la base de datos para enterarme.
Por lo menos tu y yo trabajamos con delphi 6 y esto crea menos conflictos de codigo.
Es importante para mi enterarme del procedimiento matematico que se quiere realizar, me refiero a saber que campo hay que sumar, restar u otro y en donde se quiere el resultado final, si solo mostrarlo o grabarlo en alguna tabla, he insistido en esto ya que no se con exactitud que se quiere hacer.
Saludos

[[Caral]]

Hola Delphitest
Bien venido al juego de nuevo ,si ya me extrañaba que tanto entusiasmo inicial se fuera por la borda, claro no serias el primero.
Me alegro que modifiques mi pobre código, a que aprendo algún día.
Saludos

[Delphitest]

Por cierto , no recuerdo quien me facilito un código para el tema de no tener problemas con la base de datos, pues no se que hago mal pero como la base de datos no esté en mismo sitio que la tengo originalmente no hay forma de que funcione.

[[Caral]]

Ya te pasare un codigo para que la tengas donde quieras, incluso en otro ordenador como la tengo yo, pero no hemos ni comenzado, asi que paciencia. , que ya te llegara, es realmente facil de hacer.
Te anticipo que lo hago con un archivo .INI, que es el que localiza la base de datos, pero bueno, te vas de farra tres dias y cuando vuelves lo quieres resulto, pues a trabajar amigo.
Saludos

[[Caral]]

Hola Delphitest
Lo prometido es deuda.
Aqui tienes, con esto puedes poner la base de datos donde quieras, en cualquier directorio.
Hay un archivo tipo ini, que se llama DBDWORK, habrelo para que entiendas, repito la base de datos puede estar en cualquier directorio u ordenador, solo cabias la direccion en este archivo y ya, lo importante es que el ejecutable y el archivo DBDWORK.INI esten en el mismo directorio ya que la direccion la saca de este.
Te envio un archivo leeme, Leelo.
Ademas para entretenerme un poco te hice un login, creando en la tabla un campo usuarios, asi el que no sabe la clave no entra en tu programa, a nivel empresa, esto es muy importante, bueno, es un regalo, por tus vacaciones y la marcha.
Revisa los cambios y el archivo, te va a gustar.
Por lo otro vas muy bien
Aqui te dejo el cambio:
http://rapidshare.com/files/1857508/Gesatrans.zip.html
Saludos

[Robert01]

Caral:
traté de compilar tu código pero me da un error --> "corcon.dcu no encontrado"
Si elimino corba npo aparece el error ese pero hay otro que dice: " Talbaranes field cod_repartidor no encontrado".
Yo tengo instalado corba 4.0.

No se en que me equivoqué que no anda bien.
saludos

[Robert01]

Perdón caral pero no que pasó en mi pc. todo anda perfectamente.

No se como es que apareció un control corba en el formulario...¿ o ejecuté otra cosa?

Estoy pasando la base de datos de access a paradox. En access en fácil poner las imágenes, se usan binarios largos.
Creo que tengo un problema en paradox porque tendría que poder usar Graphics u Ole pero no me sale el cuadro de diálogo para insertar las imágenes.

saludos

[[David]]

Lo que me parece raro es poner una expresión así :

variable = DBEdit1.Text ;

el componente TDBEdit , tiene en su propiedad datasource el enlace a un campo de la base de datos , no seria poner la expresión así :

variable = Ttable1campo1.Value ;

o

variable := Ttable1.FieldByName('campo').AsString;

Por ejemplo .

[[David]]

El formulario login , te pide nombre de usario y contraseña , pero si los datos estan la tabla access, cualquiera puede acceder a ellos . De que vale eso entonces , o con añadir nuevos datos , pues listo .

que es lo que yo haria , pues poner un login y password fijo , una variable , nada de bases de datos , por ejemplo nombre de usuario . Gesatrans , password hola , pues bien , esto estaria en código y al usuario se le dice cual es su password según haya compilado .

Esto es algo que se me ocurre improvisando , seguro que hay formas mejores .

En cuanto al formulario de login , suponiendo que el usuario no mire la base de datos , es muy fácil de saltar , como pulsando Alt + F4 . Yo lo he retocado , adjunto el pas.