Incluir Itens Na Nfse

[filipe_ntv]

Bom dia a todos,

 

Estou criando um sistema para emissão de NFSe para o provedor da Betha.

 

só tem um problema, como faço para o componente de impressão da danfe para imprimir  mais de um serviço?

 

dentro do XML do sistema Fly e-nota da Betha sistemas vem a seguinte informação.

 

enviei o loteRPS para o site deles e funcionou a imprissão no site deles imprime os 2 itens, mais no meu sistema a impressão mostrou somente está string

 

<Discriminacao>{[[Descricao=Desenvolvimento de Software][Quantidade=1][ValorUnitario=200][Deducoes=0][DescontoCondicionado=0][DescontoIncondicionado=0]] [[Descricao=Manutencao de computadores][Quantidade=1][ValorUnitario=150][Deducoes=0][DescontoCondicionado=0][DescontoIncondicionado=0]]}</Discriminacao>

 

o componente deveria separar os campos corretamente ?

 

[cesarpir]

Bom dia filipe.

 

Você conseguiu resolver isto?

Eu também preciso imprimir os itens da NFSE, vi que estão no XML gerado, porém não imprimi somente.

 

abs.

[Leandro_Silva]

Bom dia pessoal.... deu certo esse problema ?

[cesarpir]

Não picyka estou fazendo um novo relatório via Fortes report, pois pelo que vi nos fontes do acbrnfse não fizeram o imprimir os itens do serviço.

[Juliomar Marchetti]

Não picyka estou fazendo um novo relatório via Fortes report, pois pelo que vi nos fontes do acbrnfse não fizeram o imprimir os itens do serviço.

Se quiser contribuir e alterar o fonte do ACBr é só anexar que avaliamos e subimos ao svn contemplando isso!

[cesarpir]

Boa tarde Juliomar Marchetti.

 

 

Bom eu alterei os fontes do AcbrNfse para conseguir imprimir logo abaixo da Discriminação do serviço os registros  da Descrição, Quantidade, Tributável, ValorUnitário, ValorTotal, não sou um desenvolvedor de componentes, rsrs, mas para a necessidade que tenho urgente resolveu.

Estou enviando para avaliarem lembrando que foi feito conforme a necessidade de momento onde tenho uma discriminação de serviço e vários itens abaixo, estamos testando eu o cliente, até o momento está ok, porém estou tendo dificuldades com uma outra coisa, o número da nota fiscal que sai no canto direito da página, estou checando o meu envio porque sai outro número queria que acompanhasse o número do meu sistema.

 

obs.: Somente para Fortes report.

 

Bom abs, e espero que ajude algo.

ACBrNFSe.rar

Editado 6 Junho, 2014 por cesarpir

[Angelo Gomes]

Não sei se em todas as cidades são assim, mas aqui na minha quem controla a numeração da NFS-e é o sistema da prefeitura, depois de enviar, eu pego o número no retorno e guardo no meu banco.

[cesarpir]

Angelo Gomes, bom dia.

 

Entendi muito obrigado pelo comentário, realmente pode ser isto, fiz alguns testes e o número da nota fiscal (canto superior direito) realmente não imprimi o que eu envio, pelo menos com o provedor Simpliss, está assim.

 

Abs.

 

Obrigado novamente.

[Professor]

Boa tarde cesarpir!

Gostaria de saber como vc fez para imprimir os itens ns NFse. Fiz a atualização, mas nao consegui fazer aparecer os itens. Vc tem algum modelo de xml ?

 

Att

Professor

[Professor]

Boa tarde!

 

Alguem conseguiu fazer impressão de itens na nfse?

 

Obrigado

 

Professor

[Agnaldo Prates]

Pessoal boa tarde.

Não sei se é só cimigo que está ocorrendo. Recebi um DANFS de um cliente onde ele tem vários itens, mas não consegui de forma alguma adicionar estes itens ao DANFS do ACBrNFSe.

Analisei o XML gerado e o mesmo só tem o item principal, os itens da nota não existem.

 

Isso é normal, ou só é gerado internamente na prefeitura?

 

Provedor Fiorilli.

 

Abraços.

[Professor]

Boa tarde!

 

Estou com o mesmo problema... !!

 

Alguém consegiu add itens na NFSe?

 

Abraço

 

Professor

[Agnaldo Prates]

Unica alternativa que encontrei. 

 

Var cDescri:String;

.

.

cDescri:='';

While Not TbItens.eof do

begin

       if cDescri<>'' then cDescri:= cDescri + ', ';

       cDescri:= cDescri + TbItensDescricao.Value;

      TbItens.Next;

End;

ItemServico.Discriminacao := Descri;

 

Esta é uma solução POG.

[Oneide Luiz Schneider]

bom dia..

 

é a unica solução hoje para os itens. Efetuar um 'while' neles e colocar na descriminação oque precisar deles, ate por que tem 2000 caracteres.

ja postei isso em outros posts aqui no forum.

[Professor]

Boa noite!

 

Estou com problemas na utilização do ACBrNFSeDANFSeRL1.

Ele me dá a seguinte mensagem qdo solicito a impressão.

 

RLNFSE: Erro durante a preparação do relatório ( EConvertError("is not a valid floating point value)

[Agnaldo Prates]

Bom dia.

Provavelmente você está tentando imprimir um RPS, certo?:

Se for, a linha 278 da unit AcBrDANFSeRLRetrato.pas está assim:

rllNumNF0.Caption  := {FormatDateTime('yyyy', FNFSe.DataEmissao)+}

                       FormatFloat('00000000000', StrToFloat(FNFSe.Numero));

Contudo, o FormatFloat está tentando fazer numerico um dato nulo, então, sugiro aos moderadores coloca uma condição antes da linha informada:

 

if  FNFSe.Numero='' then  FNFSe.Numero:='0';

 

rllNumNF0.Caption  := {FormatDateTime('yyyy', FNFSe.DataEmissao)+}

                       FormatFloat('00000000000', StrToFloat(FNFSe.Numero));

 

Abraço.

[rodrigod6]

Boa Tarde Pessoal,

 

Vi que na pnfsNFSe temos o TItemServicoCollectionItem.

Onde temos os campos:

FDescricao

FQuantidade

FValorUnitario

FValorTotal

Etc...

 

Isso seria para impressão do itens carregados do XML (todos na descrição) de alguma forma?

Pois só temos a descrição que podemos utilizar!!!

Estou tentando imprimir os itens em formato de grid.

Vi que no FR não tem nada e que o colega Cesar postou alguma coisa em Fortes Reports.

 

Alguém esta imprimindo os itens?

 

Abraços,

[Agnaldo Prates]

Bom dia.

Esta solução, como eu disse em um post anterior é uma POG, mas funciona.

 

Var cDescri:String;

begin

   cDescri:='';

   While Not TbItens.eof do

   begin

          if cDescri<>'' then cDescri:= cDescri + ', ';

          cDescri:= cDescri + TbItensDescricao.Value;

         TbItens.Next;

   End;

   ItemServico.Discriminacao := Descri;

End;

Se você quer que apareça os itens abaixo um do outro então no luar da vírgula, coloque ponto e vírgula.

Ex:

cDescri:= cDescri + ';' ; // Vai quebrar uma linha, se quiser concatene: Descrição + Quantidade + Preço + Total.

 

Espero que lhe ajude.

 

[cesarpir]

Boa tarde a todos e ao Professor.

 

Em primeiro lugar desculpem tanto pela demora, mas não notei que apareceu mais msg aqui neste tópico e também não temos mais avisos parece, antigamente chegava um email dizendo que alguém comentou algo, enfim acho eu, rsrsrs.

Bom segue o xml que tenho de exemplo onde tenho 1 serviço contendo mais de um item, isto no Simpliss, observem a tag <ItensServico>.

Eu alterei os fontes do acbrnfse conforme disse no tópico anterior e na rotina de gerarNfse tenho uma parte assim:

 

 

    FNot02.CSer.First; //Clientdataset

      while not FNot02.CSer.Eof do

      begin

        with Servico.ItemServico.Add do

        begin

          Descricao := TrataTexto(FNot02.CSerSERDES.asString);

          Quantidade := FNot02.CSerSERQTD.asInteger;

          ValorUnitario := FNot02.CSerSERVAL.asCurrency;

          ValorTotal := FNot02.CSerSERTOT.asCurrency;

          Tributavel := snNao;

        end;

        FNot02.CSer.Next;

      end;

 

628-nfse.xml

[Professor]

Boa tarde cesarpir!

 

desculpe a demora em responder. Precisei dar um tempo no projeto, mas agora estamos na ativa novamente.

Deu certo as alterações que vc enviou..

 

 

Valeu!

 

Abç.

[LeoSlander]

Bom dia pessoal!

 

Alguém implementou a impressão de itens para a DANFSe?

 

Desde já agradeço a atenção!

[madalozzo]

Bom dia

 

Eu fiz algumas alterações para mostrar os itens, estou colocando as alterações aqui para que possa ser analisada.

 

Obrigado

pnfsNFSeR.pas

pcnLeitor.pas

ACBrNFSeDANFSeRLRetrato.pas

[Italo Giurizzato Junior]

Boa tarde Madalozzo, 

 

Vamos avaliar as suas alterações e caso esteja tudo OK vamos disponibilizar.

[icozeira]

Bom dia,

Pessoal a impressão de varios itens na nota de serviço tá funcionando ?

[Italo Giurizzato Junior]

Bom dia Icozeira,

A principio, segundo o layout da ABRASF só é possível informar somente um item da lista de serviços.

Tem provedor que permite incluir mais do que um.

Agora lhe pergunto, quando você se refere a vários itens esta se referindo aos itens da lista de serviços ou na discriminação informar um serviço por linha?