hola a todos, disculpen si este hilo esta donde no deberia de ir, pues soy nuevo en esto de los foros, veran tengo un
problema con una aplicacion desarrollada en
Delphi 2007, la base de datos esta en
MySQL 5.4, la conexcion es por medio del
MySQL ODBC 5.1 Driver y el S.O. es
Windows 7, el error que me marca es el siguiente:
"
Objeto parameter mal definido. proporciono informacion incompleta o incoherente."
Lo raro de esto es que lo tengo instalado en S.O. Windows XP y funciona a la perfeccion, al igual que en vista, pero algunos
de mis clientes quieren usar Windows 7.
Lo he compilado en Windows 7 y el mensage de error me sale al ejecutar un insert de un query, de antemano muchas gracias, el
fragmento de codigo es el siguiente:
Código Delphi
[-]
with qry_insertar do
begin
close;
sql.text:='insert into cat_factura (pk_sucursal, pk_factura, id_factura, fecha,'+
' pk_cliente, subtotal, iva, descuento, total, pk_caja, pk_usuario,'+
' pk_corte, estatus, condicion, pk_folio, num_folio, observacion, pk_dom_cl,'+
' pk_almacen, pk_tipo_cred, pk_con_xvend, entregado, pagada, dias_cred, tipo, id_sucursal, no_ticket,
tipo_fac, referencia, hora, pk_certificado)'+
' values (:sucursal, : pk_fact, :id_fact, :fec, :cliente, :sub, :iva, :desc,'+
' :tot, :caja, :usuario, :corte, :est, :condicion, : pk_fol, :num_fol, : obs, :dom,'+
' :almacen, :credito, :comision, :entr, : pag, :dcred, :tip, :suc, :noticket, :tipofac, :refer, :hr,
: pk_cert)';
Parameters.ParamByName('sucursal').value:=frm_md.qry_sucursalpk_sucursal.value;
Parameters.ParamByName('pk_fact').value:=xPk_factura;
Parameters.ParamByName('id_fact').value:=xId_factura;
Parameters.ParamByName('fec').value:=formatdatetime('yyyy/mm/dd',dtp_fecha.Date);
Parameters.ParamByName('cliente').value:=qry_clientespk_cliente.value;
Parameters.ParamByName('sub').value:=mm_facturasubtotal.value;
Parameters.ParamByName('iva').value:=mm_facturaiva.value;
Parameters.ParamByName('desc').value:=mm_facturadescuento.Value;
Parameters.ParamByName('tot').value:=mm_facturatotal.value;
Parameters.ParamByName('caja').value:=frm_md.qry_cajapk_caja.value;
Parameters.ParamByName('usuario').value:=dbe_usuario.KeyValue;
Parameters.ParamByName('est').value:='ACT';
Parameters.ParamByName('corte').value:=0;
if dbcb_condicion.ItemIndex = 0 then
Parameters.ParamByName('condicion').value := 'CR'
else
Parameters.ParamByName('condicion').value := 'CO';
Parameters.ParamByName('pk_fol').value:=xPk_folio;
Parameters.ParamByName('num_fol').value:=xNum_folio;
Parameters.ParamByName('obs').value:=dbe_memo.Text;
Parameters.ParamByName('dom').value:=dblcb_dom_env.KeyValue;
Parameters.ParamByName('almacen').value:=0;
Parameters.ParamByName('credito').value:=dbe_tipo_credito.KeyValue;
Parameters.ParamByName('comision').value:=0;
Parameters.ParamByName('entr').value:='NO';
Parameters.ParamByName('pag').value:='N';
Parameters.ParamByName('dcred').value:= se_dias.value;
if (frm_capt_factura_directa.tag = 0) or (frm_capt_Factura_directa.tag = 2)then
begin
Parameters.ParamByName('tip').value := 0;
case cmb_tipo.ItemIndex of
0:tipo_factura:='NR';
1:tipo_factura:='RE';
2:tipo_factura:='CO';
3:tipo_factura:='AP';
4:tipo_factura:='TI';
end;
Parameters.ParamByName('tipofac').value:=tipo_factura;
Parameters.ParamByName('noticket').value:=chk_docto.Items.count;
end;
if frm_capt_factura_directa.tag = 1 then
begin
Parameters.ParamByName('tip').value:= 1;
Parameters.ParamByName('tipofac').value:='NR';
Parameters.ParamByName('noticket').value:=0;
end;
Parameters.ParamByName('suc').value:= xId_sucursal;
Parameters.ParamByName('refer').value:='NO';
Parameters.ParamByName('hr').Value:=Null;
qry_certificado.Close;
qry_certificado.Open;
parameters.ParamByName('pk_cert').Value := qry_certificadopk_certificado.Value;
ExecSQL;
end;
en algunos parametros estan despegados los dos puntos, esto es porque se convierten en caritas y no me deja subir el post.