consulta
Posted: Sat Jun 16, 2012 2:18 pm
Estoy usando la clase tymsql modificada por Williams Morales y la consulta es la siguiente tengo un diálogo :
donde oCta es un array que cargo con
Lo que no sé es como declarar el Qry1 en el inicio del diálogo para poder hacer
REDEFINE GET aGet[1] VAR oQry1:ncli picture "99999" ID 101 UPDATE of odlg ;
VALID cargocli(oBrw,oMysql)
y evitar hacer un array ...
Creo haber planteado bien la cuestión
Gracias por su atención
- Code: Select all Expand view
oCta := oCtac()
aadd(oCta:adet,{ space(24),space(20),space(20),space(20),0,0,0,.t.})
DEFINE DIALOG oDlg resource "dia_factu"
oDlg:cCaption := "Factura clientes"
REDEFINE GET aGet[1] VAR oCta:ncli picture "99999" ID 101 UPDATE of odlg ;
VALID cargocli(oBrw,oMysql)
REDEFINE GET aGet[2] VAR oCta:nape ID 102 of odlg UPDATE
REDEFINE GET aGet[3] VAR oCta:domi ID 103 of odlg UPDATE
REDEFINE GET aGet[5] VAR oCta:cuit ID 104 of odlg UPDATE
REDEFINE GET aGet[4] VAR oCta:iva ID 105 of odlg UPDATE
REDEFINE COMBOBOX aGet[8] VAR oCta:condicion ITEMS aItem ID 113 of odlg UPDATE
REDEFINE GET aGet[6] VAR oCta:fecha picture "@d" ID 106 of odlg UPDATE
donde oCta es un array que cargo con
- Code: Select all Expand view
function cargocli(oBrw,oMysql)
oQry1 :=busnap(,oQmae,oCta:ncli,oMysql)
if empty(oQry1 )
return .f.
endif
oCta:ncli := oQry1:ncli
oCta:nape := oQry1:nape
oCta:domi := alltrim(oQry1:domi) +" - " + oQry1:loca
oCta:cuit := oQry1:cuit
oCta:iva := oQry1:iva
oDlg:update()
oQmae:end()
Lo que no sé es como declarar el Qry1 en el inicio del diálogo para poder hacer
REDEFINE GET aGet[1] VAR oQry1:ncli picture "99999" ID 101 UPDATE of odlg ;
VALID cargocli(oBrw,oMysql)
y evitar hacer un array ...
Creo haber planteado bien la cuestión
Gracias por su atención