FiveTech Support Forums

   oLbx1:bGoTop   :={||nItem1:=1 }
   oLbx1:bGoBottom:={||nItem1:=Len(VecImp)}
   oLbx1:bBookMark:={|nBkm| If( nBkm == nil, nItem1, nItem1:= nBkm ) }
   oLbx1:bSkip    :={|nSkip| Skipper2(VecImp,@nItem1,nSkip ) }

Function Skipper2(Vector,nCur,nSkip)
Local nOld:=nCur
Default nSkip:= 1
nCur :=nCur + nSkip
IF nCur > LEN(Vector)
   nCur:= LEN(Vector)
ENDIF
IF nCur < 1
   nCur:= 1
ENDIF
Return nCur - nOld
//

   ...
   ...
   REDEFINE GET oPro    VAR vPro           ID 104 OF oDlg1 PICTURE "######";
      VALID{|| CargaProveComras04(oLbx1)};
      FONT oFont1

   oLbx1:= TXBrowse():New(oDlg1)
   oLbx1:CreateFromResource(1000)
   oLbx1:nDataType          :=0

   oLbx1:AddCol():bEditValue    :={ || VecCom[nItem1] }
   oLbx1:aCols[ 1]:nWidth       :=120
   oLbx1:aCols[ 1]:cHeader      :="Comprobante"

   oLbx1:SetArray(VecCom,.t.)

   oLbx1:bGoTop   :={||nItem1:=1 }
   oLbx1:bGoBottom:={||nItem1:=Len(VecImp)}
   oLbx1:bBookMark:={|nBkm| If( nBkm == nil, nItem1, nItem1:= nBkm ) }
   oLbx1:bSkip    :={|nSkip| Skipper2(VecCom,@nItem1,@nSkip ) }
   ...
   ...

Function CargaProveComras04(oLbx1)
Local Q

Q:=0

IF (nNextArea:=DbfArea())<>-1
   cAliasPro:=5-LEN(ALLTRIM(STR(nNextArea)))
   cAliasPro:=LEFT(cFileName("PROVEEDO"),5)+REPLI("0",cAliasPro)+ALLTRIM(STR(nNextArea))

   USE PROVEEDO ALIAS (cAliasPro) NEW
   DATABASE oDbfPro
   oDbfPro:GoTop()
   oDbfPro:SetOrder(1)
   oDbfPro:bEoF:=nil

   oDbfPro:Seek(vPro)
   IF !oDbfPro:Eof()
      vNom:=oDbfPro:NOMBRE
      oNom:Refresh()
      oDbfPro:CLOSE()

      IF (nNextArea:=DbfArea())<>-1
         cAliasCta:=5-LEN(ALLTRIM(STR(nNextArea)))
         cAliasCta:=LEFT(cFileName("CTAPRO"),5)+REPLI("0",cAliasCta)+ALLTRIM(STR(nNextArea))

         USE CTAPRO ALIAS (cAliasCta) NEW
         DATABASE oDbfCta
         oDbfCta:GoTop()
         oDbfCta:SetOrder(1)
         oDbfCta:bEoF:=nil

         DO WHILE !oDbfCta:Eof()
            Q++
            DO CASE
               CASE oDbfCta:TIPOCOMP=1
                  VecCom[Q]:="F "+oDbfCta:LETRA+" "+STRZERO(oDbfCta:PUNTO,4,0)+"-"+STRZERO(oDbfCta:NUMERO,8,0)
               CASE oDbfCta:TIPOCOMP=2
                  VecCom[Q]:="D "+oDbfCta:LETRA+" "+STRZERO(oDbfCta:PUNTO,4,0)+"-"+STRZERO(oDbfCta:NUMERO,8,0)
               CASE oDbfCta:TIPOCOMP=3
                  VecCom[Q]:="C "+oDbfCta:LETRA+" "+STRZERO(oDbfCta:PUNTO,4,0)+"-"+STRZERO(oDbfCta:NUMERO,8,0)
            ENDCASE

            IF Q=100
               EXIT
            ENDIF
         ENDDO
         oLbx1:GoTop()
         oLbx1:Refresh()
         oDbfCta:CLOSE()
      ELSE
         MsgStop("No puede abrir más archivos, cierre algún área de trabajo","Atención")
         Return .f.
      ENDIF
      Return .t.
   ELSE
      vNom:=SPACE(30)
      oNom:Refresh()
      MsgInfo("El código de proveedor ingresado no existe","Atención")
      oDbfPro:CLOSE()
      Return .f.
   ENDIF
ELSE
   MsgStop("No puede abrir más archivos, cierre algún área de trabajo","Atención")
   Return .f.
ENDIF
Return nil