consulta sql server (solucionado)
Posted: Tue Oct 13, 2020 9:55 pm
Hola,
Estoy tratando de leer informacion de una tabla en sql server para tomar unos datos, la conexion la hace correcta
Este es mi codigo:
1. cuando encuentra algun registro de la consulta, no da error, todo perfecto.
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
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