Exibir origem

01. DADOS GERAIS

Produto:
Linha de Produto:
Segmento:
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ção

Tipo

Descrição

1

Caractere

Marcação dos borderôs selecionados

2

Caractere

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

Campo	Conteúdo
OK	Indica se o registro está marcado ou não
E2_VLACES	Total de valores acessórios
NUM_REG	Recno do registro da SE2.
VLSOMAABAT	Somatória de abatimentos do título
CALCULADO	Define se o campo VLSOMAABAT está preenchido, quando for igual a '1'.
VLSOMARET	Total de impostos, calculados pelo Configurador de Tributos.

04. RETORNO

Tipo	Descrição
Lógico	Verdadeiro para prosseguir com a geração do borderô e falso para não prosseguir.

05. EXEMPLO

#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