Gracias, ya he logrado armar la consulta...
Saludos
Ramón Zea
Móvil.: 993-231.62.29
Tel./Fax: 993-353-46-73
www.zeasoftware.com.mx
soporte@zeasoftware.com.mx
zeasoftware@hotmail.com
"Gabriel Ornelas" escribió en el mensaje de
noticias:501e9168$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Ramon
Un Ejemplo de tSQLQuery desde codigo
//---------------------------------------------------------- -----
PROCEDURE RepExistencias()
LOCAL cLineaUno, cLineaDos, cMarcaUno, cMarcaDos,
cDeptoUno, cDeptoDos, cAlmacen, cEmpresa
LOCAL cSelect, lPrinter, oWait
LOCAL oSQLKardex, oReport, oBitmap
lPrinter:= .F.
WITH OBJECT TFormRepItems():New()
:RequestState()
:ShowModal()
IF :nModalResult == mrOK
cLineaUno:= :oEditLineaIni:value
cLineaDos:= :oEditLineaFin:value
cMarcaUno:= :oEditMarcaIni:value
cMarcaDos:= :oEditMarcaFin:value
cDeptoUno:= :oEditDeptoIni:value
cDeptoDos:= :oEditDeptoFin:value
cEmpresa := :oEditSucursal:value
cAlmacen := :oEditBodega:value
lPrinter := .T.
:Close()
ELSE
:Close()
ENDIF
END WITH
IF lPrinter
WITH OBJECT oSQLEmpresa:= TSQLQuery():New()
:nCursorType:= adOpenDynamic
:nLockType := adLockOptimistic
:Create()
END
WITH OBJECT oSQLEmpresa
:oDataSource:= AppData:oMySqlDSMain
:cSelect := "SELECT * FROM empresas WHERE
id_empresa='" + cEmpresa + "'"
IF :lOpen
:Close()
ENDIF
IF !:lOpen
:lOpen:= .T.
IF !:lOpen
MsgStop( "ERROR: No es posible abrir archivo
de empresas", "Error de conexion.." )
RETURN
ENDIF
ENDIF
END
cSelect:= "SELECT kdx.id_item, kdx.id_talla,
tallas.descripcion,"+ ;
" kdx.cantidad_existe,item.id_linea,item.id_marca,item.id_dept o,item.nombre, "+;
"item.uni_entrada,item.costo"+oSQLEmpresa:costo_unitario+",item.precio "+oSQLEmpresa:precio_venta
+;
" FROM kardex_actual AS kdx " + ;
"LEFT JOIN tallas ON
tallas.id_talla=kdx.id_talla " + ;
"LEFT JOIN articulos AS item ON
item.id_item=kdx.id_item " + ;
"WHERE kdx.id_empresa='" + cEmpresa
+ "' " + ;
"AND kdx.id_almacen='" + cAlmacen
+ "' " + ;
"AND kdx.id_item=tallas.id_item AND
kdx.id_item=item.id_item ORDER BY kdx.id_item,kdx.id_talla"
oWait:= TFormMsgWait():New()
oWait:WaitOn("Recuperando informacion del Sevidor...
por favor espere un momento")
WITH OBJECT oSQLKardex:= TSQLQuery():New()
:nCursorType:= adOpenDynamic
:nLockType := adLockOptimistic
:Create()
END
WITH OBJECT oSQLKardex
:oDataSource:= AppData:oMySqlDSMain
:cSelect:= cSelect
IF :lOpen
:Close()
ENDIF
IF !:lOpen
:lOpen:= .T.
IF !:lOpen
MsgStop( "ERROR: No es posible abrir el
kardex de artículos", "Error de conexion.." )
RETURN
ENDIF
ENDIF
END
oWait:WAITOFF()
ENDIF
RETURN