suporti2011

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.

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.

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

Muito obrigado amigo, resolveu meu problema aki

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.

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

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.

Conseguir resolver o problema trocando o componente ACBrNFeDANFEFR1 por ACBrNFeDANFeRL1

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

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

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

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

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. log_Delphi_10.1_Berlin.txt

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.

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

Usei o que vem no pacote baixado pelo SVN

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.

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.

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

Não amigo, não fiz isso. Vou reinstalar novamente com esta opção. Obrigado

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.

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.

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.

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.

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