NFS-e - Valor de deduções zerado na Betha Cloud (Criciúma - SC)

[jacke venson]

Olá boa tarde, 

Estamos tentando enviar uma nota fiscal para o provedor Betha Cloud, na cidade de Criciúma -SC, com valor de dedução.

Estou com todos os fontes do acbrnfsex atualizados,  e no xml gerado consta  a tag <ValorDeducoes>0.60</ValorDeducoes> corretamente.

Porém, no ambiente da prefeitura a nota não consta valor de dedução. 

Acho que o problema talvez seja porque não está sendo enviado nos itens, utilizando a rotina ConsolidarVariosItensServicosEmUmSo da ACBrNFSeXGravarXml.

Ao utilizar a FormatoDiscriminacao = fdTabulado, os valores de dedução não estão sendo incluídos nessa rotina. 

Verifiquei o manual da Betha https://iss.ajuda.betha.cloud/assets/files/4-547a9bc0ced9561108383dfc0fc818f7.pdf e consta que devemos enviar o valor de deduções nos serviços tbm:

{[[DESCRICAO= EXEMPLO DE TAXA DIVERSA][ITEMSERVICO=0902][ALIQUOTA=0.02] [QUANTIDADE=1][VALORUNITARIO=296.00][DEDUCOES=0.00][DESCONTOCONDICIONADO=0.00][DESC ONTOINCONDICIONADO=0.00] [codigotaxadiversa=1][valortaxadiversa=2.50]]}

Fiz um teste colocando as deducoes nos servicos, como no exemplo abaixo, e a nota saiu com valor de deduçao corretamente na prefeitura.

<Discriminacao>{[[Descricao=Blockchain][ItemServico=1003][Quantidade=1][ValorUnitario=1][Deducoes=0.1][ValorServico=1][ValorBaseCalculo=1][Aliquota=2][DescontoIncondicionado=0]]}</Discriminacao>

Alguém, passou por essa situação, ou consegue nos ajudar a como resolver essa questão?

Obrigada.

 

[Juliomar Marchetti]

Eles tem um xml de exemplo com essas informações ou até mesmo no manual algo 

ou somente é descrito

[jacke venson]

32 minutos atrás, Juliomar Marchetti disse:

Eles tem um xml de exemplo com essas informações ou até mesmo no manual algo 

ou somente é descrito

Oi Juliomar, obrigada pelo retorno!

Sim, eles disponibilizaram exemplos de xml, encontrei no site deles, vou deixar aqui o link se vc puder verificar: https://iss.ajuda.betha.cloud/e-nota-cloud/ajuda/outros-conteudos/web-service, está na parte do layout da Betha sistema na versão 1.0.

Coloquei aqui em anexo o arquivo deles de exemplo com mais de um item. Nele consta a informação que deve ir na tag <Discriminacao>:

<Discriminacao>{[[DESCRICAO= SERVIÇO 1][ITEMSERVICO=0101][ALIQUOTA=0.03][QUANTIDADE=1][VALORUNITARIO=325.60][DEDUCOES=0.00][DESCONTOCONDICIONADO=0.00][DESCONTOINCONDICIONADO=0.00]][[DESCRICAO= SERVIÇO 2][ITEMSERVICO=0102][ALIQUOTA=0.02][QUANTIDADE=1][VALORUNITARIO=296.00][DEDUCOES=0.00][DESCONTOCONDICIONADO=0.00][DESCONTOINCONDICIONADO=0.00]]}</Discriminacao>

Este é um caso especifico do provedor Betha, SubVersao:1, eu entendi que devemos adicionar tbm "[DEDUCOES=0.00]" para cada item.  Conforme o teste que fiz enviando, o valor de deduções constou corretamente. 

 

3 - RecepcionarLoteRpsPopulado (mais de um serviço no RPS).xml

[Gabriel Rombaldi]

Aproveitando o tópico, também estou transmitindo NFS-e para o provedor Betha para a prefeitura de criciúma e a forma de envio dos itens deve ser dentro da tag "Discriminacao" e em formato tabulado, conforme a Jacke relatou anteriormente. Desta forma, sugiro que na unit "ACBrNFSeXGravarXml", no método "GerarTabulado", seja tratado para enviar as informações nos campos somente se tiverem valores maiores que zero, para evitar de estourar o limite de 2000 caracteres do campo.

Segue código abaixo que sugiro que seja feito no método:

 

function TNFSeWClass.GerarTabulado(const xDescricao, xCodigoItem: string;
  aQuantidade, aValorUnitario, aValorDeducoes, aValorServico, aBaseCalculo,
  aAliquota: Double; aDescontoIncondicionado: Double): string;
begin
  Result := '[[Descricao=' + xDescricao + ']' +
             '[ItemServico=' + xCodigoItem + ']' +
             '[Quantidade=' + FloatToString(aQuantidade, Opcoes.DecimalChar) + ']' +
             '[ValorUnitario=' + FloatToString(aValorUnitario, Opcoes.DecimalChar) + ']' +
             IfThen(aValorDeducoes > 0, '[Deducoes=' + FloatToString(aValorDeducoes, Opcoes.DecimalChar) + ']', '') +
             IfThen(aValorServico > 0, '[ValorServico=' + FloatToString(aValorServico, Opcoes.DecimalChar) + ']', '') +
             IfThen(aBaseCalculo > 0, '[ValorBaseCalculo=' + FloatToString(aBaseCalculo, Opcoes.DecimalChar) + ']', '') +
             IfThen(aAliquota > 0, '[Aliquota=' + FloatToString(aAliquota, Opcoes.DecimalChar) + ']', '') +
             IfThen(aDescontoIncondicionado > 0, '[DescontoIncondicionado=' + FloatToString(aDescontoIncondicionado, Opcoes.DecimalChar) + ']', '') + ']';
end;
 

Para as informações de "Descricao", "ItemServico", "Quantidade" e "ValorUnitario", não fiz tratamento pois estes campos sempre teriam que ter valor para ser uma informação válida.