Histórico da Página

...

Nome	Tipo	Descrição
Filial	Caractere	Filial do título.
Prefixo	NuméricoCaractere	Prefixo do título.
Numero	NuméricoCaractere	Numero do título.
Parcela	Caractere	Parcela do título.
Tipo	Caractere	Tipo do título.
Cliente	Caractere	Cliente do título.
Loja	Caractere	Loja do título.
Valor Recebido	Numérico	Valor recebido do título.
Data da Baixa	Data	Data da baixa do título.

...

Bloco de código

language	vb
theme	Midnight
firstline	1
title	F200BXTI
linenumbers	true

#INCLUDE "Totvs.ch"
 
/*/{Protheus.doc} F200BXTI()
 
    Ponto de Entrada para tratamentos  de baixa títulos do retorno dependente do valor da rotina FINA200 -
    função fA200Ger
    @param Paramixb[1] - SE1->E1_FILIAL - FilialFilial do título
    @param Paramixb[2] - SE1->E1_PREFIXO - PrefixoPrefixo do título
    @param Paramixb[3] - SE1->E1_NUM - NumeroNúmero do título
    @param Paramixb[4] - SE1->E1_PARCELA - ParcelaParcela do título
    @param Paramixb[5] - SE1->E1_TIPO - TipoTipo de título
    @param Paramixb[6] - SE1->E1_CLIENTE - ClienteCódigo do cliente
    @param Paramixb[7] - SE1->E1_LOJA - LojaCódigo da loja
    @param Paramixb[8] - Valor nValRecrecebido, -contido Valoreno recebidoarquivo dode títuloretorno
    @param Paramixb[9] - Data dBaixada -baixa Dataretornada deno baixaarquivo dode títuloretorno
 
/*/
User Function F200BXTI()
    Local lRet := .F.
    Local aDadosTit := Paramixb
    
    //Aqui deve ser criada a regra que define se o título será baixado ou não.
    lRet := (AllTrim(aDadosTit[3]) == "FINA200VA" .And. AllTrim(aDadosTit[4]) == "1")
    
    MsgAlert("Titulo a ser baixado: " +aDadosTit[1]+aDadosTit[2]+aDadosTit[3]+aDadosTit[4]+aDadosTit[5]+aDadosTit[6]+aDadosTit[7] + " Valor a ser baixado: " + cValToChar(aDadosTit[8]) + " Data da baixa: " + DTOS(aDadosTit[9]))
Return lRet

...

Árvore de páginas

Versões comparadas

Versão antiga 9

Nova versão Atual

Chave