Este código funciona pero como verán estoy trabajando sobre las tablas individualmente
Code: Select all
oQryfac := oMysql:Query("SELECT * FROM factura WHERE nrofac =" + "'" + numfac + "' AND ncli=" + alltrim(str(nclia)) )
oQrydet := oMysql:Query("SELECT * FROM detalle WHERE nrofac =" + "'" + numfac + "' AND ncli=" + alltrim(str(nclia)) )
oCta:ntotal := oQryfac:importe
oCta:subtotal := oQryfac:baseimpo
oCta:niva := oQryfac:iva
oCta:condicion := oQryfac:plazo
oCta:ib := oQryfac:ingbruto
oCta:tipocom := oQryfac:tipo
oCta:pventa := substr( oQryfac:nrofac,1,4)
oCta:factura := substr( oQryfac:nrofac,6)
oCta:ncli := nclia
nRecno :=oQrydet:reccount()
if empty(nRecno)
msgstop("No hay datos completos para mostrar","Aviso del sistema")
oQrydet:end()
oQryfac:end()
return nil
endif
for z = 1 to nRecno
oQry := bprodu(,,oMysql, oQrydet:codigo) (1)
aadd(oCta:adet,{oQry:codigo,oQry:producto,oQry:marca,oQry:modelo, oQrydet:cantidad,oQrydet:costo,multi(oQrydet:cantidad,oQrydet:costo),0,.t.})
oQrydet:skip()
next
oQrydet:end()
oQryfac:end()
Es decir factura + detalle + productos
Gracias por su atención