01. DADOS GERAIS
| Produto: | | Solucoes_totvs_cross |
|---|
| SolucaoCross | TOTVS Backoffice |
|---|
|
|
|---|
| 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
| Bloco de código |
|---|
| language | java |
|---|
| theme | Midnight |
|---|
| firstline | 1 |
|---|
| title | Exemplo de execução |
|---|
| linenumbers | true |
|---|
|
#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 |
...
