01. DADOS GERAIS
Linha de Produto: | Microsiga Protheus® |
---|---|
Segmento: | BackOffice |
Módulo: | Financeiro |
Função: | FINA091 - Baixa Automática de MultiFiliais |
02. DESCRIÇÃO
A finalidade do ponto de entrada F091NATUR é a de dar tratamento da variável cNatur090 quando for gerado um título a pagar sem ser preenchido o campo Natureza.
03. PARÂMETROS
Não há
04. DEMAIS INFORMAÇÕES
Ponto de entrada na rotina de Baixa de títulos a Pagar MultiFiliais que permite que seja informada uma natureza para a baixa de um título que não possui o campo Natureza preenchido em seu cadastro.
Importante: Fica com a responsabilidade do ponto de entrada o controle da informação referente a natureza existir no cadastro de naturezas.
O ponto de entrada deve retornar uma variável caractere que contenha um código de natureza a ser utilizado para a gravação do movimento bancário da baixa.
05. EXEMPLO DE UTILIZAÇÃO
#INCLUDE "PROTHEUS.CH" User Function F091Natur() LOCAL cNatur090 := CRIAVAR("E2_NATUREZ") //Space(TamSX3("E2_NATUREZ")1) LOCAL oDlg DEFINE MSDIALOG oDlg FROM 65,000 To 200,340 Title "TESTE NATUREZA" PIXEL @ 01,003 To 68,130 Label "TESTE PE" Of oDlg PIXEL @ 12,008 SAY "NATUREZA" SIZE 30,10 Of oDlg PIXEL @ 12,040 MSGET cNatur090 F3 "SED" SIZE 50,10 Of oDlg PIXEL DEFINE SBUTTON FROM 57,070 Type 1 Action If((!Empty(cNatur090)),(nOpca := 1,oDlg:End()),HELP(" ",1,"OBRIGAT",,SPACE(45),3,0)) ENABLE PIXEL OF oDlg ACTIVATE DIALOG oDlg CENTERED Return cNatur090
Observação
Este ponto de entrada está presente na função F091Natur()