Estoy tratando de leer informacion de una tabla en sql server para tomar unos datos, la conexion la hace correcta
Este es mi codigo:
Code: Select all
local aCredentials, oCn
local oRs := NIL
aCredentials := { "MSSQL", "SQLEXPRESS", "AMIGOS" }
oCn := FW_OpenAdoConnection( aCredentials, .T. )
if oCn == nil
? "Error en la Conexion !!"
return nil
endif
oRs := FW_OpenRecordSet( oCn, "SELECT ep.idpoliza,ep.numero,ep.idcomp,ep.idcolectiva,ep.folio,ep.montocxpp,ep.idsolicitud, " + ;
" cp.numpoliza,cp.idtipopoliza,cp.idestatuspoliza,cp,anio,cp.mes, " + ;
" ac.clave,ac.rfc, " + ;
" tp.idtipopoliza,tp.descripcion as descripciontp, " + ;
" cep.idestatuspoliza,cep.descripcionep, " + ;
" ec.idcomp,ec.idestatus,ec.importeejercido,ec.importepagado,ec.numpagos,ec.fechacancelacion, " + ;
" eec.idestatuscomp,eec.descripcion, " + ;
" cc.idpoliza,cc.idtipopago,cc.idtipomov,cc.idcuentabanco,cc.numcheque,cc.fechaemision, " + ;
" ctp.descripcion as descripcionctp, " + ;
" ctm.descripcion as descripcionctm" + ;
" FROM epsolpago ep" + ;
" INNER JOIN contapoliza cp ON ep.idpoliza = cp.idpoliza " + ;
" INNER JOIN abscolectiva ac ON ep.idcolectiva = ac.idcolectiva " + ;
" INNER JOIN contatipopoliza tp ON tp.idtipopoliza = cp.idtipopoliza " + ;
" INNER JOIN contaestatuspoliza cep ON cep.idestatuspoliza = cp.idestatuspoliza " + ;
" INNER JOIN epcomp ec ON ep.idcomp = ec.idcomp " + ;
" INNER JOIN epestatuscomp eec ON ec.idestatus = eec.idestatuscomp " + ;
" INNER JOIN cajacheque cc ON ep.idsolicitud = cc.idsolicitud " + ;
" INNER JOIN cajatipopago ctp ON cc.idtipopago = ctp.idtipopago " + ;
" INNER JOIN cajatipomov ctm ON cc.idtipomov = ctm.idtipomov " + ;
" WHERE ep.folio LIKE '%45998%' AND ep.montocxpp = '1000.00'" )
IF oRs:RecordCount() == 0
::oQry:Skip()
LOOP
ENDIF
2. cuando no encuentra nada, manda un error el oRs devuelve valor U, no devuelve ni 0 ni eof ni bof
error de dedo una letra "e"
saludos