PC Toledo

Código: Selecionar todos

 IF mARQ='BANCO'
     NomeCampos := BANCO->(ARRAY(AFIELDS(FCOUNT())))
     mTIPO      := BANCO->(ARRAY(AFIELDS(FCOUNT())))
     mTAMANHO   := BANCO->(ARRAY(AFIELDS(FCOUNT())))
     mDECIMAL   := BANCO->(ARRAY(AFIELDS(FCOUNT())))
     BANCO->(AFIELDS(NomeCampos,mTIPO,mTAMANHO,mDECIMAL))
     mNUMCAMPO     := BANCO->(FCOUNT())
     IF NomeCampos[mNUMCAMPO]!='PRCHEQUE' // 28/07/2005
         SELE BANCO
         USE
         IF !ABREARQCDX((CAMINHO('BANCO')),'BANCO',.T.,10)
             ALERTA2('NAO FOI POSSIVEL ABRIR O ARQUIVO')
             CANCELA()
         ENDIF
         PACK
         USE
         ! CD DBFNTX                        > nul
         ! COPY BANCO.DBF BANCO.BKP         > nul
         ! DEL BANCO.DBF                    > nul
         ! DEL BANCO.CDX
         IF !FILE('BANCO.DBF')
           @24,01 say " Criando Arquivos  BANCO.DBF"
           @24,30 say " de   102 ate    88"
           ASIZE(A,0)
           AADD(A,{"BCODIGO"   ,"C",    5, 0})
           AADD(A,{"NOME"      ,"C",   20, 0})
           AADD(A,{"CHBANCO"   ,"N",    2, 0}) // codigo do tipo de impressao de cheque
           AADD(A,{"SALDO"     ,"N",   14, 2})
           AADD(A,{"ABERTURA"  ,"D",    8, 0})
           AADD(A,{"AGENCIA"   ,"C",   10, 0}) // agencia bancaria
           AADD(A,{"CONTA"     ,"C",   10, 0}) // Conta bancaria
           AADD(A,{"PRCHEQUE"  ,"C",    6, 0}) // proximo cheque - usado na impressao
           DBCREATE("BANCO.DBF",A)
         ENDIF
         USE BANCO ALIAS BANCO NEW
         APPE FROM BANCO.BKP
         USE
         ! CD..
         FERASE(CAMINHO('BANCO.CDX'))
         IF !FILE(CAMINHO('BANCO.CDX'))
              SHOW('Indexando arquivo de Clientes . . .')
              USE &(CAMINHO('BANCO')) ALIAS BANCO      NEW
              INDEX ON BCODIGO  TAG ('XBANCO1') EVAL CDXPROGRESS() EVERY LASTREC()/100
              INDEX ON NOME TAG ('XBANCO2')     EVAL CDXPROGRESS() EVERY LASTREC()/100
              USE
         ENDIF
         IF ABREARQCDX((CAMINHO('BANCO')),'BANCO',.F.,10)
         ELSE
             ALERTA2('NÆo foi poss¡vel abrir o arquivo de Contrato de Terceiros')
             CANCELA()
         ENDIF
     ENDIF
 ENDIF