Ir para conteúdo
  • Cadastre-se

Painel de líderes

Conteúdo popular

Showing content with the highest reputation on 27-12-2018 em todas as áreas

  1. Bom dia, O bloco H do SPED ICMS só deve ser entregue em Fevereiro. Nesse bloco H vai constar isso mesmo que comentou, a QTD e o VALOR de cada item em estoque, isso o sistema já está preparado pra fazer, porque é igual ao que foi entregue em FEV desse ano. Com base nesse valor, você pode calcular a base de calculo ST e o valor de ICMS ST, pra informar junto em cada item de ST nesse mesmo bloco (registro H020), como manda a instrução normativa 48. O ideal segundo a receita, seria levantar o valor de base iCMS ST em relação cada nota de entrada de mercadoria, mas pra mim, isso é inviável. Por questão de tempo de serviço e também de registro das notas. No caso de um posto de combustível acredito que seria mais fácil (são poucos produtos normalmente, fora a conveniência), mas para um supermercado e materiais de construção, que é o meu caso, é impossível rastrear a entrada das mercadorias. Um exemplo, quando a mercadoria é transferida de um centro de distribuição, ou seja, a entrada é isenta ou suspensa na loja devido essas transferências. Posso estar enganado, mas pelo que consultei, não teremos nenhum impacto em janeiro, pois o problema será na entrega do SPED em Fevereiro.
    4 pontos
  2. Boa tarde a todos, Foi publicado no Portal Nacional da NF-e a Nota Técnica 2018/004 versão 1.00 que trata sobre um novo tipo de evento que é o de Cancelamento por Substituição. A liberação do ambiente de homologação para iniciarmos os testes esta prevista para 25/02/2019. A principio esse evento só poderá ser utilizado com a NFC-e. Para mais detalhes favor baixar a NT do Portal e boa leitura (são apenas 12 paginas). Estamos finalizando as alterações no componente ACBrNFe para ser enviando para o repositório.
    3 pontos
  3. Pelo que eu entendi, deverá ser contado o estoque para ter o montante do valor do ICMS ST que a sua empresa terá até o momento, no caso Dezembro/2018, ai então será apurado se terá Débito ou Crédito. Isso finalizará o que vc tem em seu estoque, e a partir de Janeiro de 2019, será feito mensalmente, a cada mês gerará os débitos e créditos referente ao mesmo. Esse H que seu contador se referiu, é o Registro H do SPED, que é o registro do Inventário.
    2 pontos
  4. Já estou usando em produção para consultar os títulos e para registrar... segue a classe que fiz para facilitar o uso e algumas melhorias pessoais... mas os créditos são todos de vcs q compartilharam os fontes.. valeu; Este é um exemplo de uso WS_CEF := TWebService_CEF_SIGCB.Create; WS_CEF.Beneficiario_CodigoCedente := Params.ItemsString['Cod_Cedente'].AsString; WS_CEF.Beneficiario_Cnpj := Params.ItemsString['Cnpj'].AsString; WS_CEF.Beneficiario_Agencia := Params.ItemsString['Agencia'].AsString; WS_CEF.Titulo_Nosso_numero := Params.ItemsString['Nosso_Numero'].AsString; result := Xml_To_Json( WS_CEF.Consultar_Boleto_XML); ////////result := Xml_To_Json( WS_CEF.Registrar_Boleto ); FreeAndNil( WS_CEF); WebService_CEF_SIGCB.pas
    2 pontos
  5. 2 pontos
  6. Provavelmente em algum lugar está sendo alterado o DecimalSeparator, ThousandSeparator ou algo semelhante. Eu faria iniciaria a procura num desses locais. Em qual linha exatamente está acontecendo o erro? Nessa 479?
    2 pontos
  7. Bom dia a todos, Joceandro, acredito ter corrigido todos os Schemas da versão 2.5, favor atualizar e faça novos testes. Pode ser que algum evento não seja validado por nessa nova versão existir um novo campo obrigatório, neste caso deverá ser alterado a unit que gera essa tag. Pablo, com relação a novos eventos em particular esses que você mencionou eles não são enviados e sim retornados, correto? Se você puder implementar conforme os demais ficaremos gratos.
    2 pontos
  8. Para SP, inclua esta linha no teu exemplo: uses blcksock; procedure TForm1.cxButton1Click(Sender: TObject); begin [...] NFe.Configuracoes.WebServices.SSLType := LT_TLSv1_2; Seria interessante você ter essa configuração livre na aplicação. Voltando ao caso do ES a SEFAZ tinha um webservice próprio para a consulta de cadastro: https://internet.sefaz.es.gov.br/informacoes/nfe/ws_consulta_cadastro.php Mas aparentemente não divulgaram um webservice para a versão 4.00.
    2 pontos
  9. Perfeito Sérgio, funcionou. Muito obrigado!
    2 pontos
  10. bom dia.. nao deve ser informado o valor e a base de icm. Outra dica importanten.. quando mandar o xml gerado, mande tambem o Log gerado. pois é muito importante,para analizar.
    2 pontos
  11. a ACBrLibNFe está quase saindo do forno...
    2 pontos
  12. Olá pessoal.. já está no SVN, modificações para o novo Layout do Extrato do SAT CFe, que entrará em vigor, de forma Opcional, em 01/01/2019... Veja esse tópico, sobre o assunto: As implementações atendem os relatórios em Esc/Pos e Fortes Report... Abaixo uma Foto (de um dos milhares) testes que fiz... em uma impressora Elgin I9 Esc/Pos a esquerda e Fortes Report a direita... Assim como no caso da NFCe, a versão em EscPos, provavelmente apenas funcione corretamente com as seguintes condições Impressora 100% compatível com Epson Esc/Pos Impressora como 48 colunas ou mais Leia mais informações sobre o suporte a QRCode Lateral, nesse tópico: As seguintes modificações foram aplicadas no Layout anterior
    1 ponto
  13. Justamente para não ter esse problema de duplicar o imposto, deverá ser gerado nas tags corretas, que eram as tags apenas informativas, agora serão utilizadas para fazer essa compensação. Acho que seria isso, ou estou errado?
    1 ponto
  14. Aumentei o valor de timeout para 1 minuto e obtive retorno do webservice.
    1 ponto
  15. Boa tarde Leandro, O Recibo que você se refere é o Protocolo de Autorização? Se sim, vide o programa exemplo. Agora se o Recibo que você se refere é o Recibo retornado ao enviar o MDF-e para SEFAZ, ai não tem como.
    1 ponto
  16. Boa tarde, Notamos um pequeno errinho de ortografia no extrato gerado via ESC/POS, precisamente na linha 400 da "TACBrSATExtratoESCPOS": if (TotalDescAcresItem <> 0) then begin Sinal := IfThen(TotalDescAcresItem < 0,'-','+'); FPosPrinter.Buffer.Add(PadSpace(ACBrStr('Total de descontos/acrésimos sobre item|')+ FormatFloatBr(TotalDescAcresItem, Sinal+',0.00'), FPosPrinter.ColunasFonteCondensada, '|')); end; Obrigado.
    1 ponto
  17. Matheus, Realmente esta faltando, vamos providenciar a implementação do comando e disponibilizar a sua sintaxe no manual. Essas alterações é bem provável que só sejam disponibilizadas na próxima versão semanal para que é SAC.
    1 ponto
  18. Esse caso não vai existir, o Distribuidor ou Atacadista (segundo a lei "não varejista") só vai complementar ou restituir se houver venda para consumidor final, se não, ele vai apenas repassar o ICMS Retido anteriormente. Esse é o pior cenário pra mim, um atacadista com varejo.
    1 ponto
  19. Ficou show Daniel, parabéns! Boa tarde Italo, Na verdade, o que sei, é esse padrão é somente da Caixa E.Federal. Acredito que outros bancos tem esse sistema também, porém, quase certeza que não é do mesmo padrão.
    1 ponto
  20. Você verificou se ACBrComum está na dependência do projeto conforme a mensagem de erro?
    1 ponto
  21. Boa tarde Fábio, Como dito na postagem anterior, pelo fato do provedor não seguir o layout da ABRASF, o manual estar confuso e por não ter tempo no momento, não vou implementar esse provedor.
    1 ponto
  22. Boa tarde Carlos, Tente fazer o seguinte: no arquivo INI do provedor existe um campo chamado UseCertificado, se o valor for zero altere para 1 e faça um novo teste.
    1 ponto
  23. Boa tarde Se vc tive procurado no fórum teria encontrado um topico recente onde ja estão falando sobre isso... https://www.projetoacbr.com.br/forum/topic/48172-decreto-54308/ Sim, o componente ACBrNFe ja tem os campos do "Icms efetivo"... Att Ricardo
    1 ponto
  24. Elton Claro. Faltou ler a sintaxe toda do comando na íntegra. Grato. Um abraço e um 2019 repleto de saúde e sucesso.
    1 ponto
  25. Utilize o comando NFE.Consultar, o retorno do mesmo é o XML atualizado, no seu caso, com o protocolo de autorização.
    1 ponto
  26. Olá, Fiz a inclusão da linha e agora está funcionando corretamente. Muito obrigada pela ajuda. Torcer para que os outros estados liberem logo também os webservices.
    1 ponto
  27. Qual componente vc está usando? Se não me engano, para a impressão da NFC-e em Fast Report foi criado um novo componente... Att Ricardo
    1 ponto
  28. Esses avisos não impedem a compilação do ACBrMonitor. É provável que esteja com outro problema. Por favor, envie a mensagem do erro.
    1 ponto
  29. Esse é o mesmo do tópico abaixo que foi atualizado? https://www.projetoacbr.com.br/forum/topic/22357-novo-layout-de-boleto-com-detalhamento-para-o-fortesreport/
    1 ponto
  30. Bom dia. Ele dá esse alerta e não instala o componente? Att.
    1 ponto
  31. Você tem razão. Qualquer mensagem produzida dessa forma viria com o nome da aplicação. Mas essa mensagem não é do ACBr. Nenhum componente tem uma mensagem nesse formato ("Tempo="). Nem no ACBrLib existe essa mensagem. Portanto, se não está no seu código, ela deve estar sendo apresentada pela dll do fabricante. Verifique se eles não tem uma configuração qualquer, uma dll atualizada, ou se no cliente não está usando uma dll de debug. Fora isso, a sugestão é você debugar a aplicação e ir acompanhando o código até o momento em que a mensagem é apresentada.
    1 ponto
  32. Muito obrigado pela colaboração, vou analisar as mudanças.
    1 ponto
  33. Obrigado Italo, irei atualizar e fazer novos testes..
    1 ponto
  34. Bom dia Carlos, O provedor da cidade Montes Claros/MG é Pronimv2 e este requer o certificado digital para poder assinar o Lote de RPS antes do envio. Ao meu ver não se faz necessário nenhuma alteração.
    1 ponto
  35. Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.
    1 ponto
  36. Você não usa o comando para impressão? Ele tem um parâmetro bMostrarPreview que faz isso. NFE.ImprimirDanfe(cArqXML,[cImpressora],[nNumCopias],[cProtocolo],[bMostrarPreview],[cMarcaDagua],[bViaConsumidor],[bSimplificado]) Veja no Help: https://acbr.sourceforge.io/ACBrMonitor/NFEImprimirDanfe.html Daí basta você mandar o comando para mostrar ou não.
    1 ponto
  37. Obrigado, Italo Funcionou perfeito conforme informado. Obrigado
    1 ponto
  38. Realizados testes utilizando o demo e Argox OS 214 que temos consegui imprimir a caixa e o logo sem problemas, porém utilizei o logo que vem junto com o demo, o o logo que enviou não consegui imprimir e também não consegui descobrir o porque, tentei alterar a imagem que enviou mas não consegui resolver, recomendo que de uma olhada no logo do ACBr que vem com o demo. O comando para imprimir a caixa usei: ImprimirCaixa(10,0,450,150,4,4); E para o logo eu carreguei ele na memória da impressora (veja o como o demo faz caso tenha dúvidas).
    1 ponto
  39. Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.
    1 ponto
  40. Boa tarde. Quero compartilhar com vocês um Form para impressão da Nota Fiscal de Serviço de Goiânia pelo sistema. Muitos devem esta usando o Navegador para visualizar e imprimir, então eu resumi isso em um Form. procedure ImprimirGyn(pXML: string; Visualizar: Boolean); var NumeroNota: string; CodVerificacao: string; InscricaoMunicipal: string; strLink: string; TemImpressoraPadrao: Boolean; EscolherImpressora: Boolean; const URLNFSeGoianiaImpressao = 'http://www2.goiania.go.gov.br/sistemas/snfse/asp/snfse00200w0.asp?inscricao=<Inscricao_municipal>&nota=<Numero_da_nota>&verificador=<Codigo_de_verificacao>'; begin ACBrNFSe.NotasFiscais.Clear; ACBrNFSe.NotasFiscais.LoadFromString(pXML); NumeroNota := ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero; CodVerificacao := ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao; InscricaoMunicipal := ACBrNFSe.NotasFiscais.Items[0].NFSe.Prestador.InscricaoMunicipal; strLink := URLNFSeGoianiaImpressao; strLink := StringReplace( strLink, '<Inscricao_municipal>', InscricaoMunicipal, [rfIgnoreCase] ); strLink := StringReplace( strLink, '<Numero_da_nota>', NumeroNota, [rfIgnoreCase] ); strLink := StringReplace( strLink, '<Codigo_de_verificacao>', CodVerificacao, [rfIgnoreCase] ); if not(pVisualizar) then begin TemImpressoraPadrao := ACBrNFSe.DANFSE.Impressora <> ''; EscolherImpressora := ACBrNFeDANFECFE.MostraSetup; end; ImprimirLink(strLink, pVisualizar, TemImpressoraPadrao, EscolherImpressora); end; PAS_DFM.zip
    1 ponto
  41. Testado e esta funcionando perfeitamente na revisão 16199.
    1 ponto
  42. Enviei com uma pequena alteração na revisão 16198. Queira por favor atualizar e reportar qualquer problema.
    1 ponto
  43. Boa tarde Atualizei os fontes e testei, agora está funcionando corretamente. Obrigado pelas alterações
    1 ponto
  44. Ola Cal, Não, pois as tags de ICMS Efetivo só deverão ser informados quando venda para consumidor final. quando for venda para Revenda deverá sem informado as tags de icms Retido.
    1 ponto
  45. Fala Italo, beleza? Utilizo a xsLibXml2... Como eu disse, corrigimos no início do eSocial esse problema, e agora com essas alterações, voltou o problema. É como se fosse assinado um XML, e enviado outro (com alguma diferença).
    1 ponto
  46. Bom dia Luiz, A rotina atual esta da seguinte forma: if ((CTe.Imp.infTribFed.vPIS > 0) or (CTe.Imp.infTribFed.vCOFINS > 0) or (CTe.Imp.infTribFed.vIR > 0) or ((CTe.Imp.infTribFed.vINSS > 0) or (InformarINSS = 1)) or (CTe.Imp.infTribFed.vCSLL > 0)) then begin Gerador.wGrupo('infTribFed', '#125'); No XML que foi autorizado pela SEFAZ o valor de vPIS é 0.08 portanto maior que zero e vCOFINS é 0.02 portanto maior que zero. Isso faz com que as duas condições em negrito sejam verdadeiras, logo o grupo <infTribFed> deve ser gerado no XML. Favor atualizar todos os fontes de todas as pastas, reinstalar os componentes e faça novos testes.
    1 ponto
  47. 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.
    1 ponto
  48. Boa noite sim você deve de entrar no arquivo ACBr.inc e descomentar duas linhas para que isso seja possível com os lpk certo ele fará para ti! tenho todos os componentes rodando na versão snapshot 1.3 do lazarus
    1 ponto
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.