Histórico da Página

#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 dado Baixabanco    | 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)