Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Guilherme Augusto de Sordi Nogueira Guedes

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Pamela Bernardo de Souza

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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çãoTipoDescrição
1CaractereMarcação dos borderôs selecionados
2Caractere

Tabela

corrente

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

CampoConteúdo
OKIndica se o registro está marcado ou não
E2_VLACESTotal de valores acessórios 
NUM_REGRecno do registro da SE2.
VLSOMAABATSomatória de abatimentos do título
CALCULADODefine se o campo VLSOMAABAT está preenchido, quando for igual a '1'.
VLSOMARETTotal de impostos, calculados pelo Configurador de Tributos.

04. RETORNO

TipoDescrição
LógicoVerdadeiro para prosseguir com a geração do borderô e falso para não prosseguir.

...

Bloco de código
languagejava
themeMidnight
firstline1
titleExemplo de execução
linenumberstrue
#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

...