...
| 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 |
...