87 replies to this topic

[Tormix]

Ya... las tonterías de no ver las cosas

Claro que sî, marcado en favoritos!

[jordangel]

buenas.. como estan?? caral.. amigo cuanto tiempo.! no se si te acuerdas de mi.! jejeje..!! estube recordando todo sobre delphi y repasando de nuevo.! he descargado el tutorial pero tengo una pequeña falla.. en form de la factura.. al momento de buscar el articulo automaticamente me da el precio de venta en el monto.txt pero el detalle esta en que me muestra el varo entre comillas simple 'X' y por causa de eso delphi no puede calcularme tdo el monto total por ese error.! pero no consigo en donde esta ese error!... es el unico fallo que me presenta.! porfa.. ayudenme =(

[corajudo]

Hola ante todo darte las gracias por el tutorial, estoy empezando, y soy un completo novato
te explico mi caso, decite que me funciona perfectamente, pero quisiera avanzar un poco mas
y es que obsevo que no descuenta la cantidad de facturacion del disponible, y me gustaria si podrias hecharme una mano
Un saludo

[Caral]

Hola
En el formulario de facturación.
En el boton Guardar hay que hacer un update, revisa este y veras la diferencia.

delphi

procedure TFFactura.Button1Click(Sender: TObject);
Var
  a,b,c,d,e,f,g,h : real;
begin
 a:= StrTofloat(ECantidad.Text);
 b:= StrTofloat(EMonto.Text);
 d:= StrTofloat(EDesc.Text);
 f:= StrTofloat(EImp.Text);
 c:= a * b;
 e:= c * d / 100;
 g:= (c - e) * f / 100;
 h:= c - e + g;
 ESTotal.Text:= floatToStr(c);
 EDescuento.Text:=floatToStr(e);
 EImpuesto.Text:=floatToStr(g);
 ETotal.Text:= floatToStr(Round(h));
 AdoQuery1.SQL.Text := 'Insert into Factura Values ('+QuotedStr(ECodFactura.Text)+', :fecha, '+QuotedStr(ECodCliente.Text)+ ', '+QuotedStr(ECodArticulo.Text)+ ', '+Label9.Caption+ ', '+QuotedStr(ECantidad.Text)+ ', '+QuotedStr(ComboBox1.Text)+', '+QuotedStr(EOCompra.Text)+', '+
                        QuotedStr(EVendedor.Text)+', '+QuotedStr(EDesc.Text)+', '+QuotedStr(EImp.Text)+', '+QuotedStr(ESTotal.Text)+', '+QuotedStr(EDescuento.Text)+ ', '+QuotedStr(EImpuesto.Text)+ ', '+QuotedStr(ETotal.Text)+')';
 AdoQuery1.Parameters.ParamByName('fecha').Value:= DateToStr(DateTimePicker1.Date);
 AdoQuery1.ExecSQL;
 
 // actualiza el inventario de articulos
 AdoQuery1.SQL.Text:= 'Update Articulos set disponible = disponible - '+FloatToStr(a);
 AdoQuery1.ExecSQL;
 
end;

Si tienes alguna duda dilo.
Saludos

[corajudo]

Me da el siguiente error.
el parametro disponible no tiene un valor predeterminado, y se posiciona en el
segundo ADOQuery1.ExecSQL
un saludo y muchas gracias por la ayuda

[Caral]

Hola
Es un error de visión (ya no veo nada  ).
Cuando hice la tabla en campo disponible lo puse como disponoble, Cambia el codigo por este:

delphi

Var
  a,b,c,d,e,f,g,h : real;
begin
 a:= StrTofloat(ECantidad.Text);
 b:= StrTofloat(EMonto.Text);
 d:= StrTofloat(EDesc.Text);
 f:= StrTofloat(EImp.Text);
 c:= a * b;
 e:= c * d / 100;
 g:= (c - e) * f / 100;
 h:= c - e + g;
 ESTotal.Text:= floatToStr(c);
 EDescuento.Text:=floatToStr(e);
 EImpuesto.Text:=floatToStr(g);
 ETotal.Text:= floatToStr(Round(h));
 AdoQuery1.SQL.Text := 'Insert into Factura Values ('+QuotedStr(ECodFactura.Text)+', :fecha, '+QuotedStr(ECodCliente.Text)+ ', '+QuotedStr(ECodArticulo.Text)+ ', '+Label9.Caption+ ', '+QuotedStr(ECantidad.Text)+ ', '+QuotedStr(ComboBox1.Text)+', '+QuotedStr(EOCompra.Text)+', '+
                        QuotedStr(EVendedor.Text)+', '+QuotedStr(EDesc.Text)+', '+QuotedStr(EImp.Text)+', '+QuotedStr(ESTotal.Text)+', '+QuotedStr(EDescuento.Text)+ ', '+QuotedStr(EImpuesto.Text)+ ', '+QuotedStr(ETotal.Text)+')';
 AdoQuery1.Parameters.ParamByName('fecha').Value:= DateToStr(DateTimePicker1.Date);
 AdoQuery1.ExecSQL;
 // actualiza el inventario
 AdoQuery1.SQL.Text:= 'Update Articulos set disponoble = disponoble - :a Where CodProducto = :b';
 AdoQuery1.Parameters[0].Value:= FloatToStr(a);
 AdoQuery1.Parameters[1].Value:= ECodArticulo.Text;
 AdoQuery1.ExecSQL;

Saludos

[corajudo]

Solucionado, muchisimas gracias
un saludo y un fuerte abrazo

[Caral]

Hola
Ahora:
Que pasa si te equivocas y quieres eliminar el producto facturado ???(boton eliminar).
El Articulo quedara descontado.
Solucion:
En el boton eliminar.
Se tiene que hacer lo mismo pero en sentido contrario.
Saludos

[netway]

Hola
Bueno, ya tenemos todo lo que necesitamos listo para trabajar, solo algunos ajuste y a andar.
Primero:
Os acordais del primer Form, el que serviría de principal y contiene un MainMenu.
Vamos a enlazarlo con los demos forms.
Demosle dobleclick al mainmenu.
Nos saldran las opciones que teniamos.
Vamos a darle dobleclick a la primera: Clientes y ponemos esto:

delphi

procedure TFClientes.AadirClientes1Click(Sender: TObject);
begin
    FMantClientes:=TFMantClientes.Create(self);
   try
    FMantClientes.ShowModal;
   finally
    FMantClientes.Free;
   end;
end;

A la segunda: Articulos

delphi

procedure TFClientes.AadirArticulos1Click(Sender: TObject);
begin
    FArticulos:=TFArticulos.Create(self);
   try
    FArticulos.ShowModal;
   finally
    FArticulos.Free;
   end;
end;

A la tercera: Facturacion

delphi

   FFactura:=TFFactura.Create(self);
   try
    FFactura.ShowModal;
   finally
    FFactura.Free;
   end;

Y a Salir:

delphi

procedure TFClientes.Salir1Click(Sender: TObject);
begin
  Close;
end;

Ahora que tenemos enlazado todo nos falta que el programa arranque primero en el form Login.
Nos vamos al unit del proyecto y cambiamos el orden de acceso asi:

delphi

begin
  Application.Initialize;
  Application.CreateForm(TFLogin, FLogin);
  Application.CreateForm(TFClientes, FClientes);
  Application.CreateForm(TDataModule1, DataModule1);
  Application.Run;
end.

Ya estamos listos para ejecutar y probar el programa.
Espero os sirva de ejemplo y os guste.
Como siempre el código fuente de este programa lo dejo por si tenéis alguna duda.
Saludos

AQUI ESTA LOS ARCHIVOS COMPLETOS EN LA ZONA DE DESCARGA

Hola, estoy intentando  hacer funcionar el programa del tutorial y de aqui no paso, intento copiar y pegar en el paso de facturación, me da  error en  lo que pongo entre parentesis  a continuación y sale en rojo y el cursor entre FFactura y :=
(      FFactura:=TFFactura.Create(self)
si me podeis ayudar os lo agradeceria, yo entieno poco por no decir nada de esto pero me gustaria hacerlo funcionar, si se puede claro,. Muchas gracias de antemano y saludos
al iniciar el run:
procedure TFClientes.Facturacion1Click(Sender: TObject);
begin
      FFactura:=TFFactura.Create(self);
      try
      FFactura.ShowModal;
    finally
    FFactura.Free;
    end;


errores que da:

[Error] UFClientes.pas(69): Undeclared identifier: 'FFactura'
[Error] UFClientes.pas(69): Missing operator or semicolon
[Error] UFClientes.pas(71): Missing operator or semicolon
[Error] UFClientes.pas(73): Missing operator or semicolon
[Error] UFClientes.pas(76): Statement expected but end of file found
[Fatal Error] Factura.dpr(9): Could not compile used unit 'UFClientes.pas'

[Caral]

Hola
Cada form tiene un Name (nombre), este puede ser el que quieras.
En el caso del  form de factura se le puso como nombre FFactura.
Si no le has puesto ese nombre al form no lo reconocera, el programa dira que no lo encuentra, que no esta declarado.
Saludos

[javsolis3]

Permiteme felicitarte Caral caray tu si que te aplicas con esto vere como empieso este proyecto .

[netway]

Hola
Cada form tiene un Name (nombre), este puede ser el que quieras.
En el caso del  form de factura se le puso como nombre FFactura.
Si no le has puesto ese nombre al form no lo reconocera, el programa dira que no lo encuentra, que no esta declarado.
Saludos

hola, gracias por contestar tan rapido, lo he repasado y en name  y caption del form de factura tengo puesto este nombre (FFactura) igual que clietes y articulos y esos si los habre si problemas.

[Caral]

Hola
Segun los errores que te da:
[Error] UFClientes.pas(69): Undeclared identifier: 'FFactura'
[Error] UFClientes.pas(69): Missing operator or semicolon
1- no reconoce el form ffactura.
2- Te falta un punto y coma en algun lado.
Por eso me parece que el problema esta por el lado del form ffactura y en name.
Revisa bien todo, tal vez estas cambiando algo sin darte cuenta.
Saludos

[JUANJMOYAR]

hola buenas tardes, estoy practicando con el programa de facturacion, pero le estoy tratando de agregar algunas cosas, por ejemplo en vez de un boton para buscar articulos uso un dblookupcombobox y algun que otro radiobutton, lo que necesito saber es como mostrar los datos del dblookupcombobox y grabarlos en mi archivo y como seria la logica para los radiobutton, tengo un para para decidir si el articulo es nacional o importado y otro para para saber si es consumible o instalable, trabajo con delphi 7 y access con ado...
les agradeceria su ayuda...

[Caral]

Hola
Seria bueno que explicaras con mas detalle que quieres hacer.
No entiendo muy bien el asunto del dblookupcombobox  y radiobuton.
Si tienes algo de codigo hecho tambien seria bueno que lo mostraras.
Saludos

[Delphius]

Hola,
Por favor mantengan el tutorial lo más "limpio" de consultas. Abran un hilo nuevo con las dudas puntuales, y en todo caso hagan referencia a éste tutorial aportando la mayor información concreta posible.

Muchas gracias.

[mramos65]

Hola Caral:
  Te felicito por este post, hay mucho que aprender, lo ejecute y al momento de guardar la factura me envia mensaje de "La operacion debe usar una consulta actualizable" me podrias ayudar con esa duda?

[Caral]

Hola
Ni idea amigo, nunca me ha salido ese error.
Revisa bien el codigo, si lo copiaste tal y como esta no deberia de generar ningun error.
Si sigues con problemas crea un nuevo tema y le entramos al asunto.
Saludos

[imanol74]

Te agradezco mucho el compartir este código, he programado muchos años, pero nunca en delphi y la verdad no se por que, eso si hay muchas partes que aun no comprendo,pero que con el tiempo .... , pero me gustaría estar en contacto si es posible por aquello de las dudas que nunca faltaran mi correo es xxxxxxxxx, saludos y gracias nuevamente.

[Fenareth]

Te agradezco mucho el compartir este código, he programado muchos años, pero nunca en delphi y la verdad no se por que, eso si hay muchas partes que aun no comprendo,pero que con el tiempo .... , pero me gustaría estar en contacto si es posible por aquello de las dudas que nunca faltaran mi correo es xxxxxxxxx@hotmail.com, saludos y gracias nuevamente.

Pues amigo esperamos verte muuuuy seguido por aquí aportando con dudas, comentarios, o lo que nos quieras compartir... tengo que quitar tu correo electrónico por cuestiones de seguridad 

Saludox y Bienvenido !


Edito: Y yo lo quito de tu cita