- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Manipulação de MSDialog com Consulta Padrão
×
Linguagem de Programação ADVPL
Perguntas Manipulação de MSDialog com Consulta Padrão
- Mjuniorfacic
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 119
- Obrigados Recebidos: 0
10 anos 9 meses atrás #20922
por Mjuniorfacic
Manipulação de MSDialog com Consulta Padrão foi criado por Mjuniorfacic
Boa tarde Galera,
Estou tomando uma surra do MSDialog, apos clicar no botão para retornar o numera da NF-e na tabela SF2 ele nao preenche na tela com o numero retornado da consulta...
User Function ENVXMLDAN
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Declaracao de Variaveis ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
Private cAlias1 := "QUERY1"
Private cQuery1 := ""
Private cAlias2 := "QUERY2"
Private cQuery2 := ""
Private cPergs := "ENVXMLDAN"
Private aPergs := {}
Private cDe := RTrim(UsrRetMail(__cUserID)) + ";" + SPACE(150)
Private cNFe := SPACE(9)
Private nCount := 0
_oDlg := MsDialog():New(153,180,260,595,OemToAnsi("Reenvio do XML e PDF da Danfe"),,,,,,,,oMainWnd,.T.)
_oSay := TSay():New(007,010,{|| "Data:"},_oDlg,,advfont,,,,.T.)
_oGet := TGet():New(005,035,{||cNFe},_oDlg,065,010,,,,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,"SF2",cNFe,,,,)
_oSay := TSay():New(023,010,{|| "Email Adicional:"},_oDlg,,advfont,,,,.T.)
_oGet := TGet():New(021,050,{||cDe },_oDlg,150,010,,,,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cDe,,,,)
oBtOK := TButton():New(038, 010,"Envia Email",_oDlg,{|| Envia()},090,012,,advfont,,.T.)
oBtFim := TButton():New(038, 110,"Cancela" ,_oDlg,{|| _oDlg:End()} ,090,012,,advfont,,.T.)
ACTIVATE DIALOG _oDlg CENTERED
Return(.T.)
Onde estou errando?
Estou tomando uma surra do MSDialog, apos clicar no botão para retornar o numera da NF-e na tabela SF2 ele nao preenche na tela com o numero retornado da consulta...
User Function ENVXMLDAN
//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Declaracao de Variaveis ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
Private cAlias1 := "QUERY1"
Private cQuery1 := ""
Private cAlias2 := "QUERY2"
Private cQuery2 := ""
Private cPergs := "ENVXMLDAN"
Private aPergs := {}
Private cDe := RTrim(UsrRetMail(__cUserID)) + ";" + SPACE(150)
Private cNFe := SPACE(9)
Private nCount := 0
_oDlg := MsDialog():New(153,180,260,595,OemToAnsi("Reenvio do XML e PDF da Danfe"),,,,,,,,oMainWnd,.T.)
_oSay := TSay():New(007,010,{|| "Data:"},_oDlg,,advfont,,,,.T.)
_oGet := TGet():New(005,035,{||cNFe},_oDlg,065,010,,,,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,"SF2",cNFe,,,,)
_oSay := TSay():New(023,010,{|| "Email Adicional:"},_oDlg,,advfont,,,,.T.)
_oGet := TGet():New(021,050,{||cDe },_oDlg,150,010,,,,,,.F.,,.T.,,.F.,,.F.,.F.,,.F.,.F.,,cDe,,,,)
oBtOK := TButton():New(038, 010,"Envia Email",_oDlg,{|| Envia()},090,012,,advfont,,.T.)
oBtFim := TButton():New(038, 110,"Cancela" ,_oDlg,{|| _oDlg:End()} ,090,012,,advfont,,.T.)
ACTIVATE DIALOG _oDlg CENTERED
Return(.T.)
Onde estou errando?
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Manipulação de MSDialog com Consulta Padrão
Tempo para a criação da página:0.085 segundos