Dhauch

vou ver a documentação e posto aki

Pix Banrisul - Alguma previsão

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?

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

em produção esta dando esta mensagem falha no schema xml do lote de nfe ACBR segue em anexo xml 43151022912421000121651000000000051000000055-nfe.xml

não consigo acessar

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;