×
Linguagem de Programação ADVPL
Perguntas MsDialog()
- Mjuniorfacic
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
10 anos 11 meses atrás #20151
por Mjuniorfacic
MsDialog() foi criado por Mjuniorfacic
Boa tarde Amigos(as),
Usei a função MsDialog para criar a janela abaixo, poderem os funcionários estão clicando no X de fechar e não estão informando obrigatoriamente a Data.
Alguém poderia me dizer como retirar o X ou usar outra função que nao apareça o X da telinha
Usei a função MsDialog para criar a janela abaixo, poderem os funcionários estão clicando no X de fechar e não estão informando obrigatoriamente a Data.
Alguém poderia me dizer como retirar o X ou usar outra função que nao apareça o X da telinha
Por favor Acessar ou Registrar para participar da conversa.
- Mjuniorfacic
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
10 anos 11 meses atrás #20152
por Mjuniorfacic
Respondido por Mjuniorfacic no tópico MsDialog()
Parte do fonte
Private dDate := ctod("")
Private dDT := ""
Private oDT
Private lRet := .F.
_oDlg := MsDialog():New(153,180,230,395,OemToAnsi("Data de Recebimento"),,,,,,,,oMainWnd,.T.)
_oGet := TGet():New(005,035,{|u| If(PCount()>0,dDate:=u,dDate)},_oDlg,065,010,,,,,advfont,,,.T.,,,,,,,.F.,.F.,,)
_oSay := TSay():New(007,010,{|| "Data:"},_oDlg,,advfont,,,,.T.)
oBtOK := TButton():New(025, 035,"Confirma",_oDlg,{|| Valida(dDate)},045,012,,advfont,,.T.)
ACTIVATE DIALOG _oDlg CENTERED
Return(lRet)
Private dDate := ctod("")
Private dDT := ""
Private oDT
Private lRet := .F.
_oDlg := MsDialog():New(153,180,230,395,OemToAnsi("Data de Recebimento"),,,,,,,,oMainWnd,.T.)
_oGet := TGet():New(005,035,{|u| If(PCount()>0,dDate:=u,dDate)},_oDlg,065,010,,,,,advfont,,,.T.,,,,,,,.F.,.F.,,)
_oSay := TSay():New(007,010,{|| "Data:"},_oDlg,,advfont,,,,.T.)
oBtOK := TButton():New(025, 035,"Confirma",_oDlg,{|| Valida(dDate)},045,012,,advfont,,.T.)
ACTIVATE DIALOG _oDlg CENTERED
Return(lRet)
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
-
- Desconectado
- Administrador
-
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
10 anos 11 meses atrás - 10 anos 11 meses atrás #20153
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico MsDialog()
DEFINE MSDIALOG oDlg TITLE "Geração Pedidos Filhos" FROM 000, 000 TO 500, 1200 COLORS 0, 16777215 PIXEL Style DS_MODALFRAME
oDlg:lEscClose := .F. // desabilita a tecla ESCape pra fechar a janela.
oDlg:lEscClose := .F. // desabilita a tecla ESCape pra fechar a janela.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Ultima edição: 10 anos 11 meses atrás por lalberto.
Por favor Acessar ou Registrar para participar da conversa.
- Mjuniorfacic
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
10 anos 11 meses atrás #20155
por Mjuniorfacic
Respondido por Mjuniorfacic no tópico MsDialog()
Desculpe Luiz mas nao entendi...
Apenas incluir a linha:
oDlg:lEscClose := .F. // desabilita a tecla ESCape pra fechar a janela.
Ja basta?
Apenas incluir a linha:
oDlg:lEscClose := .F. // desabilita a tecla ESCape pra fechar a janela.
Ja basta?
Por favor Acessar ou Registrar para participar da conversa.
- Mjuniorfacic
- Autor do Tópico
- Desconectado
- Membro Especialista
-
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
10 anos 11 meses atrás #20172
por Mjuniorfacic
Respondido por Mjuniorfacic no tópico MsDialog()
Ficou Bom demais
DEFINE MSDIALOG _oDlg TITLE "Data de Recebimento" STYLE DS_MODALFRAME From 153,180 To 230,395 OF oMainWnd PIXEL
_oDlg:lEscClose := .F.
_oGet := TGet():New(005,035,{|u| If(PCount()>0,dDate:=u,dDate)},_oDlg,065,010,,,,,advfont,,,.T.,,,,,,,.F.,.F.,,)
_oSay := TSay():New(007,010,{|| "Data:"},_oDlg,,advfont,,,,.T.)
oBtOK := TButton():New(025, 035,"Confirma",_oDlg,{|| Valida(dDate)},045,012,,advfont,,.T.)
ACTIVATE DIALOG _oDlg CENTERED
Return(lRet)
DEFINE MSDIALOG _oDlg TITLE "Data de Recebimento" STYLE DS_MODALFRAME From 153,180 To 230,395 OF oMainWnd PIXEL
_oDlg:lEscClose := .F.
_oGet := TGet():New(005,035,{|u| If(PCount()>0,dDate:=u,dDate)},_oDlg,065,010,,,,,advfont,,,.T.,,,,,,,.F.,.F.,,)
_oSay := TSay():New(007,010,{|| "Data:"},_oDlg,,advfont,,,,.T.)
oBtOK := TButton():New(025, 035,"Confirma",_oDlg,{|| Valida(dDate)},045,012,,advfont,,.T.)
ACTIVATE DIALOG _oDlg CENTERED
Return(lRet)
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.122 segundos