- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- MsDialog Com BITMAP [RESOLVIDO]
×
Linguagem de Programação ADVPL
Perguntas MsDialog Com BITMAP [RESOLVIDO]
- gustavo13
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
11 anos 5 meses atrás - 11 anos 5 meses atrás #14396
por gustavo13
MsDialog Com BITMAP [RESOLVIDO] foi criado por gustavo13
Olá!
Como posso adicionar um bitmap em um msdialog, onde este BITMAP estará salvo em uma pasta abaixo do protheus data.
Agradeço.
Como posso adicionar um bitmap em um msdialog, onde este BITMAP estará salvo em uma pasta abaixo do protheus data.
Agradeço.
Ultima edição: 11 anos 5 meses atrás por gustavo13.
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 5 meses atrás #14399
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 Com BITMAP
DEFINE MSDIALOG oDlg TITLE "GERA MAILING LEADS - ARQUIVO TXT" FROM 000, 000 TO 350, 600 COLORS 0, 16777215 PIXEL
@ 011, 013 SAY oSay2 PROMPT "Vendedor De:" SIZE 175, 009 OF oDlg COLORS 0, 16777215 PIXEL
@ 020, 012 MSGET oGet1 VAR cGet1 SIZE 085, 010 OF oDlg COLORS 0, 16777215 F3 "SZ3" PIXEL
@ 011, 098 SAY oSay2 PROMPT "Vendedor Até:" SIZE 175, 009 OF oDlg COLORS 0, 16777215 PIXEL
@ 020, 098 MSGET oGet5 VAR cGet5 SIZE 085, 010 OF oDlg COLORS 0, 16777215 F3 "SZ3" PIXEL
@ 047, 012 MSCOMBOBOX oComboBo1 VAR nComboBo1 ITEMS {"1=Quente","2=Morno","3=Frio","4=Concluido","5=Desistente","6=Quente,Morno e Frio","7=Morno e Frio","8=Todos"} SIZE 139, 010 OF oDlg COLORS 0, 16777215 PIXEL
@ 036, 012 SAY oSay3 PROMPT "Status Das Negociações" SIZE 139, 010 OF oDlg COLORS 0, 16777215 PIXEL
@ 064, 013 SAY oSay4 PROMPT "Produto De" SIZE 073, 008 OF oDlg COLORS 0, 16777215 PIXEL
@ 072, 012 MSGET oGet2 VAR cGet2 SIZE 063, 010 OF oDlg COLORS 0, 16777215 F3 "SB1" PIXEL
@ 064, 098 SAY oSay5 PROMPT "Produto Até" SIZE 061, 009 OF oDlg COLORS 0, 16777215 PIXEL
@ 072, 098 MSGET oGet3 VAR cGet3 SIZE 061, 010 OF oDlg COLORS 0, 16777215 F3 "SB1" PIXEL
@ 092, 013 SAY oSay6 PROMPT "DT Retorno de" SIZE 061, 009 OF oDlg COLORS 0, 16777215 PIXEL //BRUCE
@ 100, 012 MSGET oGet6 VAR cGet6 SIZE 061, 010 OF oDlg COLORS 0, 16777215 PIXEL
@ 092, 098 SAY oSay7 PROMPT "DT Retorno ate" SIZE 061, 009 OF oDlg COLORS 0, 16777215 PIXEL //BRUCE
@ 100, 098 MSGET oGet7 VAR cGet7 SIZE 061, 010 OF oDlg COLORS 0, 16777215 PIXEL
@ 116, 013 SAY oSay8 PROMPT "Veiculo de" SIZE 061, 009 OF oDlg COLORS 0, 16777215 PIXEL //BRUCE
@ 125, 012 MSGET oGet8 VAR cGet8 SIZE 061, 010 OF oDlg COLORS 0, 16777215 F3 "SUH" PIXEL
@ 116, 098 SAY oSay9 PROMPT "Veiculo ate" SIZE 061, 009 OF oDlg COLORS 0, 16777215 PIXEL //BRUCE
@ 125, 098 MSGET oGet9 VAR cget9 SIZE 061, 010 OF oDlg COLORS 0, 16777215 F3 "SUH" PIXEL
@ 140, 012 SAY oSay5 PROMPT "Gravar o Arquivo TXT no local" SIZE 061, 009 OF oDlg COLORS 0, 16777215 PIXEL
@ 140, 220 MSGET oGet4 VAR cGet4 SIZE 190, 010 OF oDlg COLORS 0, 16777215 PIXEL
@ 140, 210 BUTTON oButton1 PROMPT "Buscar" SIZE 033, 013 OF oDlg ACTION SALVAREM() PIXEL
@ 030, 159 BITMAP oBitmap1 SIZE 040, 015 OF oDlg FILENAME "\system\lgrl05.bmp" NOBORDER PIXEL
DEFINE SBUTTON oSButton1 FROM 155, 175 TYPE 01 OF oDlg ENABLE ACTION (gertxtld())
DEFINE SBUTTON oSButton2 FROM 155, 210 TYPE 02 OF oDlg ENABLE ACTION (oDlg:End())
ACTIVATE MSDIALOG oDlg CENTERED
@ 011, 013 SAY oSay2 PROMPT "Vendedor De:" SIZE 175, 009 OF oDlg COLORS 0, 16777215 PIXEL
@ 020, 012 MSGET oGet1 VAR cGet1 SIZE 085, 010 OF oDlg COLORS 0, 16777215 F3 "SZ3" PIXEL
@ 011, 098 SAY oSay2 PROMPT "Vendedor Até:" SIZE 175, 009 OF oDlg COLORS 0, 16777215 PIXEL
@ 020, 098 MSGET oGet5 VAR cGet5 SIZE 085, 010 OF oDlg COLORS 0, 16777215 F3 "SZ3" PIXEL
@ 047, 012 MSCOMBOBOX oComboBo1 VAR nComboBo1 ITEMS {"1=Quente","2=Morno","3=Frio","4=Concluido","5=Desistente","6=Quente,Morno e Frio","7=Morno e Frio","8=Todos"} SIZE 139, 010 OF oDlg COLORS 0, 16777215 PIXEL
@ 036, 012 SAY oSay3 PROMPT "Status Das Negociações" SIZE 139, 010 OF oDlg COLORS 0, 16777215 PIXEL
@ 064, 013 SAY oSay4 PROMPT "Produto De" SIZE 073, 008 OF oDlg COLORS 0, 16777215 PIXEL
@ 072, 012 MSGET oGet2 VAR cGet2 SIZE 063, 010 OF oDlg COLORS 0, 16777215 F3 "SB1" PIXEL
@ 064, 098 SAY oSay5 PROMPT "Produto Até" SIZE 061, 009 OF oDlg COLORS 0, 16777215 PIXEL
@ 072, 098 MSGET oGet3 VAR cGet3 SIZE 061, 010 OF oDlg COLORS 0, 16777215 F3 "SB1" PIXEL
@ 092, 013 SAY oSay6 PROMPT "DT Retorno de" SIZE 061, 009 OF oDlg COLORS 0, 16777215 PIXEL //BRUCE
@ 100, 012 MSGET oGet6 VAR cGet6 SIZE 061, 010 OF oDlg COLORS 0, 16777215 PIXEL
@ 092, 098 SAY oSay7 PROMPT "DT Retorno ate" SIZE 061, 009 OF oDlg COLORS 0, 16777215 PIXEL //BRUCE
@ 100, 098 MSGET oGet7 VAR cGet7 SIZE 061, 010 OF oDlg COLORS 0, 16777215 PIXEL
@ 116, 013 SAY oSay8 PROMPT "Veiculo de" SIZE 061, 009 OF oDlg COLORS 0, 16777215 PIXEL //BRUCE
@ 125, 012 MSGET oGet8 VAR cGet8 SIZE 061, 010 OF oDlg COLORS 0, 16777215 F3 "SUH" PIXEL
@ 116, 098 SAY oSay9 PROMPT "Veiculo ate" SIZE 061, 009 OF oDlg COLORS 0, 16777215 PIXEL //BRUCE
@ 125, 098 MSGET oGet9 VAR cget9 SIZE 061, 010 OF oDlg COLORS 0, 16777215 F3 "SUH" PIXEL
@ 140, 012 SAY oSay5 PROMPT "Gravar o Arquivo TXT no local" SIZE 061, 009 OF oDlg COLORS 0, 16777215 PIXEL
@ 140, 220 MSGET oGet4 VAR cGet4 SIZE 190, 010 OF oDlg COLORS 0, 16777215 PIXEL
@ 140, 210 BUTTON oButton1 PROMPT "Buscar" SIZE 033, 013 OF oDlg ACTION SALVAREM() PIXEL
@ 030, 159 BITMAP oBitmap1 SIZE 040, 015 OF oDlg FILENAME "\system\lgrl05.bmp" NOBORDER PIXEL
DEFINE SBUTTON oSButton1 FROM 155, 175 TYPE 01 OF oDlg ENABLE ACTION (gertxtld())
DEFINE SBUTTON oSButton2 FROM 155, 210 TYPE 02 OF oDlg ENABLE ACTION (oDlg:End())
ACTIVATE MSDIALOG oDlg CENTERED
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- gustavo13
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- MsDialog Com BITMAP [RESOLVIDO]
Tempo para a criação da página:0.117 segundos