Histórico da Página
...
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:
|
04. RETORNO
Tipo | Descrição |
---|---|
Lógico | Verdadeiro para prosseguir com a geração do borderô e falso para não prosseguir. |
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#include "protheus.ch" userUser function F240OK2() local lRet:= .F. lRet := MsgYesNo("Os dados do borderô estão OK?","P.E. F240OK2") Return lRet User Function F240TDOK Local peAliasSE2 Local cMarca := Paramixb[1] //marca usada no título selecionado Local cAliasSE2P := paramixbParamixb[2] //tabela temporária com os títulos da tela Local lRetorno := .F. If .Not. !Empty( paramixb[1]cMarca ) (cAliasSE2P)->(DBGOTOP()) //posiciono no inicio da tabela temporária While !(peAliasSE2cAliasSE2P)->(Eof()) If (cAliasSE2P)->E2_OK == cMarca If Empty( E2(cAliasSE2P)->E2_Naturez ) Alert( " Natureza vazia, documento: " + E2(cAliasSE2P)->E2_Num ) lRetorno := .f. Exit Else F. Exit Else lRetorno := .t. dbSkip() EndIf End T. (cAliasSE2P)->(dbSkip()) EndIf Else (cAliasSE2P)->(dbSkip()) EndIf EndDo EndIf Return lRetorno |
Templatedocumentos |
---|
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas