No ACBRNfseX como fazer para o IBSCBS serem montados no arquivo de recibo para gerar o RPS da nota fiscal do Provedor WebISS conforme o padrão abaixo

[Suend Schneider]

Boa noite.

Estou com uma dificuldade para preencher os campos corretos do componente ACBRNfseX para montar a tag do IBS e CBS para o Provedor WebISS conforme o padrão abaixo:

<IBSCBS>

<cLocalidadeIncid>9999999</cLocalidadeIncid>

<xLocalidadeIncid>Cidade da Homologação</xLocalidadeIncid>

<valores>

<vBC>9.50</vBC>

<uf>

<pIBSUF>0.10</pIBSUF>

<pRedAliqUF>0.00</pRedAliqUF>

<pAliqEfetUF>0.00</pAliqEfetUF>

</uf>

<mun>

<pIBSMun>0.00</pIBSMun>

<pRedAliqMun>0.00</pRedAliqMun>

<pAliqEfetMun>0.00</pAliqEfetMun>

</mun>

<fed>

<pCBS>0.90</pCBS>

<pRedAliqCBS>0.00</pRedAliqCBS>

<pAliqEfetCBS>0.00</pAliqEfetCBS>

</fed>

</valores>

<totCIBS>

<vTotNF>10.00</vTotNF>

<gIBS>

<vIBSTot>0.01</vIBSTot>

<gIBSUFTot>

<vIBSUF>0.01</vIBSUF>

</gIBSUFTot>

<gIBSMunTot>

<vIBSMun>0.00</vIBSMun>

</gIBSMunTot>

</gIBS>

<gCBS>

<vCBS>0.09</vCBS>

</gCBS>

</totCIBS>

</IBSCBS>

 

Observei que na parte final do programa demo que é disponibilizado para testes ao desenvolvedor e entender como funciona o componente que existe esta parte do código para o provedor SpeedGov e ISSNatal que preenchem o componente com as informações do IBSCBS de forma similar ao XML acima, até adicionei o provedor WebISS nesse in para testar, porém ao processar a geração do RPS da Nota, o XML recibo não acrescenta as tags do IBSCBS. 

        if ACBrNFSeX1.Configuracoes.Geral.Provedor in [proSpeedGov, proISSNatal] then
        begin
          infNFSe.IBSCBS.valores.uf.pIBSUF := IBSCBS.valores.IbsEstadual;
          infNFSe.IBSCBS.valores.uf.pRedAliqUF := 0;
          infNFSe.IBSCBS.valores.uf.pAliqEfetUF := 0.1;
          infNFSe.IBSCBS.valores.mun.pIBSMun := IBSCBS.valores.IbsMunicipal;
          infNFSe.IBSCBS.valores.mun.pAliqEfetMun := 0;
          infNFSe.IBSCBS.valores.mun.pRedAliqMun := 0;
          infNFSe.IBSCBS.valores.fed.pCBS := 0.9;
          infNFSe.IBSCBS.valores.fed.pRedAliqCBS := 0;
          infNFSe.IBSCBS.valores.fed.pAliqEfetCBS := 0.9;
          infNFSe.IBSCBS.cLocalidadeIncid := StrToInt(Servico.CodigoTributacaoMunicipio);
          infNFSe.IBSCBS.xLocalidadeIncid := 'Cidade da Homologação';

          Servico.Valores.ValorTotalNotaFiscal := Servico.Valores.ValorServicos + IBSCBS.valores.ValorIbsEstadual +
            IBSCBS.valores.ValorIbsMunicipal + IBSCBS.valores.ValorCbs;
        end;

Me dá a impressão, que preencher as configurações do IBSCBS por infNFSE não funciona para esse provedor, porém, em IBSCBS. não tem propriedades similares para fazer esse preenchimento conforme essa parte do exemplo exposta

Alguém tem alguma dica de como eu posso fazer para montar essa parte do IBSCBS para o provedor WebISS?

Obrigado

Suend Schneider

[Suend Schneider]

Mexendo e apanhando acabei achando as respostas:

Só preencher estas propriedades, enviar, que o próprio provedor ao gerar a NF o provedor no meu caso o WebISS montará as informações acima de forma automática ...

IBSCBS.finNFSe := fnfsRegular;
IBSCBS.indFinal := ifSim;
IBSCBS.cIndOp := '100601';
IBSCBS.tpOper := togNenhum;

IBSCBS.valores.trib.gIBSCBS.CST := cst000;
IBSCBS.valores.trib.gIBSCBS.cClassTrib := '000001';

[Guilherme Martin Ewz]

Estou com problema ao contrario, que é na leitura, pois como o próprio colega postou, a TAG Valores é aquela mesma ali, e no retorno ele busca outras TAGs, acredito que o "ACBrNFSeX.NotasFiscais.LoadFromString" não esta mais atual pois ainda espera 

LerXMLgTribRegular(ANode.Childrens.FindAnyNs('gTribRegular'), gIBSCBS.gTribRegular);
LerXMLgDif(ANode.Childrens.FindAnyNs('gDif'), gIBSCBS.gDif);



 

Editado 20 Março por Guilherme Martin Ewz