Painel de líderes

Sitef em homologação o que tu passar ele vai aprovar no PIX via QrCode. ele vai exibir e aprovar uns segundos depois já em produção ele aguarda com o QrCode até 90 segundos para receber um retorno, senão ele cancela a transação dai tem que refazer

faco assimn var XMLDoc: IXMLDocument; try w_ndi := ''; try XMLDoc := TXMLDocument.Create(nil); xmlDoc.LoadFromFile(sFilenameEdit2.FileName); // 'D:\Desenvolvimento\Dados\Bd_FDiesel\1700656254.xml'); XMLDoc.Active := true; ListaDeclaracoes:=XMLDoc.ChildNodes.FindNode('ListaDeclaracoes'); if ListaDeclaracoes <> nil then begin NodeDeclaracao := ListaDeclaracoes.ChildNodes.FindNode('declaracaoImportacao'); if NodeDeclaracao <> nil then begin for i := 0 to NodeDeclaracao.ChildNodes.Count - 1 do begin if NodeDeclaracao.ChildNodes[i].NodeName = 'adicao' then begin NodeAdicao := NodeDeclaracao.ChildNodes[i]; for x := 0 to NodeAdicao.ChildNodes.Count - 1 do begin if NodeAdicao.ChildNodes[x].NodeName = 'numeroDI' then w_ndi := NodeAdicao.ChildNodes['numeroDI'].text; end; end; end; end; end; except on E:Exception do mensagem('Problema ao ler arquivo xml.',e.Message,'Erro','E'); end; finally XMLDoc.Active := false; end; depois vc ler as tags da DI try itedi := 0; if ADQuery_it_pedido.Active then ADQuery_it_pedido.EmptyDataSet; ListaDeclaracoes:=XMLDoc.ChildNodes.FindNode('ListaDeclaracoes'); if ListaDeclaracoes <> nil then begin NodeDeclaracao := ListaDeclaracoes.ChildNodes.FindNode('declaracaoImportacao'); if NodeDeclaracao <> nil then begin // if NodeDeclaracao.ChildNodes[i].NodeName='modalidadeDespachoNome' then edmodalidadeDespachoNome.Text := NodeDeclaracao.ChildNodes['modalidadeDespachoNome'].text; edimportador.Text := NodeDeclaracao.ChildNodes['importadorNumero'].text+' '+NodeDeclaracao.ChildNodes['importadorNome'].text; edrepresentante.Text := NodeDeclaracao.ChildNodes['importadorCpfRepresentanteLegal'].text+' '+NodeDeclaracao.ChildNodes['importadorNomeRepresentanteLegal'].text; eddocumentoChegadaCargaNome.Text := NodeDeclaracao.ChildNodes['documentoChegadaCargaNome'].text; eddocumentoChegadaCargaNumero.Text := NodeDeclaracao.ChildNodes['documentoChegadaCargaNumero'].text; edarmazenamentoRecintoAduaneiroNome.Text := NodeDeclaracao.ChildNodes['armazenamentoRecintoAduaneiroNome'].text; entendeu?

Olá Juliomar! Executei o ApagarAcbr, instalei novamente o ACBr e funcionou. Obrigado pela atenção.

tem certeza que olhou bem? Exemplos/ACBrDFe/ACBrNFe/ tem ali no exemplo

Boa tarde Renato, Já enviei para o repositório.

Veja também:

Fiz o teste no Demo tbém e deu o mesmo erro

vou postar aqui uma contribuicao. Viz um pequeno ajuste para conseguir enviar email com autenticação OAuth2 do gmail. Para enviar basta informar o acess_token no lugar do password. em anexo a unit modificada. smtpsend.pas smtpsend.pas

Obrigado @volmir, interessante essa abordagem... Envie para o SVN... rev, 17034

RESOLVIDO Com base na luz que você deu : Fiz assim e consegui imprimir estando o TS localizado em outro local em rede totalmente distinta. Vou passar Todos os Passos para quem precisar : A - No Servidor, como usuário com privilégios administrativos : 1 - Abra o shell ( cmd ) digite gpedit.msc 2 - No editor de diretiva vá em > Configuração do computador > Modelos Administrativos > Componentes do Windows > Serviços de Área de Trabalho remota > Host de sessão de Área de Trabalho Remota > Redirecionamento de Impressora > Desabilite a opção : Usar primeiro o driver de impressora easy print de área de trabalho remota. ( normalmente não esta definido e assume o default ) B - Instale os drivers da impressora no servidor, coloque qualquer porta apenas para o servidor possuir os drivers, com o driver easy print em impressora USB não funciona C - reinicie o servidor para ele ler as politicas D - Na maquina com a impressora ( no caso a impressora esta ligada na minha maquina, mas acho que o redirecionamento para outra da rede da certo, desde que tenha os drivers ) 1 - na aba compartilhamento, compartilhe ( sem senhas ) 2 - Abra o Shell e digite NET USE LPT1 \\IP( ou hostname)\NOME DO COMPARTILHAMENTO E - No Cliente de TS, clique em opções > aba recursos locais> botão MAis, e marque portas, ok Entre no cliente e conecte com o servidor, o teste básco pode ser feito assim : abra o shell da sessão, digite dir >lpt1 e deve imprimir na impressora No caso eu coloquei em porta LPT1 e passou a imprimir normalmente Importante : Para o que a MS diz ser redirecionamento automático < isso somente com os drivers originais > Grande abraço Daniel