impressão nfse discriminação dos servicos servidor betha

[Dhauch]

como retiro as tabulações na impressão da nfse

ou como faço para imprimir tabulado

veja como esta saindo na impressão 

 

 

 

 

 

[roberio.rebeca]

Eu também gostaria de saber, pois não estou conseguindo.

Att

Robério

[Amarildo de Matos]

bom dia..

voces conseguiram resolver seus problemas?.. de tabulaçoes.?

 

[Dhauch]

Amarildo 

Eu não encontrei a solução ainda.

[Amarildo de Matos]

tem como enviar o xml gerado.. 

[Dhauch]

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 de Matos]

opa..

o seu problema esta na hora de gerar o xml.. voce tera de tirar 

{[[ esses caracteres..

 

 </Valores>
        <ItemListaServico>0104</ItemListaServico>
        <Discriminacao>{[[Descricao=LICENCA DE USO DE SOFTWARE REF 11/2018][ItemServico=0104][Quantidade=1][ValorUnitario=100][ValorServico=100][ValorBaseCalculo=100][Aliquota=4.23]]}</Discriminacao>
        <CodigoMunicipio>4313706</CodigoMunicipio>
      </Servico>

[Dhauch]

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 de Matos]

engraçado.. eu uso outra ferramenta, mas quando recebo xml, nao vem isso.. sera que nao é a forma como tu ta recebendo esse xml?

[Dhauch]

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 de Matos]

opa.. postando o codigo ai fica melhor. vamos esperar algum consultor ai para poder ajudar.. 

blz.. ate onde eu pudia ir.. fui.. 

[Italo Giurizzato Junior]

Boa tarde a todos,

Amarildo, se tratando de NFS-e o cenário é uma zorra, cada provedor faz da forma que lhe convém.

O provedor Betha tem essa loucura de retornar no campo Discriminação do XML da NFS-e alguns dados segundo essa formatação com chaves e colchetes.

Que eu saiba, mais nenhum faz isso.

Se faz necessário criar uma função dentro do componente de impressão do DANFSE que pegue esse conteúdo e o apresente de forma mais clara.

Detalhe essa função só pode ser chamada se o provedor em questão for o Betha.

Estamos aguardando o Refactoring que esta sendo realizado nos componentes de impressão de DAs (DANFE, DACTE, etc).

Esse Refactoring não vai resolver esse problema, mas depois dele vamos poder mexer nesses componentes sem atrapalhar o serviço que esta em andamento.

[Amarildo de Matos]

opa..italo..valeu ai a explicacao.. é bem complicado mesmo essa questa da nfs-e. obrigado ai.

[Cesar Balbinott]

Em 30/11/2018 at 14:54, Italo Jurisato Junior disse:

Boa tarde a todos,

Amarildo, se tratando de NFS-e o cenário é uma zorra, cada provedor faz da forma que lhe convém.

O provedor Betha tem essa loucura de retornar no campo Discriminação do XML da NFS-e alguns dados segundo essa formatação com chaves e colchetes.

Que eu saiba, mais nenhum faz isso.

Se faz necessário criar uma função dentro do componente de impressão do DANFSE que pegue esse conteúdo e o apresente de forma mais clara.

Detalhe essa função só pode ser chamada se o provedor em questão for o Betha.

Estamos aguardando o Refactoring que esta sendo realizado nos componentes de impressão de DAs (DANFE, DACTE, etc).

Esse Refactoring não vai resolver esse problema, mas depois dele vamos poder mexer nesses componentes sem atrapalhar o serviço que esta em andamento.

O provedor da pública também faz isso, alguém já conseguiu alguma solução para imprimir certo isso quando envia mais de um serviço na mesma nota?

[Italo Giurizzato Junior]

Boa tarde Cesar,

Infelizmente temos poucos que se habilitam em ajudar na melhoria do código.

Sendo assim até o momento nada foi feito com relação a essa melhoria.