Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:

TOTVS Backoffice (Linha Protheus) - Financeiro (SIGAFIN)

Função:FINA090 - Baixas a Pagar Automática

02. DESCRIÇÃO

O ponto de entrada FA090TIT será utilizado para a confirmação da baixa dos títulos marcados.

Será acionado ao clicar em Salvar após a seleção dos títulos e irá ser executado para cada título marcado, permitindo validar a baixa título a título.

A tabela SE2 estará filtrada e posicionada no título marcado.

03. PARÂMETROS

Nome

Tipo

Descrição

cBanco

Caracter

Banco utilizado para baixar o título

cAgencia

Caracter

Agencia utilizada para baixar o título

cConta

Caracter

 Conta utilizada para baixar o título

cCheque

Caracter

Número do cheque

04. RETORNO

Nome

Tipo

Descrição

lRet

Lógico

Retorne .T. para confirmar a baixa do título e .F. para não realizar a baixa do título.

05. EXEMPLO DE UTILIZAÇÃO

F16QYCRT
#include "protheus.ch"

//-------------------------------------------------------------------
/*/{Protheus.doc}  FA090TIT 

 Ponto de entrada que permite confirmar ou negar a baixa de um título selecionado

@param Paramixb[1] – Banco
@param Paramixb[2] – Agencia
@param Paramixb[3] – Conta
@param Paramixb[4] – Cheque

//-------------------------------------------------------------------    

     
User Function FA090TIT ()
    Local lRet := .T.
    Local cBcoPgto := PARAMIXB[1]
    Local cAgcPgto := PARAMIXB[2]
    Local cCtoPgto := PARAMIXB[3]
    Local cCheqPgto := Iif(!Empty(PARAMIXB[4]),PARAMIXB[4],"Não utilizou cheque")
    Local cTitulo   :=  SE2->E2_PREFIXO + SE2->E2_NUM
  

    	lRet:= MsgYesNo("Confirmar a baixa do título " + cTitulo + CRLF + CRLF + ;
        " No banco: " + cBcoPgto + CRLF + CRLF + ;
        "Agencia: " + cAgcPgto + CRLF + CRLF + ;
        "Conta: " + cCtoPgto + CRLF + CRLF +;
        "Com o cheque: " + cCheqPgto   ,"PE: FA090TIT")



Return lRet