Á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 	 	 Nx        := 0
	Local nPosIGHE  	:= AScanaScan(aCpoSIG , {|x| AllTrimAlltrim(x) == 'IG_HISMOV'} ) 

	If nPosIGHE > 0
		    For nXNx := 1 Toto Len(aItConc)
			        aItConc[nXnx,2,nPosIGHE]  := 'FA473001'
		    Next nXNx
	EndIf

	Conout("FA473001")

Return(aItConc)