Á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     aItConc
/*/
User Function FA473001

    Local aItConc   := Paramixb[1]
    Local aCpoSIG   := Paramixb[2]
    Local nX        := 0
    Local nPosIGHE  := AScan(aCpoSIG, {|campo| AllTrim(campo) == "IG_HISMOV"}) 

    If nPosIGHE > 0
        For nX := 1 To Len(aItConc)
            aItConc[nX, 2, nPosIGHE]  := "FA473001"
        Next nX
    EndIf
    Conout("FA473001")

Return aItConc

...