Facturación e Inventario

[novato03]

Hola amigo Caral, me descargue el programa paso a paso que hiciste y para analizarlo, pero cuando lo ejecuto me presenta el error cuando le presiono el botón guardar.

Project Factura.exe raised exception class EOleExcenption with message 'El número de valores de consulta y el ´numero de campos de destino son diferentes'¨. Process stopped. Use Step or Run to continue.

[[Caral]]

Hola novato03
Esto pasa cuando intentas guardar datos incompletos.
En el caso del programa en el form factura, si los edits y combobox que estan en blanco no contienen informacion, genera el error, la logica dice que es una factura y por lo tanto se tiene que formalizar.
Rellena todos los campos vacíos y resulto.
Espero que sea este el problema que me mencionas.
Saludos

[novato03]

Acabo de completar todos los campos y sale el mismo error.


Project Factura.exe raised exception class EOleException with message 'El número de valores de consulta y el número de campos de destino son diferentes'. Process stopped. Use Step or Run to continue.

[[Caral]]

Hola
No tiene por que pasar.
Has tocado algo?
El programa lo tengo y funciona perfectamente, es muy raro.
Revisa el codigo del boton guardar, tiene que estar asi:

Código 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)+', '+DateToStr(DateTimePicker1.DateTime)+', '+QuotedStr(ECodCliente.Text)+ ', '+QuotedStr(ECodArticulo.Text)+ ', '+QuotedStr(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.ExecSQL;

end;

Como veras el insert recorre los campos y el value revisa los datos.
Copia y pega este codigo, tiene que funcionar.
Saludos

[novato03]

El código esta de la siguiente manera...

Código 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)+', '+DateToStr(DateTimePicker1.DateTime)+', '+QuotedStr(ECodCliente.Text)+ ', '+QuotedStr(ECodArticulo.Text)+ ', '+QuotedStr(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.ExecSQL;
end;

y la tabla de factura, contiene los siguientes campos:


CodFactura (Número)
Fecha
CodCliente (Número)
Terminos (Texto)
OrdenCompra (Texto)
CodVendedor (Texto)
Excento (si/no)
TasaImpuesto (Número)
Anulada (si/no)
MntEnvio (Fecha)
MntSubTotal (Número)
MntDescuento (Número)
MntImpuesto (Número)
MntTotal (Número)
MntContado (Número)
MntCheque (Número)
MntTarjeta (Número)
MntOtros (Número)
Saldo (Número)
Pagado (Número)
CodArticulo (Número)

[[Caral]]

Hola
El paso 9, explica lo que te esta pasando.
La tabla fue modificada en ese paso, quedo asi:

Campos:
CodFactura (Número)
Fecha
CodCliente (Número)
CodArticulo (Texto)
Descripcion (Texto)
Cantidad (Numero)
Terminos (Texto)
OrdenCompra (Texto)
CodVendedor (Texto)
Excento (Numero)
TasaImpuesto (Número)
MntSubTotal (Número)
MntDescuento (Número)
MntImpuesto (Número)
MntTotal (Número)

Revisalo, si tienes mas dudas, ya las resolveremos.
Saludos

[novato03]

Muchas gracias amigo Caral. Ya esta resuelto
Pero tengo que digitar el precio y el impuesto.
No habrá alguna forma de hacerlo automático?


Gracias por la ayuda Amigo Caral...