Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Bloco de código
languagevb
themeMidnight
firstline1
titleFA473001
linenumberstrue
#INCLUDE 'TOTVS.CH'

/*/{Protheus.doc} FA473001
Ponto de entrada para executar operações no final da rotina F473Concil após o controle de transação.
 
altConc     - Array multidimensional contendo os campos presentes na tabela SIG para conciliação bancária.
CpoSIG      - Campos da tabela SIG
cBanco      - Código do Banco
cAgencia    - Código da agência
cConta      - Código da conta
dDataDe     - Data de
dDataAte    - Data até
 
@type       Function
@author     TOTVS
@since      18/11/2020
@return     @aItConcaItConc
/*/

User Function FA473001
    Local aItConc   := Paramixb[1]
    Local aCpoSIG   := Paramixb[2]
    Local Nx        := 0
    Local nPosIGHE  := aScan(aCpoSIG , {|x| Alltrim(x) == 'IG_HISMOV'} ) 

    If nPosIGHE > 0
        For Nx := 1 to Len(aItConc)
            aItConc[nx,2,nPosIGHE]  := 'FA473001'
        Next Nx
    EndIf
    Conout("FA473001")

Return(aItConc)

...