problemas con cursor
Publicado por fede (5 intervenciones) el 16/08/2007 14:35:36
JorgE vos sabes que no me da bola me sigue con lo mismo te paso el fuente a ver si ves algo mal:
esto lo hago en el INI
create cursor (ccu) (dc_arti N ( 5 ) , ;
dc_Descri C ( 35 ) , ;
dc_pres N (15,3), ;
dc_pedido N ( 5 ) , ;
dc_entrego N ( 5 ), ;
dc_saldo N ( 5 ), ;
Telefono C ( 35 ), ;
Cuit C ( 13 ), ;
Comentario C ( 35 ), ;
RegTipoCli N ( 10 ), ;
RegListaVe N ( 10 ), ;
RegIva N ( 10 ), ;
RegVendedor N ( 10 ) )
ThisForm.Pageframe1.Page1.Grid3.recordsource = (ccu)
ThisForm.Pageframe1.Page1.Grid3.columns(1).controlsource = (ccu) + ".dc_arti"
ThisForm.Pageframe1.Page1.Grid3.columns(2).controlsource = (ccu)+ ".dc_Descri"
ThisForm.Pageframe1.Page1.Grid3.columns(3).controlsource = (ccu)+ ".dc_pres"
ThisForm.Pageframe1.Page1.Grid3.columns(4).controlsource = (ccu)+ ".dc_pedido"
ThisForm.Pageframe1.Page1.Grid3.columns(5).controlsource = (ccu)+ ".dc_entrego"
ThisForm.Pageframe1.Page1.Grid3.columns(6).controlsource = (ccu)+ ".dc_saldo"
SElect (ccu)
append blank
= ThisForm.Pageframe1.Page1.Grid3.setfocus()
= ThisForm.Pageframe1.Page1.Grid3.columns(1).setfocus()
= ThisForm.Pageframe1.Page1.Grid3.columns(1).text1.setfocus()
= ThisForm.Pageframe1.Page1.Grid3.refresh()
= ThisForm.Pageframe1.Page1.Grid3.setfocus()
pero en un boton btn_ok kiero pasar los datos del cursor a la tabla asi
select Detacompra
APPEND FROM CCU -> este es el cursor pero me dice q la tabla no existe o se encuentra el alias ccu
esto lo hago en el INI
create cursor (ccu) (dc_arti N ( 5 ) , ;
dc_Descri C ( 35 ) , ;
dc_pres N (15,3), ;
dc_pedido N ( 5 ) , ;
dc_entrego N ( 5 ), ;
dc_saldo N ( 5 ), ;
Telefono C ( 35 ), ;
Cuit C ( 13 ), ;
Comentario C ( 35 ), ;
RegTipoCli N ( 10 ), ;
RegListaVe N ( 10 ), ;
RegIva N ( 10 ), ;
RegVendedor N ( 10 ) )
ThisForm.Pageframe1.Page1.Grid3.recordsource = (ccu)
ThisForm.Pageframe1.Page1.Grid3.columns(1).controlsource = (ccu) + ".dc_arti"
ThisForm.Pageframe1.Page1.Grid3.columns(2).controlsource = (ccu)+ ".dc_Descri"
ThisForm.Pageframe1.Page1.Grid3.columns(3).controlsource = (ccu)+ ".dc_pres"
ThisForm.Pageframe1.Page1.Grid3.columns(4).controlsource = (ccu)+ ".dc_pedido"
ThisForm.Pageframe1.Page1.Grid3.columns(5).controlsource = (ccu)+ ".dc_entrego"
ThisForm.Pageframe1.Page1.Grid3.columns(6).controlsource = (ccu)+ ".dc_saldo"
SElect (ccu)
append blank
= ThisForm.Pageframe1.Page1.Grid3.setfocus()
= ThisForm.Pageframe1.Page1.Grid3.columns(1).setfocus()
= ThisForm.Pageframe1.Page1.Grid3.columns(1).text1.setfocus()
= ThisForm.Pageframe1.Page1.Grid3.refresh()
= ThisForm.Pageframe1.Page1.Grid3.setfocus()
pero en un boton btn_ok kiero pasar los datos del cursor a la tabla asi
select Detacompra
APPEND FROM CCU -> este es el cursor pero me dice q la tabla no existe o se encuentra el alias ccu
Valora esta pregunta


0