[error to load midas due to missing code page conversion library]

Bom dia.

Tenho um app mobile copilado no Delphi 10.3.3 com a api 30 do android que roda bacana se conecta com o servidor através do datasnap com Sqlite.

Só que na hora de fazer o login ele dar a seguinte mensagem :  error to load midas due to missing code page conversion library. 

Tanto usando a api 30 como a api 29 do android.

Já fiz as mudanças dos arquivos libmidas.a conforme mostra neste topico, mais ainda nao consegui resolver este problema.

Desde já agradeço a ajuda. 

 

[Duvida: Preview da etiqueta usando o ACBrETQ]

Preciso de uma ajuda.
Tenho o codigo pra imprimir as etiquetas direto na impressora Argox, mais eu queria mostrar um preview da etiqueta pra depois imprimir.

Alguém teria uma sugestão ?

Desde já agradeço.

[Erro ao baixar xml de entrada]

Boa tarde

Alguém poderia dar uma analisada neste código em anexo, pois até o mês de Janeiro eu usava ele para baixar os xml de entrada, agora quando executo o comando dar sempre a mesma mensagem "Rejeicao: Consumo Indevido (Deve ser aguardado 1 hora para efetuar nova solicitacao caso nao existam mais documentos a serem pesquisados. Tente apos 1 hora)" e não baixa nem uma nota, sei que houve algumas mudanças ai no método de baixar essas notas, mais não consegui identificar no código quais as mudanças a ser feita.

Desde já agradeço.

BaixarXml.txt

[Rejeição 903 - Versão informada no QR-Cod(100), não é mais valida para a data de amissao]

Muito obrigado amigo, resolveu meu problema aki

[Rejeição 903 - Versão informada no QR-Cod(100), não é mais valida para a data de amissao]

Estou com o seguinte erro ao emitir uma NFC-e

Rejeição 903 - Versão informada no QR-Cod(100), não é mais valida para a data de amissao

Desde já agradeço a ajuda.

[Rejeição 709 - NFC-e com formato de DANFE invalido]

Muito obrigado pela resposta eu mudei a configuração ficou da seguinte forma :

ACBrNFeDANFEFR1.TipoDANFE := tiNFCe;, o erro saiu, apareceu outro erro agora 

Rejeição 903 - Versão informada no QR-Cod(100), não é mais valida para a data de amissao

[Rejeição 709 - NFC-e com formato de DANFE invalido]

Estou com este problema ao emitir uma NFC-e.

No meu componente ACBrNFe1 estar com as seguintes configurações:

ModeloDR = moNFCe

DANFE = ACBrNFeDANFEFR1

FastFile do ACBrNFeDANFEFR1 = C:\JCS\Fontes\Win32\Debug\SCHEMAS\DANFeNFCe.fr3 

Ao emiti a NFe vai normal o erro é somente ao emitir a NFCe

Eu uso um  ACBrNFe e um ACBrNFeDANFEFR1 para cada configuração de nota

Desde já agradeço pela ajuda.

[Componente DANFE não associado]

Conseguir resolver o problema trocando o componente ACBrNFeDANFEFR1 por ACBrNFeDANFeRL1

[Componente DANFE não associado]

Estou com o seguinte problema:

Quero mostrar um danfe de uma nfe na tela, estou usando o seguinte código :

Pra carregar o DANFE ao componente ACBRNFE

Procedure TFrmBaixarNotas.DBGrid2CellClick(Column: TColumn);
begin
 ACBrNFe2.NotasFiscais.Clear;
 ACBrNFe2.NotasFiscais.LoadFromFile(XMLBAIXADOSXmlNFe.AsString);

 end;

E para imprimir na tela o DANFE

procedure TFrmBaixarNotas.SpeedButton11Click(Sender: TObject);
begin
ACBrNFe2.NotasFiscais.Imprimir;
end;

 

Ao clicar no botão para mostrar o danfe, dar o seguinte erro : Componente DANFE não associado

Estou usando o ACBRNFE associado ao ACBrNFeDANFEFR

 

Desde já agradeço a ajuda

 

 

[Total do Desconto difere do somatorio dos itens.]

Em 08/09/2017 at 16:55, Wellissonr disse:

Pessoal consegui resolver aqui valeu pela ajuda!

Você poderia ter colocado a sua solução ai p ajudar aqueles que ainda não sabe 

[Baixar as 30 ultimas NFe]

RESOLVIDO

Era só o ultimo nsu que eu não estava gravando, agora estar funcionando de boa.

[Baixar as 30 ultimas NFe]

Caros Amigos.

Estou usando o modelo de DistribuicaoDfe que vem no demo do ACBR, consigo baixar as notas emitidas para minha empresa.

Mais só consigo jogar no Grid notas de 30 dias pra traz, por ex notas do mês corrente não aparece na pesquisa.

Desde já agradeço a ajuda

[Erro ao compilar o pacote "ACBr_NFeDanfeRL.dpk"]

Formatei minha maquina novamente, instalei o win 7 professional 64, instalei o Delphi Berlin 10.1.2.

Instalei o Fortes Report, fui instalar o acbr e deu o mesmo erro.

6 minutos atrás, Juliomar Marchetti disse:

primeira coisa anexe o log do instalador aqui 

 

 

log_Delphi_10.1_Berlin.txt

[Erro ao compilar o pacote "ACBr_NFeDanfeRL.dpk"]

Obrigado Felipe

Verifique o tópico que vc me enviou fiz de acordo com o que o Juliomar Marchetti

 Diz lá, mais comigo ainda não funcionou.

[Erro ao compilar o pacote "ACBr_NFeDanfeRL.dpk"]

Precisei instalar o Fortes Report no meu Delphi Berlin.

Ao tentar instalar o ACBR novamente estar dando erro ao chegar no arquivo  "ACBr_NFeDanfeRL.dpk".

baixei as fontes do fortes report que está no github via git, fiz a instalação.

Mais o erro persiste.

Desde já agradeço a ajuda

[%1 não é um aplicativo Win32 válido 2018]

Usei o que vem no pacote baixado pelo SVN

[%1 não é um aplicativo Win32 válido 2018]

Ok Amigo.

Fiz o seguinte agora.

Retirei as dll das pastas onde eu tinha colocado, apaguei tudo que era de acbr do Delphi, baixei novamente o acbr usando o Tortoise, instalei novamente com as configurações que vc me enviou.

Resultado: dando o mesmo erro.

Desinstalei  tudo novamente fui no ACBrInstall_Trunk2.exe e mudei as propriedade coloquei para executar em compatibilidade com win7 e com administrador.

Resultado: Delphi abriu sem erros.

Muito obrigado pela ajuda.

[%1 não é um aplicativo Win32 válido 2018]

Não sei mais o que fazer.

Desinstalei o acbr, baixei de novo instalei novamente, coloquei todas as dll, nas pastas win32 e SysWOW64

peguei todos os *.bpl coloquei nas pastas bpl em documentos publicos, e nada de resolver este erro.

Estou precisando apenas de 2 componentes o ACBRNFE e o ACBRNFeDanfeRL, nao tem como eu instalar eles separados ??

Desde já agradeço a ajuda.

[%1 não é um aplicativo Win32 válido 2018]

Amigo Daniel refiz a instalçao com as informações que vc me passou e continua o erro.

O erro são nos seguinte arquivos:

Acbr_Acbr_Nfe.bpl
Acbr_NFCeECFVirtual.bpl
Acbr_NFeDanfeESCOP.bpl
AcbrCTe.bpl
Acbr_NFSe.bpl
Acbr_MDFe.bpl
Acbr_GNRE.bpl
Acbre_Social.bpl
Acbr_Reif.bpl
Acbr_Sat.bpl
Acbr_SatecfVirtual.bpl
Acbr_SATEExtratoESCOP.bpl
Acbr_SATWs.bpl
Acbr_Blocox.bpl
Acbr_BPe.bpl
Acbr_Ane.bpl
Acbr_NFeDanfeFR.bpl
Acbr_CTeDancteFR.bpl
Acbr_NFSeDanfseFR.bpl
Acbr_GNREGuiaFR.bpl
 

Todos localizados na pasta : D:\ACBR\Lib\Delphi\LibD24

[%1 não é um aplicativo Win32 válido 2018]

Não amigo, não fiz isso.

Vou reinstalar novamente com esta opção.

Obrigado

[%1 não é um aplicativo Win32 válido 2018]

Acredito que sim pois consigo usa lo normal, consigo instalar outros componentes, somente ao instalar o ACBR que deu o erro.

Estou querendo desinstalar ele por completo e tentar de novo.

Na pasta do ACBR tem um arquivo: apagarAcbr usei ele, os compoenentes até saiu do delphi mais ao abrir o delphi dar o mesmo erro.

[%1 não é um aplicativo Win32 válido 2018]

Caros Colegas.

Formatei minha maquina hoje, instalei o Delphi Berlin update 2

Instalei o ACBR pelo ACBrInstall_Trunk2, instalação deu tudo ok.

Ao Abrir o delphi deu o erro  %1 não é um aplicativo Win32 válido

já fiz e refiz todas as repostas que encontrei em outro topico aqui no forum sobre este assunto.

não consegui resolver, antes da formatação estava tudo ok, mais eu precisei trocar o HD.

 

[%1 não é um aplicativo Win32 válido]

Caros Colegas.

Formatei minha maquina hoje, instalei o Delphi Berlin update 2

Instalei o ACBR pelo ACBrInstall_Trunk2, instalação deu tudo ok.

Ao Abrir o delphi deu o erro  %1 não é um aplicativo Win32 válido

já fiz e refiz todas as repostas dos amigos ai e nada resolveu.

Antes da formatação estava tudo ok, mais eu precisei trocar o HD.

Como faço para desinstalar o ACBR ??,  pois pelo arquivo apagarAcbr ele até tira os componentes do delphi, mais quando vou abrir o delphi continua aparecendo o mesmo errro

Não sei mais o que fazer.

 

[DistribuicaoDfe.txt Decifrado para baixar xml da Sefaz]

Depois de uma semana pesquisando na net, perguntando pra um e pra outro, consegui baixar as notas da sefaz.

Estar qui caso algum colega precise.

Este primeiro processo é para mostrar as notas que estão na sefaz

procedure TTesteWeb.consultarnotasClick(Sender: TObject);
var
CNPJ, Impresso, sChave, sEmissao, sCNPJ, sNome, sNumero, sSerie,
sIEst, sNSU, sTipoNFe: String;
Valor: Double;
i, j,iEvento, k: integer;
sStat,utNSU,ANSU:string;
sMotivo:string;
sUltimoNSU:string;
sTemMais:string;
caminho:string;
UF, icount, codStatus: Integer;
xml:string;
begin
// ======== Dados do Emitente =============================================

//pego o codigo da Filial que estar fazendo
// a pesquisa no meu cadastro de empresas
Empresa.Close;
Empresa.SQL.Clear;
Empresa.SQL.Add('Select * From filial');
Empresa.SQL.Add('Where CodFil = :xCodigo');
Empresa.Params[0].AsString:='1';
Empresa.Active:=True;
Empresa.Open;

MemoStatus.Lines.Add('------------------------------------------------------');
MemoStatus.Lines.Add(' => Consultando NFe Destinadas');
MemoStatus.Lines.Add('------------------------------------------------------');

Memo1.Text := '';
k := 0;
repeat
inc(k);
CNPJ := '';
ACBrNFe1.DistribuicaoDFePorUltNSU(EMPRESAUF.AsInteger,CNPJ,edtUltNSU.Text );

sStat := IntToStr(ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat);
sMotivo := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.xMotivo;

if ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137
then sTemMais := 'N'
else sTemMais := 'S';

sUltimoNSU := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU;

// GravaUltimaConsulta;

if ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 138
then begin
MemoStatus.Lines.Add(' Documento Localizado para o Destinatário');
MemoStatus.Lines.Add(' Utilizar o número que esta no campo: Último NSU');
MemoStatus.Lines.Add(' Para uma nova pesquisa.');
MemoStatus.Lines.Add(' ');

j := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1;
lstChave1.Clear;
chkListaNotas.Clear;

for i := 0 to j do
begin
sSerie := '';
sNumero := '';
sCNPJ := '';
sNome := '';
sIEst := '';
sNSU := '';
sEmissao := '';
sTipoNFe := '';
Valor := 0.0;
Impresso := ' ';

if ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe <> ''
then begin
// Conjunto de informações resumo da NF-e localizadas.
// Este conjunto de informação será gerado quando a NF-e for autorizada ou denegada.

sChave := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe;

sSerie := Copy(sChave, 23, 3);
sNumero := Copy(sChave, 26, 9);
sCNPJ := '';
sNome := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.xNome;
sIEst := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.IE;
case ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.tpNF of
tnEntrada: sTipoNFe := 'E';
tnSaida: sTipoNFe := 'S';
end;
sNSU := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.NSU;
sEmissao := DateToStr(ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.dhEmi);
Valor := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.vNF;

case ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.cSitNFe of
snAutorizado: Impresso := 'A';
snDenegado: Impresso := 'D';
// snCancelada: Impresso := 'C';
end;
end;

// Registra no Banco de Dados as Notas Retornadas pela Consulta
Manifestacao.Close;
Manifestacao.SQL.Clear;
Manifestacao.SQL.Add('Select * From manifestacao');
Manifestacao.SQL.Add('Where Empresa = :xEmpresa');
Manifestacao.SQL.Add('and Chave = :xChave');
Manifestacao.Params[0].AsString:='1';
Manifestacao.Params[1].AsString:=sChave;
Manifestacao.Active:=True;
Manifestacao.Open;

if not ((ManifestacaoEmpresa.AsString = '1') and
(ManifestacaoChave.AsString = sChave))

then begin
IncAltDel.SQL.Clear;
IncAltDel.SQL.Add('Insert into manifestacao');
IncAltDel.SQL.Add('(Empresa, Chave, CNPJ, Nome, IE, Emissao, Tipo, Valor,');
IncAltDel.SQL.Add('Situacao, Confirmacao, NSU, DataEvento, Protocolo)');
IncAltDel.SQL.Add('Values (:xEmpresa, :xChave, :xCNPJ, :xNome, :xIE, :xEmissao, :xTipo,');
IncAltDel.SQL.Add(':xValor, :xSituacao, :xConfirmacao, :xNSU, :xDataEve, :xProtocolo)');
IncAltDel.Params[0].AsString:='1';
IncAltDel.Params[1].AsString:=sChave;
IncAltDel.Params[2].AsString:='';
IncAltDel.Params[3].AsString:=sNome;
IncAltDel.Params[4].AsString:=sIEst;
IncAltDel.Params[5].AsDateTime:=StrToDate(sEmissao);
IncAltDel.Params[6].AsString:=sTipoNFe;
IncAltDel.Params[7].AsFloat:=Valor;
IncAltDel.Params[8].AsString:=Impresso;
IncAltDel.Params[9].AsInteger:=-1;
IncAltDel.Params[10].AsString:=sNSU;
IncAltDel.Params[11].AsDateTime:=0;
IncAltDel.Params[12].AsString:='';
IncAltDel.ExecSQL;
end;

//Atualizo o sql que mostra as notas no dbgrid
MANIFESTACAO.Close;
MANIFESTACAO.SQL.Clear;
MANIFESTACAO.SQL.Add('select * from manifestacao');
MANIFESTACAO.open;

end; // Fim do For
end
else begin
// Nenhum Documento Localizado para o Destinatário
if ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137
then begin
MemoStatus.Lines.Add(' Nenhum Documento Localizado para o Destinatário');
MemoStatus.Lines.Add(' Utilizar o número que esta no campo: Último NSU');
MemoStatus.Lines.Add(' Para uma nova pesquisa ('+edtUltNSU.Text+').');
MemoStatus.Lines.Add(' ');
end
else begin
MemoStatus.Lines.Add(' Falha ao realizar a consulta.');
MemoStatus.Lines.Add(' ' + sStat + ' - ' + sMotivo);
MemoStatus.Lines.Add(' ');
end;
end;

until (k = StrToIntDef(edtConsultas.Text, 1)) or (sTemMais = 'S');

ACBrNFe1.Configuracoes.Arquivos.Salvar := True;

if sTemMais = 'S'
then Memo1.Text := IntToStr(k) + ' Consultas Realizadas e tem mais Documentos.'
else Memo1.Text := IntToStr(k) + ' Consultas Realizadas e não tem mais Documentos.';

end;

=========================================
Este segundo processo é para fazer a confirmação
de uma nota pela chave, vc pode fazer a
confirmação de todas as notas que
baixou no primeiro processo e depois
efetuar o download.

procedure TTesteWeb.EnviarManifesClick(Sender: TObject);
var
Chave, idLote, CNPJ: string;
lMsg: string;
begin

// manidestação de uma nota especifica pela chave

Chave:='';
if not(InputQuery('WebServices Eventos: Manif. Destinatario - Conf. Operacao', 'Chave da NF-e', Chave)) then
exit;
Chave := Trim(OnlyNumber(Chave));

idLote := '1';
if not(InputQuery('WebServices Eventos: Manif. Destinatario - Conf. Operacao', 'Identificador de controle do Lote de envio do Evento', idLote)) then
exit;

CNPJ := '';
if not(InputQuery('WebServices Eventos: Manif. Destinatario - Conf. Operacao', 'CNPJ ou o CPF do autor do Evento', CNPJ)) then
exit;

ACBrNFe1.EventoNFe.Evento.Clear;
with ACBrNFe1.EventoNFe.Evento.Add do
begin
InfEvento.cOrgao := 91;
infEvento.chNFe := Chave;
infEvento.CNPJ := CNPJ;
infEvento.dhEvento := now;
infEvento.tpEvento := teManifDestConfirmacao;
end;
ACBrNFe1.EnviarEvento(StrToInt(IDLote));

with AcbrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do
begin
lMsg:=
'Id: '+Id+#13+
'tpAmb: '+TpAmbToStr(tpAmb)+#13+
'verAplic: '+verAplic+#13+
'cOrgao: '+IntToStr(cOrgao)+#13+
'cStat: '+IntToStr(cStat)+#13+
'xMotivo: '+xMotivo+#13+
'chNFe: '+chNFe+#13+
'tpEvento: '+TpEventoToStr(tpEvento)+#13+
'xEvento: '+xEvento+#13+
'nSeqEvento: '+IntToStr(nSeqEvento)+#13+
'CNPJDest: '+CNPJDest+#13+
'emailDest: '+emailDest+#13+
'dhRegEvento: '+DateTimeToStr(dhRegEvento)+#13+
'nProt: '+nProt;
end;
ShowMessage(lMsg);

MemoResp.Lines.Text := ACBrNFe1.WebServices.EnvEvento.RetWS;
memoRespWS.Lines.Text := ACBrNFe1.WebServices.EnvEvento.RetornoWS;
LoadXML(ACBrNFe1.WebServices.EnvEvento.RetornoWS, WBResposta);
end;

=======================================
verifique agora se estas configurações estão certas no seu componente ACBRNFe:
propriedades\configurações\arquivos\PathDownload = aqui a pasta onde vc quer salvar os xml.
propriedades\configurações\arquivos\PathEvento = Salvar os eventos.
propriedades\configurações\arquivos\salvar = true

Ainda em configurações de arquivos tem as opções separar por cnpj, ele cria uma pasta para cada cnpj que vc baixar

e execute o primeiro processo novamente, ele vai fazer uma nova busca e baixar os que vc confimou

teste ai e me diga o resultado

Comigo funcionou certinho.

[Baixar NFe da Sefaz pela DistribuicaoDFePorChaveNFe]

Ok Juliana.

Depois de 5 dias tentando decifrar o arquivo de texto DistribuicaoDFe que fica dentro da pasta do ACBR, conseguir colocar p funcionar.