× Linguagem de Programação ADVPL

Perguntas Manipulação de MSDialog com Consulta Padrão

Mais
10 anos 9 meses atrás #20922 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?

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.085 segundos
Joomla templates by a4joomla