Histórico da Página
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
...
Descrição
...
quando for gerado um
...
título a pagar sem ser preenchido o campo Natureza.
...
Observações
...
Está presente na função F091Natur()
...
Exemplos
...
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
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "PROTHEUS.CH" User Function F091Natur() |
...
LOCAL cNatur090 := CRIAVAR("E2_NATUREZ") //Space(TamSX3("E2_NATUREZ")1) |
...
LOCAL |
...
Local lAcepto := .F.
...
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()
Activate Dialog oDlg CENTERED
Return cNatur090
...
Preview
...
Veja também
...
Idioma
...
Português(Brasil)
...
Versões
...
Microsiga_Protheus 10 e 11
...
Sistemas Operacionais Suportados
...
Todos
...
Compatível com as Bases de Dados
...
Todas
...
Updates
...
Parâmetros
...
Retorno
...
Return cNatur090 := Retorna a Natureza selecionada ao baixar o titulo.
...
Eventos de chamada do Ponto de Entrada
...
If lF091Natur
cNatur090 := ExecBlock("F091Natur",.F.,.F.)
If !Empty(cNatur090)
aArea := GetArea()
dbselectArea("SED")
dbsetorder(1)
If !DbSeek(xFilial("SED")+cNatur090)
cNatur090 := SE2->E2_NATUREZ
Endif
RestArea(aArea)
Else
cNatur090 := SE2->E2_NATUREZ
EndIf
Else
cNatur090 := SE2->E2_NATUREZ
Endif
...
Variáveis
...
Local lF091Natur := (Existblock("F091NATUR") ) / cNatur090
...
Programa Fonte
...