Consultar cfdis timbrados en Solución Factible

//Este código lo uso para consultar los cfdis timbrados con el pac Solución Factible

BuscarTimbres is buscar
BuscarTimbres.usuario= "miUsuario"
BuscarTimbres.password = "miPassword"
//
sMiFecha1 is string = DateToString(EDT_Fecha_Timbrado,"YYYYMMDD")
dFinal is Date = EDT_Fecha_Timbrado
dFinal..Day +=1

sMiFecha2 is string = DateToString(dFinal,"YYYYMMDD")
//
BuscarTimbres.parametros.emisorRFC = "RFC670322HM1"
BuscarTimbres.parametros.fechaTimbradoInicio = sMiFecha1
BuscarTimbres.parametros.fechaTimbradoFin = sMiFecha2
//BuscarTimbres.parametros.limit = 150
//
nContador is int
dtFechaEmision is DateTime
dtFechaTimbrado is DateTime
//
DameTimbresResultado is buscarResponse
DameTimbresResultado = buscar(BuscarTimbres)
IF DameTimbresResultado.'return'.status = "200" THEN
 nCantidad is int = DameTimbresResultado.'return'.cfdis..Occurrence
 Info(nCantidad)
 FOR nContador = 1 TO nCantidad
  dtFechaEmision = DameTimbresResultado.'return'.cfdis[nContador].fechaEmision
  dtFechaTimbrado = DameTimbresResultado.'return'.cfdis[nContador].fechaTimbrado
  dtFechaEmision..Hour -= 5
  dtFechaTimbrado..Hour -=5
 
  //
  TableAdd(TABLE_Facturas, ...
  DameTimbresResultado.'return'.cfdis[nContador].emisorRFC + TAB + ...
  dtFechaEmision  + TAB + ...
  dtFechaTimbrado + TAB + ...
  DameTimbresResultado.'return'.cfdis[nContador].folio + TAB + ...
  DameTimbresResultado.'return'.cfdis[nContador].serie + TAB + ...
  DameTimbresResultado.'return'.cfdis[nContador].uuid + TAB + ...
  DameTimbresResultado.'return'.cfdis[nContador].receptorNombre + TAB + ...
  DameTimbresResultado.'return'.cfdis[nContador].receptorRFC + TAB + ...
  DameTimbresResultado.'return'.cfdis[nContador].total + TAB + ...
  DameTimbresResultado.'return'.cfdis[nContador].cancelado + TAB + ...
  DameTimbresResultado.'return'.cfdis[nContador].fechaCancelacion)
  //DameTimbresResultado.'return'.cfdis[nContador].emisorNombre + TAB + ...
  //DameTimbresResultado.'return'.cfdis[nContador].selloDigital + TAB + ...
  //DameTimbresResultado.'return'.cfdis[nContador].selloSAT + TAB + ...
 END

END