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:
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
   ENDIF1. 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
____________________
Paco
Paco