Jump to content

dev botao

problemas em alimentar tags


Go to solution Solved by BigWings,
  • Este tópico foi criado há 1568 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa noite, estou com dificuldades em identificar as tags abaixo do provedor infisc do meu xml, alguem poderia me ajudar por favor?

-<ISS>

<vBCSTISS></vBCSTISS>

<vSTISS></vSTISS>

</ISS>

como eu ja gero outros provedores por esse webservice, segue um pedaço do codigo que acredito que alimente essas tags

        Servico.Valores.ValorServicos          := FloatToCurr(Q.FieldByName('mpsc_totalservicos').AsFloat);
        Servico.Valores.ValorDeducoes          := 0.00;
        Servico.Valores.ValorPis               := FloatToCurr(Q.FieldByName('Mpsc_PisRet'   ).AsFloat);
        Servico.Valores.ValorCofins            := FloatToCurr(Q.FieldByName('Mpsc_CofinsRet').AsFloat);
        Servico.Valores.ValorInss              := 0.00;
        Servico.Valores.ValorIr                := FloatToCurr(Q.FieldByName('Mpsc_IRRet'  ).AsFloat);
        Servico.Valores.ValorCsll              := FloatToCurr(Q.FieldByName('Mpsc_CsllRet').AsFloat);
        Servico.Valores.OutrasRetencoes        := 0.00;
        Servico.Valores.DescontoIncondicionado := 0.00;
        Servico.Valores.DescontoCondicionado   := 0.00;
        Servico.Valores.BaseCalculo            := FloatToCurr(Q.FieldByName('Mpsc_BCIss'    ).AsFloat);

por favor se alguem puder me dar uma ajuda, agradeceria demais

 

20E-rps.xml

Link to comment
Share on other sites

  • Moderadores
  • Solution

Veja trecho da unit pnfsNFSeW_Infisc.pas:

  // Total Retenção ISSQN
  Gerador.wGrupo('ISS');
  Gerador.wCampo(tcDe2, '', 'vBCISS'  , 01, 15, 0, FdTotBCISS, '');
  Gerador.wCampo(tcDe2, '', 'vISS'    , 01, 15, 0, FdTotISS, '');
  Gerador.wCampo(tcDe2, '', 'vBCSTISS', 01, 15, 0, 0, '');
  Gerador.wCampo(tcDe2, '', 'vSTISS'  , 01, 15, 0, NFSe.Servico.Valores.ValorIssRetido, '');
  Gerador.wGrupo('/ISS');

Como pode ver no código, a tag vBCSTISS é preenchida sempre com 0.00 de forma que a tag nem é gerada no XML, e a vSTISS com o valor de Servico.Valores.ValorIssRetido.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link to comment
Share on other sites

  • Este tópico foi criado há 1568 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.