Mi programa de facturación paso a paso

[Robert01]

yo no estoy usando access, estoy usando paradox y al mismo tiempo estoy probando con lazarus.
saludos

[Robert01]

¿Porque usamos access?

En en mensaje anterior quise decir también lo estoy haciendo con paradox.

Debe haber muchos integrantes en el foro que al igual que yo no son profesionales en sistemas.

Los que estamos en estas condiciones tal vez carezcamos de los suficientes conocimientos de programación para empezar a utilizar bases de datos más poderosas y seguramente también más difíciles de usar.

Además hay muchos casos en que para pequeñas aplicaciones creo que con access es suficiente y por otra parte, siempre hay tiempo para cambiar porque en todo caso el cambio siempre va a insumir mucho menos tiempo que si no tuviéramos ningún conocimiento.

Yo no tengo demasiados conocimientos de paradox, access y ninguno de las otras bases de datos, etc pero con lo publicado estoy tratando de aprender un poco más.

Hace unos días traté de hacer las cosas usando firebird y mysql pero no conseguí entender como empezar.

Imagínense si en un curso de algo nos enseñan a sumar, restar, etc , a realizar operaciones básicas, y luego alguien nos dice que se puede hacer las cosas de otra forma: supongamos que tenemos que aprender álgebra, cálculo, etc en unos pocos días.

Si uno tiene conocimientos de visual basic resulta más fácil aprender delphi aunque sean diferentes y lo mismo ocurre con access.

Yo me doy cuenta de los vastos conocimientos que tienen muchos foristas y de lo acertadas que seguramente estarán sus preferencias, espero que mi humilde crítica no sea mal recibida.

[Delphitest]

Buenos días,

el uso de access ha sido por el hecho de que parto totalmente desde cero y prefiero dedicar mas tiempo a la programación de delphi que a entender como funciona el tema de las bases de datos pero cuando esté acabado prometo dedicar mi esfuerzo a traspasar todo a FireBird, mas que nada por aprender un poco mas.


Tienes razón Robert, el tema del DT puede ser por eso de la posición en pantalla, no me he dado cuenta del detalle pero trabajo con 2 monitores y en una resolución de 1280 x 1024, me resulta muy cómodo repartir las ventanas entre las dos pantallas.

Que tengais un buen día, yo empiezo con la tarea.

[Delphitest]

Pues ahora si que necesito ayuda porque me he quedado en blanco

Ando con el tema de los famosos cálculos.

Ya he conseguido, creando un campo calculado en la tabla TDesgloseAlbaran y llamado Importe, que me de un importe en cada linea de albaran.

Lo he añadido desde el DTMGesatrans y en la tabla he metido en el evento OnCalcFields

Código Delphi [-]
procedure TDTMGesatrans.TDesgloseAlbaranCalcFields(DataSet: TDataSet);
begin
  TDesgloseAlbaranImporte.AsCurrency := TDesgloseAlbaranPortes.AsFloat + TDesgloseAlbaranReexpedicion.AsFloat + TDesgloseAlbaranOtros.AsFloat;
end;

Esa parte funciona sin problemas.

Ahora necesito que el Campo Base de la Tabla TAlbaranes sea la suma del campo importe (de TDesgloseAlbaran) teniendo en cuenta como filtro que todas las lineas a sumar tienen en comun el campo Num_Albaran.

A simple vista no tiene mucha complicación pero creo que el SQL me tiene manía, os digo lo que he hecho pero que no funciona:

He creado en el form del albaran una Query llamada ADOQAlbaran enlazada logicamente con TDesgloseAlbaran, hasta ahí creo que voy bien.

Ahora para el calculo (solo para probar) he puesto un botón y en el evento OnClick estoy probando esto:

Código Delphi [-]
  ADOQAlbaran.Active := False;
  ADOQAlbaran.Sql.add ('Select sum(Importe) as TotalImporte');
  ADOQAlbaran.Sql.add ('From Desglose_Albaran');
  ADOQAlbaran.Sql.add ('Where Num_Albaran = StrToInt (DBEdit1.text)');
  ADOQAlbaran.Active := True;
  ShowMessage('El importe total es ' + TotalImporte.AsCurrency);

De momento solo me conformo con que aparezca ese mensaje con el total para comprobar que esté bien, luego la finalidad es que lo ponga en DBEdit24.

DBEdit1 para que os orienteis es la casilla donde ya está el núm de albarán.

No funciona de esta manera pero soy incapaz de saber porque. Para empezar tengo que poner como nombre de tabla Desglose_Albaran (que es nombre original de access) en vez de TDesgloseAlbaran (que es el que tengo en el DT), eso me da igual pero no lo entiendo.

Luego el error me lo da diciendo que TotalImporte no está declarada.

Importe es de tipo Currency por cierto.

No paso de aqui.

Si alguno me podeis echar una mano os lo agradezco, veo que el sql y yo somos muy diferentes

Gracias por adelantado

[kalimero]

Hola Delphitest.
Por los detalles que das, creo que estas mezclando churras con meninas.Me explico. "TotalImporte" es el nombre de la columna que te dara el valor en la sentencia SQL. Para recoger ese valor en delphi tienes que hacer algo parecido a esto:

Código Delphi [-]
procedure Miprocedure;
var
 Mivariable : Double
begin
Mivarible := Miquery.fieldbyname('TotalImporte').asFloat;
end;

Es decir , no puedes tratar "TotalImporte" como una variable, puesto que delphi no sabe nada de ella. Es algo interno al componente.
Una vez que tienes el valor recogido en "Mivaribledeclarada " ya puedes trabajar con ella.
Saludos

[Enan0]

Hola amigos, bueno para los que comentaron que era una lastima que solo se pudiera conectar Con ACCESS (ya se que muchos lo han modificado) Aca les dejo otra pequeña forma de como conectar a otra DB. Utilizando un archivo UDL.

Bueno primero que nada, en el datamodule Borren lo que contiene el ADOConnection1, en la propiedad Connection String. (En el Object Inspector).
Luego en el ONCreate de dicho DAtamodule pongan este codigo reemplazando la linea que corresponde:

Código Delphi [-]
ADOConnection1.ConnectionString:='FILE NAME=' +  ExtractFilePath(paramstr(0)) + 'Conexion.Udl';

Bueno lo puse fijo con una Archivo llamado "Conexion.UDL" que deria encontrarse en la misma Carpeta que el "EXE".

Con esto podran importar la Base de Datos de ACCESS al motor que sea posible (creo que a casi todos) y luego hacer la Conexion corresponidente mediante dicho archivo.

Si no sabe como crear el archivo UDL: Creen un archivo de TEXT y cambienle la extencion por la antes citada. luego doble click y solo setear lo que corresponda.

Saludos

[Robert01]

hola delphitest

En el archivo que subiste ayer hay un formulario Frepartidores que tiene un link a TMDRepartidores (uno de los que tenías con un datamodule antes de que los pusieras a todos en TMDGesatrans)

[[Caral]]

Hola A todos
Siempre criticado a la pobre base de datos Access, que les ha hecho ? , si quereis liaros pues usad lo que querais, la verdad en esto hay mucha tela que cortar y tantas opiniones como foristas, me voy por lo sencillo, como buen principiante y creo en la simpleza ademas que Delphitest no habria avanzado tanto si no huviese empezado con lo mas sencillo, bueno esta es mi opinion.

Delphitest sigo sin ver algunos forms, si puedes colocarlos en otra posicion en la pantalla, seria bueno en tu proxima ampliacion.
Con respecto a lo relacionado con sumas etc, para mi lo estas haciendo dificil, en mi opinon el albaran se deberia hacer primero, sumar todo lo que se necesite y posteriormente, si quedo este como querias, grabarlo a la base de datos, asi podras hacer un albaran, por ejemplo, para ver a que precio saldria X transporte a X lugar por X peso, sin necesidad de grabarlo, que al cliente le parecio el precio, pues lo grabas, un albaran es en realidad una factura proforma, de una u otra manera, si todo lo haces directamente sobre la tabla, puedes equivocarte, ademas que estas consumiendo recursos sin necesidad.

Otra cosa y creo es muy importante, cuando abres el datamodule, creas y abres todas las tablas de una vez, ahora tienes 4 datos, cuando tengas 1.000.000 tendras que tomarte un cafe hasta que el programa arranque, las tablas hay que iniciarlas cuando se necesitan y cerrarlas cuando no, por eso se usan los query ya que estos no traen toda la informacion, solo lo que necesitas ahorrando tiempo y recursos, sin temor a equivocarme, pienso que lo estas haciendo mal, ya se que no es tu culpa, pero estas a tiempo de cambiarlo luego sera mas dificil, si te vas fijando en tu programa te daras cuenta que cada vez es mas lento, fijate, porque luego le echaran la culpa al pobre Access, mi base de datos tiene casi 800m y corre a la perfeccion.
Espero el proximo avance, ojala con los forms en su lugar para poder verlos.
Saludos