Histórico da Página

Descrição

Ponto de Entrada para tratamento da Variavel variável Cnatur090 quando for gerado um titulo título a pagar sem ser preenchido o campo Natureza.

Observações

Está presente na função F091Natur()

Exemplos

#INCLUDE "PROTHEUS.CH"User Function F091Natur()

LOCAL cNatur090 := CRIAVAR("E2_NATUREZ") //Space(TamSX3("E2_NATUREZ")1)

LOCAL oDlg

Local lAcepto := .F.

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

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

FINA091.PRW