Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:Financeiro (SIGAFIN)
Função:Borderô de pagamentos (FINA240)
País:Brasil

02. VISÃO GERAL

Ponto de entrada que permite incluir validação adicional aos títulos selecionados na geração do borderô. Será executado apenas se for confirmada a geração do borderô.

03. PARÂMETROS

PosiçãoTipoDescrição
1CaractereMarcação dos borderôs selecionados
2Caractere

Tabela temporária para manipulação de campos dos títulos selecionados, baseado na SE2 (Contas a pagar), e os campos abaixo:

CampoConteúdo
OKIndica se o registro está marcado ou não
E2_VLACESTotal de valores acessórios 
NUM_REGRecno do registro da SE2.
VLSOMAABATSomatória de abatimentos do título
CALCULADODefine se o campo VLSOMAABAT está preenchido, quando for igual a '1'.
VLSOMARETTotal de impostos, calculados pelo Configurador de Tributos.

04. RETORNO

TipoDescrição
LógicoVerdadeiro para prosseguir com a geração do borderô e falso para não prosseguir.

05. EXEMPLO


Exemplo de execução
#include "protheus.ch"
 
User function F240OK2()
    local lRet:= .F.
    lRet := MsgYesNo("Os dados do borderô estão OK?","P.E. F240OK2")
Return lRet
 
User Function F240TDOK
    Local cMarca := Paramixb[1] //marca usada no título selecionado
    Local cAliasSE2P := Paramixb[2] //tabela temporária com os títulos da tela
    Local lRetorno := .F.

    If !Empty( cMarca )
        (cAliasSE2P)->(DBGOTOP()) //posiciono no inicio da tabela temporária
        While !(cAliasSE2P)->(Eof())
            If (cAliasSE2P)->E2_OK == cMarca
                If Empty( (cAliasSE2P)->E2_Naturez )
                    Alert( " Natureza vazia, documento: " + (cAliasSE2P)->E2_Num )
                    lRetorno := .F.
                    Exit
                Else
                    lRetorno := .T.
                    (cAliasSE2P)->(dbSkip())
                EndIf
            Else
                (cAliasSE2P)->(dbSkip())
            EndIf
        EndDo
    EndIf
Return lRetorno