Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:BackOffice
Módulo:Financeiro
Função:

FINA200 - Retorno de Cobrança

Requisito/Story/Issue (informe o requisito relacionado) :DFINTES-17045

02. DESCRIÇÃO

O ponto de entrada F200BXTI tem como finalidade validar se um título processado no retorno de cobrança será baixado.

Card documentos
InformacaoSe os títulos não forem baixados pelo uso do ponto de entrada F200BXTI o ponto de entrada F200TIT não será executado.
TituloIMPORTANTE!

03. PARÂMETROS

Nome

Tipo

Descrição

Filial

Caractere

Filial do título.

Prefixo

Numérico

Prefixo do título.

NumeroNuméricoNumero do título.
ParcelaCaractereParcela do título.
TipoCaractereTipo do título.
ClienteCaractereCliente do título.
LojaCaractereLoja do título.
Valor RecebidoNuméricoValor recebido do título.
Data da BaixaDataData da baixa do título.

04. RETORNO

Nome

Tipo

Descrição

lRet

Logico

Retorna .T. se a baixa do título será feita ou .F.  se a baixa não será feita.

05. EXEMPLO DE UTILIZAÇÃO

Bloco de código
languagevb
themeMidnight
firstline1
titleF200BXTI
linenumberstrue
#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] - Filial do título
    @param Paramixb[2] - Prefixo do título
    @param Paramixb[3] - Número do título
    @param Paramixb[4] - Parcela do título
    @param Paramixb[5] - Tipo de título
    @param Paramixb[6] - Código do cliente
    @param Paramixb[7] - Código da loja
    @param Paramixb[8] - Valor recebido, contido no arquivo de retorno
    @param Paramixb[9] - Data da baixa retornada no arquivo de retorno
 
/*/
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


HTML
<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>