FoxPro/Visual FoxPro - Enviar detalle de factura como parametro al sql server

Buenas tardes,

A continuación te envio mi consulta por si puedan ayudarme.

Estoy armando un pequeño sistema cliente-servidor con base de datos sql server y aplicacion visual foxpro 9.0. La manejo de esta manera: tengo una conexion odbc por medio del cual hago las operaciones en la base de datos del sql. De esta forma:

sqlexec(Conexion, "execute sp_insertar_cliente ?vCodigo, ?vNombre, ?vDireccion, ?vTelefono")

Esto me funciona sin problema, lo que no sé es como enviar un cursor en forma de parametro, para poder insertar las transacciones.

Espero no haber sido molestia mi consulta y ante que nada les agradezco.


Saludos cordiales
Fredy

De esta forma yo paso los datos de la cabezera de la factura a una tabla de Postgres


espero te sirva

Richard marriaga

Muchas gracias por la ayuda amigo, me sirve el ejemplo.

Pero lo que necesito es para insertar el detalle en forma masiva, o sea, para pasar como parámetro el cursor completo con N registros al sql server.

Muchas gracias!
Saludos cordiales,
Fredy Ayala

puedes hacer es un ciclo while (miestras que) y el te va adicicionar todos los registros del cursor

ESTE EJEMPLO USA EL CICLO WHILE TE PUEDE SERVIR Y HAY MUCHAS MANERAS DE HACERLO
*********
LOCAL lsu,apll,nom
lsu = 0
SELECT tdato001 && tabla de VFP
nom = "Registros: "
SET EXCLUSIVE on
DO WHILE .T. && Begins loop
IF EOF( )
EXIT
ENDIF
**** asignacion de campos de la tabla de vfp a variables *****
STORE fecha TO lfep
STORE cliente TO lnced
STORE codabop TO lnabg
STORE codclpro TO lcps
STORE codclti TO lntt
STORE fechaveti TO lftt
STORE nobliga TO lott
STORE radjudi TO lraj
STORE codjuz TO lnju
STORE codciu TO lciu
STORE id_demandado TO lcdem
STORE valor TO lnval
STORE clasenotifica TO lnclnot
STORE sugerencia TO suge
STORE ideman2 TO ldem2
STORE ideman3 TO ldem3
STORE idnegocio TO nup
STORE fechaetap TO fecheta
STORE idetapa TO lidp
STORE ufecha TO ufec
lciu = 5
*** Actulizacion de incrementos de procesos **
********
lcsql ="INSERT INTO tdato001 (idnegocio,fecha,cliente,codabop,codclpro,codclti,fechaveti,nobliga,radjudi,codjuz,codciu,id_demandado,valor,clasenotifica,sugerencias,ideman2,ideman3,idetapa)"+;
"values(?m.nup,?m.lfep,?m.lnced,?m.lnabg,?m.lcps,?m.lntt,?m.lftt,?m.lott,?m.lraj,?m.lnju,?m.lciu,?m.lcdem,?m.lnval,?m.lnclnot,?m.suge,?m.ldem2,?m.ldem3,?m.lidp)"
***********
lcrdo = SQLEXEC (gn1,lcsql)
if lcrdo < 0
Aerror(verror)
* wait window 'Error '+
mMens2 = verror(2)
=SQLRollback(gn1)
mMens1="No se Puede completar la Operación de guardar proceso"
mOpc = messagebox(mMens1 + mMens2,0+32,"Atencion")
return
endif
********************
= SQLCOMMIT(gn1)

* ****
&&replace radjudi WITH lcrj,valor WITH lcva
lsu = lsu + 1
apll = STR(lsu)
WAIT nom + apll WINDOW AT 70,20 TIMEOUT 0.01

****** llamo a la tabla y le doy skip para que pase al siguiente registro

SELECT tdato001
SKIP
ENDDO
*WAIT WINDOW "guardando datos ...." TIMEOUT 0.2
use

Buenas tardes, soy Roberto Molina estoy buscando una forma de actualizar tablas desde visualfox a sql server y he encontrado este codigo;


*** Actulizacion de incrementos de procesos **
********
lcsql ="INSERT INTO tdato001 (idnegocio,fecha,cliente,codabop,codclpro,codclti,fechaveti,nobliga,radjudi,codjuz,codciu,id_demandado,valor,clasenotifica,sugerencias,ideman2,ideman3,idetapa)"+;
"values(?m.nup,?m.lfep,?m.lnced,?m.lnabg,?m.lcps,?m.lntt,?m.lftt,?m.lott,?m.lraj,?m.lnju,?m.lciu,?m.lcdem,?m.lnval,?m.lnclnot,?m.suge,?m.ldem2,?m.ldem3,?m.lidp)"
***********
lcrdo = SQLEXEC (gn1,lcsql)
if lcrdo < 0

mi duda basicamente es en lcrdo = SQLEXEC (gn1,lcsql), no entiendo que es gn1 no veo en ninguna parte del codigo que muestran de ejemplo que se mencione, Cual es la funcion del gn1 en el proceso de ejecucion y que informacion contiene ?

se puede ejecutar directamente SQLEXEC (gn1,lcsql) sin asignar a variables ?

Agradecere si pueden explicarme y enviarme a mi correo los detalles para despejar mi duda. Muchas gracias Saludos

Si insistes en hacerlo por ODBC, al menos deja los SQL Pass Through para lo mínimo posible, y trabaja con los CursorAdapter, que es una forma transparente de interactuar con las tablas del servidor.

Que sí, que es algo engorroso al inicio, pero una vez los tengas controlados (en VFP9 donde ya encontraron la estabilidad necesaria) se hace todo más fácil.

Pero si insistes con el método Pass Through, crea una cadena variable con todos los INSERT que sean necesarios, tantos como líneas de detalle. Así, haces una sola ejecución y puedes controlarlo como una transacción, para saber qué hacer en caso de error.

Saludos
Utiliza un procedimiento almacenado en sql server con un parametro XML (donde puedes almacenar la lista de detalles con una estructura donde los campos son los mismos de los detalles). Sql server tiene los comandos necesarios que maneja la lectura de los datos en XML. En este mismo procedimiento puedes usar transacciones para manejar la insercion o actualizacion de datos completamente para controlar los errores.
Yo uso sql server con visual basic .net, si lo deseas que te explique mas puedes enviarme un mensaje en mi correo.

Atte;