-
Total de ítens
24 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que Dhauch postou
-
vou ver a documentação e posto aki
-
Pix Banrisul - Alguma previsão
-
NFSeX - IPM - Consulta NFSe por Código de Verificação - Implementação
Dhauch replied to MarcosRWeimer's tópico in ACBrNFSe
Ipm não retorna Xml completo, falei com o suporte, falaram q só para o futuro -
Como faço para salvar xml? imprimir e salvar pdf? ipm não retorna xml ? não retorna o xml completo da nota? para imprimir só pelo linknfse?
-
meu código try try ConsultarSituacao(QRYCONSULTAPROTOCOLO.ASSTRING, QRYCONSULTALOTE.ASSTRING); except on E: Exception do begin if WebServices.ConsSitLoteRPS.Msg <> '' then widRespAux := WebServices.ConsSitLoteRPS.Msg else if E.Message <> '' then widRespAux := E.Message else widRespAux := 'RPS em processamento aguarde e consulte mais tarde!'; frm_aviso(widRespAux); end; end; Situacao := StrToIntDef(WebServices.ConsSitLoteRPS.Situacao, 0); if (Situacao = 4) then begin strArquivo := Configuracoes.Arquivos.GetPathNFSe(qryConsultaDATA.value) + '\NFSe\Recibos\' + inttostr(qryconsultanumero.value) + 'E-RPS.XML'; if not FileExists(strArquivo) then begin strArquivo := Configuracoes.Arquivos.GetPathGer(qryConsultaDATA.value) + '\Recibos\' + inttostr(qryconsultanumero.value) + 'E-RPS.XML'; end; qrygravalotenota.close; qrygravalotenota.ParamByName('numero').value := NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero; qrygravalotenota.Open; qrygravalotenota.edit; qrygravalotenotaSITUACAO.value := Situacao; if FileExists(strArquivo) then begin NotasFiscais.Clear; NotasFiscais.LoadFromFile(strArquivo); ConsultarNFSeporRps(NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero, NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie, TipoRPSToStr(NotasFiscais.Items[0].NFSe.IdentificacaoRps.Tipo)); end else begin ConsultarNFSeporRps(qryConsultaNUMERO.ASSTRING, dtmdados.serie, TipoRPSToStr(trRPS)); end; // Grava numero da NFSe qrygravalotenotanota.Value := strtofloat(NotasFiscais.Items[0].NFSe.Numero); strArquivo := Configuracoes.Arquivos.GetPathNFSe(qryConsultaDATA.value) + '\NFSe\Notas\' + NotasFiscais.Items[0].NFSe.Numero + 'E-NFSE.XML'; // procura NFSe if not FileExists(strArquivo) then begin strArquivo := Configuracoes.Arquivos.GetPathGer(0) + '\Notas\' + qryConsultaNOTA.AsString + 'E-NFSE.XML'; if not FileExists(strArquivo) then begin strArquivo := Configuracoes.Arquivos.GetPathGer(qryConsultaDATA.value) + '\Notas\' + qryConsultaNOTA.AsString + 'E-NFSE.XML'; if not FileExists(strArquivo) then begin strArquivo := Configuracoes.Arquivos.GetPathGer(qryConsultaDATA.value) + qryConsultaNOTA.AsString + 'E-NFSE.XML' end; end; end; // procura RPS if not FileExists(strArquivo) then begin strArquivo := Configuracoes.Arquivos.GetPathGer(0) + '\recibos\' + inttostr(qryconsultanumero.value) + 'E-RPS.XML'; if not FileExists(strArquivo) then begin strArquivo := Configuracoes.Arquivos.GetPathGer(qryConsultaDATA.value) + '\recibos\' + inttostr(qryconsultanumero.value) + 'E-RPS.XML' end; end; NotasFiscais.Clear; NotasFiscais.LoadFromFile(strArquivo); if FileExists(strArquivo) then begin Configuracoes.Arquivos.NomeLongoNFSe := True; NotasFiscais.Imprimir; NotasFiscais.ImprimirPDF; end; end; finally if dtsgravalotenota.State in [dsEdit] then begin qrygravalotenota.POST; QRYGRAVALOTENOTA.Transaction.CommitRetaining; end; end; end;
-
Amarildo Eu não estou Gerando o XML Eu Gero o RPS. Esta tabulação Volta quando Consulto a situação é um retorno do servidor
-
Amarildo veja o rps esta sem as tabulações mas no retorno com a nota validada vem com as tabulações 5589E-nfse.xml 5589E-rps.xml
-
Amarildo Eu não encontrei a solução ainda.
-
como retiro as tabulações na impressão da nfse ou como faço para imprimir tabulado veja como esta saindo na impressão
-
Após a atualização para ultima versão no trunk2, meus aplicativos começaram a apresentar erro de out off memory, principalmente no momento da ativação dos componentes da nfe. Abri o sistema e fiquei monitorando no gerenciador de tarefas notei que o sistema esta usando muita memória. antes da atualização eu utilizava o delphi 2007 e acbr e nunca tive problema de memória após atualização para o trunk2, mudei para o xe10 .
-
bom dia estou tentando gerar xml para o servidor Thema da cidade de Não-Me-Toque. pelo q vi não estou gerando esta linhas <?xml version="1.0" encoding="ISO-8859-1"?> <EnviarLoteRpsEnvio xmlns="http://www.abrasf.org.br/ABRASF/arquivos/nfse.xsd"> <LoteRps> <NumeroLote>14052113560689</NumeroLote> <Cnpj>00123456000123</Cnpj> <InscricaoMunicipal>000000000000123</InscricaoMunicipal> <QuantidadeRps>1</QuantidadeRps> <ListaRps> oque devo fazer para gerar estas informações no xml em anexo tem o xml gerado pelo demoacbr e um exemplo enviado pela thema meu xml.xml ExemploXmlRps(1).xml
-
segue em anexo o retorno 602603382325969-sit.xml
-
Boa tarde Sim, fui eu que inclui em homologação funcionou tudo 100% só em produção que esta dando este erro.
-
ao consultar lote da a seguinte mensagem - erro de validação de script servidor: betha cidade: Palmeira das Missões oque devo fazer?
-
velocidade conexão nfce
um tópico no fórum postou Dhauch NFC-e - Nota Fiscal do Consumidor Eletrônica
Alguns Clientes estão reclamando da velocidade no envio da nfce para o Sefaz RS tem momentos q chega a levar uns 30 segundos para envio da nfce. tem alguma coisa que possa fazer para melhorar a conexão? -
Esta muito instavel tem horas que funciona e horas que não.
-
Juliomar Marchetti Ja acesso este site para verificar. já passei para os meus clientes que esta fora. mas tem um cliente que disse que esta funcionando.
-
Não estou conseguindo validar nota hoje
-
também estou com o mesmo problema
-
falha no schema xml do lote de nfe em producao
um tópico no fórum postou Dhauch NFC-e - Nota Fiscal do Consumidor Eletrônica
em produção esta dando esta mensagem falha no schema xml do lote de nfe ACBR segue em anexo xml 43151022912421000121651000000000051000000055-nfe.xml -
Acbr Install - Sempre Utilizei Agora Não Funciona O Download Das Att
um tópico no fórum postou Dhauch Dúvidas Gerais sobre o ACBr
Error unable to connect to a repository at url Error 'svn://svn.code.sf.net/p/acbr/code/trunk' Error Can't connect to host 'svn.code.sf.net' foi feita uma tentativa de acesso a um soquete de uma maneira que é proibida pelas permissões de acesso que erro é este -
no acbretq imprime só uma imagem mesmo q eu carregue mais de uma imagem exemplo: preciso imprimir o logo e tambem como o produto deve ser lavagem,alvejantes,secagem,passagem,lavanderia cada um deles tem uma imagem diferente meu código esta abaixo ele imprime em todas as imagens a mesma. AtivarACBrETQ; with ACBrETQ do begin if Modelo = etqPpla then begin IBTable1.First; while not IBTable1.Eof do begin QryNomeFor.close; QryNomeFor.ParamByName('for').Value:=IBTable1FORNECEDOR.Value; QryNomeFor.Open; CarregarImagem('C:\Compuservice\Sirlei1.bmp','C:\Compuservice\Sirlei1.bmp',true); ImprimirImagem(1, 620, 150,'C:\Compuservice\Sirlei1.bmp');//180 forn:=IntToStr(QryNomeForCOD_FOR.Value); ImprimirTexto(orNormal, 2, 1, 1, 590, 70, 'Fornecedor:' + copy(caractersemacento(forn),1,5)); ImprimirTexto(orNormal, 2, 1, 1, 560, 70, copy(caractersemacento(QryNomeForNOME.Value),1,38)); ImprimirTexto(orNormal, 2, 1, 1, 530, 70, 'CNPJ:' + QryNomeForCGC.Value); ImprimirTexto(orNormal, 2, 1, 1, 485, 70, Copy(IBTable1DESCRICAO.Value,1,38)); ImprimirTexto(orNormal, 2, 1, 1, 440, 70, 'Cod.For:'+ Copy(caractersemacento(IBTable1LOCAL.Value),1,38)); ImprimirTexto(orNormal, 2, 1, 1, 410, 70, 'Tamanho:'+ Copy(caractersemacento(IBTable1TAMANHO.Value),1,35)+ ' '+ 'Unid:' + Copy(IBTable1UNIDADE.Value,1,10)); ImprimirTexto(orNormal, 2, 1, 1, 380, 70, 'Quantidade:'+ IBTable1QTDE.Value); cod_barras:=zeroesquerda(IBTable1COD_PRO.Value,12); ImprimirTexto(orNormal, 2, 1, 1, 350, 70, 'Codigo:'); ImprimirTexto(orNormal, 2, 1, 1, 320, 70, inttostr(IBTable1COD_PRO.value)); ImprimirBarras(orNormal, 'F', '2', '2', 290, 340, cod_barras, 90, becSIM); //320 ImprimirTexto(orNormal, 2, 1, 1, 260, 70, 'Composicao: Valor: R$' + //250 FormatFloat('###,##0.00',IBTable1PRECO.Value)); ImprimirTexto(orNormal, 2, 1, 1, 230, 70, CurrToStr(IBTable1PERC1.Value) +'%'+ ' '+ caractersemacento(IBTable1COMP1.Value)); ImprimirTexto(orNormal, 2, 1, 1, 200, 70, CurrToStr(IBTable1PERC2.Value) +'%'+ ' '+ caractersemacento(IBTable1COMP2.Value)); ImprimirTexto(orNormal, 2, 1, 1, 170, 70, CurrToStr(IBTable1PERC3.Value) +'%'+' '+ caractersemacento(IBTable1COMP3.Value)); QryFigura.close; QryFigura.ParamByName('produto').Value:=IBTable1COD_PRO.Value; QryFigura.Open; lavagem := QryFiguraLAVAGEM.Value; lavagem1 := QryFiguraLAVAGEM1.Value; alvejante := QryFiguraALVEJANTES.Value; alvejante1 := QryFiguraALVEJANTES1.Value; secagem := QryFiguraSECAGEM.Value; secagem1 := QryFiguraSECAGEM1.Value; passagem := QryFiguraPASSAGEM.Value; passagem1 := QryFiguraPASSAGEM1.Value; lavanderia := QryFiguraLAVANDERIA.Value; lavanderia1 := QryFiguraLAVANDERIA1.Value; imglavagem.Picture.LoadFromFile(lavagem) ; imglavagem1.Picture.LoadFromFile(lavagem1) ; CarregarImagem1(lavagem,lavagem,true); ImprimirImagem(1, 100, 90,lavagem); CarregarImagem(lavagem1,lavagem1,true); ImprimirImagem(1, 40, 90,lavagem1); {CarregarImagem(alvejante,alvejante,true); ImprimirImagem(1, 100,150,alvejante); CarregarImagem(alvejante1,alvejante1,true); ImprimirImagem(1, 40,150 ,alvejante1);} {CarregarImagem(secagem,secagem,true); ImprimirImagem(1, 100, 30,secagem); CarregarImagem(secagem1,secagem1,true); ImprimirImagem(1, 50, 30,secagem1); CarregarImagem(passagem,passagem,true); ImprimirImagem(1, 100, 0,passagem); CarregarImagem(passagem1,passagem1,true); ImprimirImagem(1, 50, 0,passagem1);} {CarregarImagem(lavanderia,lavanderia,true); ImprimirImagem(1, 100, -30,lavanderia); CarregarImagem(lavanderia1,lavanderia1,true); ImprimirImagem(1, 50, -30,lavanderia1);} QryPais.Close; QryPais.ParamByName('pais').Value:=IBTable1COD_PAIS.Value; QryPais.Open; ImprimirTexto(orNormal, 2, 1, 1, 5, 90, 'Pais de origem:' +QryPaisNOME.Value); IBTable1.Next; end; //abort; Imprimir(StrToInt('1'),StrToInt('600')); Desativar; end end;