Histórico da Página
Descrição | Ponto de Entrada para tratamento da Variavel Cnatur quando for gerado um titulo 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 //"Pago con Cheques de Terceros." @ 01,003 To 68,130 Label "TESTE PE" Of oDlg PIXEL //"Datos del cheque" @ 12,008 SAY "NATUREZA" SIZE 30,10 Of oDlg PIXEL //"Cliente" @ 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 |
...