Fabio Talhiaro

Juliomar Instalei Microsoft Visual C++ conforme enviado no link anterior, porém o erro continua. O que mais pode ser?

Boa tarde! Realizei todas as atualizações pendentes do Windows e mesmo assim continua o mesmo erro somente neste computador: Windows 10 Pro - Versão 20H2 Microsoft Visual C++ 2015-2019 Redistributable (x64) - 14.28.29913 DLL do openssl na versão 1.0.2.5

Boa tarde! Realizei a instalção do sistema em um PC novo com Windows 10, porém está apresentado o erro em anexo ao tentar consultar/emitir NF-e (Erro Interno: 12170). Alguém sabe o que pode ser?

BigWings, era isso mesmo, mandei Assinar antes de Validar agora deu certo, obrigado.

Estão atualizados também, copiei os arquivos que estão na pasta \trunk2\Exemplos\ACBrDFe\Schemas\MDFe.

Boa tarde! Alguém sabe qual o motivo da falha em anexo? Está ocorrendo ao Validar o MDF-e, realizei a atualização hoje do Acbr. Obrigado

Boa tarde! Estou passando pelo mesmo problema. Alguém sabe o que pode ser?

Ricardo, tentei usar o código abaixo mas não da certo: ACBrNFe1.EnviarEmailEvento(Para, ACBrNFe1.Configuracoes.Arquivos.PathSalvar + v_arq + QryNotas.FieldByName('CHAVE_ACESSO_NFE').AsString + '-procEventoNFe.xml', ACBrNFe1.Configuracoes.Arquivos.PathSalvar + v_local + QryNotas.FieldByName('CHAVE_ACESSO_NFE').AsString + '-NFe.xml', 1, 'NF-e Cancelada: ' + QryNotas.FieldByName('NUMERO_NF').AsString, CC, nil); E2010 Incompatible types: 'TStrings' and 'string'

Vinicius, conseguiu enviar o XML de cancelamento? Caso sim, como você fez?

Bom dia! Deu certo, obrigado. O QryAdicao.Next; também estava no local errado.

Bom dia! Estou tentando gerar o XML de uma NF-e de Entrada com Declaração de Importação e Adição, porém estou tendo problemas ao inserir as Adições, o erro está ocorrendo na linha: with DI.adi.Add do O que devo alterar no código abaixo? if not QryDI.IsEmpty then begin QryDI.First; while not QryDI.Eof do begin with Prod.DI.Add do begin nDi := QryDI.FieldByName('NUM_DOC_IMP' ).AsString; dDi := QryDI.FieldByName('DATA_REGISTRO' ).Value; xLocDesemb := QryDI.FieldByName('LOCAL_DESEMB' ).AsString; UFDesemb := QryDI.FieldByName('UF_DESEMB' ).AsString; dDesemb := QryDI.FieldByName('DATA_DESEMB' ).Value; tpViaTransp := QryDI.FieldByName('VIA_TRANSP' ).Value; vAFRMM := QryDI.FieldByName('VLR_AFRMM' ).Value; tpIntermedio:= QryDI.FieldByName('TIPO_IMPORT' ).Value; CNPJ := QryDI.FieldByName('CNPJ_ADQUIRENTE' ).AsString; UFTerceiro := QryDI.FieldByName('UF_ADQUIRENTE' ).AsString; cExportador := QryDI.FieldByName('COD_EXPORTADOR' ).AsString; QryAdicao.Close; QryAdicao.ParamByName('p_id_entrada').Value := QryItensEntr.FieldByName('ID_NF_ENT').Value; QryAdicao.ParamByName('p_id_di' ).Value := QryDI.FieldByName('ID' ).Value; QryAdicao.Open; if not QryAdicao.IsEmpty then begin QryAdicao.First; while not QryAdicao.Eof do begin with DI.adi.Add do begin Adicao.nAdicao := QryAdicao.FieldByName('NUMERO' ).Value; Adicao.nSeqAdi := QryAdicao.FieldByName('SEQUENCIA' ).Value; Adicao.cFabricante := QryAdicao.FieldByName('COD_FABRICANTE').AsString; Adicao.vDescDI := QryAdicao.FieldByName('VLR_DESCONTO' ).Value; Adicao.nDraw := QryAdicao.FieldByName('NUM_DRAWBACK' ).AsString; end; end; QryAdicao.Next; end; end; QryDI.Next; end; end;

Leonardo, realmente era isso, deu certo. Obrigado,

Bom dia! Estou tentando mudar da CAPICOM para WinCrypt mas está dando o erro abaixo ao compilar. Qual o motivo? [dcc32 Error] ACBrDFeXsMsXml.pas(152): E2197 Constant object cannot be passed as var parameter Obrigado, Fábio

A única solução que encontrei foi retirar uma casa decimal, passei de 4 para 3. Antes estava usando 150.000,0000 Agora estou usando 150.000,000 Se for possível, favor aumentar o campo de visualização na NF-e.

Bom dia! Estou com uma NF-e que foi emitida com a quantidade de 150.000,0000 no item, o XML está correto mas a impressão está cortando o dígito a esquerda, conforme imagem. Estou usando o DanfeRetrato_Basic.fr3 para impressão. Qual a solução?