Histórico da Página

#INCLUDE "PROTHEUS.CH"

//-------------------------------------------------------------------------------
/*/{Protheus.doc} F200POSFA60BDE
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 F200POSFA60BDE()

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

    dbSelectArea("SE1")                
    SE1->( dbSetOrder(16) )         
    cChave := SE1->(dbSeek(xFilial("SE1")+cNumTitulo))
       
    //Desenvolva sua lógica aqui
    
    RestArea(aAreaSE1)TRB->E1_OK == cMarca // Variável "cMarca" é do tipo Private e contém o valor para verificação se o título foi marcado pelo usuário.

	EndIf

Return(aDados)