O comportamento do ponto de entrada F200VAR é igual ao ponto de entrada 200GEMBX.

#INCLUDE "PROTHEUS.CH"

//-------------------------------------------------------------------------------
/*/{Protheus.doc} F200VAR
Manipular as informações (variáveis) no retorno do Cnab a Receber (FINA200). 

@PARAMIXB aDados[1] = Número do Título    | Variavel de origem: cNumTit
          aDados[2] = Data da Baixa       | Variavel de origem: dBaixa
		  aDados[3] = Tipo do Título 	  | Variavel de origem: cTipo
		  aDados[4] = Nosso Número 		  | Variavel de origem: cNsNum
          aDados[5] = Valor da Despesa    | Variavel de origem: nDespes
          aDados[6] = Valor do Desconto   | Variavel de origem: nDescont
          aDados[7] = Valor do Abatimento | Variavel de origem: nAbatim
          aDados[8] = Valor Recebido  	  | Variavel de origem: nValRec
          aDados[9] = Juros 			  | Variavel de origem: nJuros
          aDados[10] = Multa 			  | Variavel de origem: nMulta
          aDados[11] = Outras Despesas    | Variavel de origem: nOutrDesp
          aDados[12] = Valor do Credito   | Variavel de origem: nValCc
          aDados[13] = Data do Credito    | Variavel de origem: dDataCred
          aDados[14] = Ocorrência         | Variavel de origem: cOcorr
          aDados[15] = Motivo do banco    | Variavel de origem: cMotBan
          aDados[16] = Linha Inteira      | Variavel de origem: xBuffer
          aDados[17] = Data de Vencimento | Variavel de origem: dDtVc

/*/
//-------------------------------------------------------------------------------

User Function F200VAR()

    Local aDados     := PARAMIXB
    Local aAreaSE1	 := SE1->(GetArea())
    Local cNumTitulo := Alltrim(Paramixb[1][1])
    Local nValLiq    := 0

    dbSelectArea("SE1")                
    SE1->( dbSetOrder(16) )         
    cChave := SE1->(dbSeek(xFilial("SE1")+cNumTitulo))
       
    If SE1->E1_DECRESC > 0
        //Ajusta o valor de baixa de titulos com decrescimo, para o saldo ser baixado integralmente
        nValLiq := nValRec + SE1->E1_DECRESC
        nAbatim += SE1->E1_DECRESC
        If nValRec < nValLiq	
            nValRec := nValLiq
        EndIf	
        
    EndIf
    
    RestArea(aAreaSE1)

Return(aDados)

Durante o processamento da rotina,  após sair do ponto de entrada F200VAR, o seu array de retorno também é repassado por parâmetro para outros pontos de entrada.

Portanto, caso for alterar o conteúdo de variáveis dentro do ponto de entrada F200VAR, avalie se a variável alterada também foi devidamente atualizada no array de retorno para não impactar os demais pontos de entrada.

Segue os pontos de entrada que podem ser impactados: F200AVL, FA200POS e FA200FIL.

<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>