...
Produto: |
SolucaoCross | TOTVS Backoffice | |
---|---|---|---|
Linha Línea de Produtoproducto: |
Linha | Linha Línea Protheus | |
Segmento: |
Segmento | Backoffice | |
Módulo: | Financeiro Financiero (SIGAFIN) | ||
FunçãoFunción: | Borderô Borderó de pagamentos pagos (FINA240) | ||
País: | Brasil |
...
Punto
...
Ponto de entrada que permite incluir validação la validación adicional a los títulos seleccionados en la generación del borderó. Se ejecutará solamente si se confirmara la generación del borderó
aos títulos selecionados na geração do borderô. Será executado apenas se for confirmada a geração do borderô.
...
Posição Posición | Tipo | Descrição Descripción | ||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
1 | Caractere | Carácter | Marcación de los borderós seleccionados Marcação dos borderôs selecionados | |||||||||||||||||||||||||
2 | Caractere Carácter | Tabela temporária Tabla temporal para manipulação manejo de los campos dos de los títulos selecionadosseleccionados, baseado na basado en SE2 (Contas a Cuentas por pagar), e os y los siguientes campos abaixo:
|
...
Tipo | Descrição Descripción |
---|---|
Lógico | Verdadeiro para prosseguir com a geração do borderô e falso para não prosseguir Verdadero para proseguir con la generación del borderó y falso para no proseguir. |
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#include "protheus.ch" User function F240OK2() local lRet:= .F. lRet := MsgYesNo("Os¿Los dadosdatos dodel borderôborderó estãoestán OK?","P.E. F240OK2") Return lRet User Function F240TDOK Local cMarca := Paramixb[1] //marca usadautilizada en noel título selecionado seleccionado Local cAliasSE2P := Paramixb[2] //tabelatabla temporáriatemporal comcon oslos títulos dade tela la pantalla Local lRetorno := .F. If !Empty( cMarca ) (cAliasSE2P)->(DBGOTOP()) //posicionomarco en noel inicio de dala tabelatabla temporáriatemporal While While !(cAliasSE2P)->(Eof()) If (cAliasSE2P)->E2_OK == cMarca If Empty( (cAliasSE2P)->E2_Naturez ) Alert( " Natureza vazia, documentoModalidad vacía: " + (cAliasSE2P)->E2_Num ) lRetorno := .F. Exit Else lRetorno := .T. (cAliasSE2P)->(dbSkip()) EndIf Else (cAliasSE2P)->(dbSkip()) EndIf EndDo EndIf Return lRetorno |
...