Nfc-E Nota Conjugada

[newtongaucho]

Pessoal,

recentemente precisei fazer a NFC conjugada e encontrei alguns problemas que devemos corrigir

todos os problemas estão nos arquivos PCNNFEW.pas. as alterações que fiz marquei com //newton

procedure TNFeW.GerarTotalISSQNtot;
begin
  if (nfe.Total.ISSQNtot.vServ > 0) or
    (nfe.Total.ISSQNtot.vBC > 0) or
    (nfe.Total.ISSQNtot.vISS > 0) or
    (nfe.Total.ISSQNtot.vPIS > 0) or
    (nfe.Total.ISSQNtot.vCOFINS > 0) then
  begin
    Gerador.wGrupo('ISSQNtot', 'W17');
    Gerador.wCampo(tcDe2, 'W18', 'vServ     ', 01, 15, 0, nfe.Total.ISSQNtot.vServ, DSC_VSERV);
    Gerador.wCampo(tcDe2, 'W19', 'vBC       ', 01, 15, 0, nfe.Total.ISSQNtot.vBC, DSC_VBC);
    Gerador.wCampo(tcDe2, 'W20', 'vISS      ', 01, 15, 0, nfe.Total.ISSQNtot.vISS, DSC_VISS);
    Gerador.wCampo(tcDe2, 'W21', 'vPIS      ', 01, 15, 0, nfe.Total.ISSQNtot.vPIS, DSC_VPIS);
    Gerador.wCampo(tcDe2, 'W22', 'vCOFINS   ', 01, 15, 0, nfe.Total.ISSQNtot.vCOFINS, DSC_VCOFINS);

    if nfe.infNFe.Versao >= 3.10 then
    begin
      //newton o manual esta errado, na realidade a DCompet deve ser no formato YYYY-MM-DD e não YYYYMMDD
      Gerador.wCampo(tcStr, 'W22a', 'dCompet     ', 10, 10, 1, FormatDateTime('YYYY-MM-DD', nfe.Total.ISSQNtot.dCompet), DSC_DCOMPET);
      Gerador.wCampo(tcDe2, 'W22b', 'vDeducao    ', 01, 15, 0, nfe.Total.ISSQNtot.vDeducao, DSC_VDEDUCAO);
//      Gerador.wCampo(tcDe2, 'W22c', 'vINSS       ', 01, 15, 0, nfe.Total.ISSQNtot.vINSS, DSC_VINSS);
//      Gerador.wCampo(tcDe2, 'W22d', 'vIR         ', 01, 15, 0, nfe.Total.ISSQNtot.vIR, DSC_VIR);
//      Gerador.wCampo(tcDe2, 'W22e', 'vCSLL       ', 01, 15, 0, nfe.Total.ISSQNtot.vCSLL, DSC_VCSLL);
      Gerador.wCampo(tcDe2, 'W22c', 'vOutro      ', 01, 15, 0, nfe.Total.ISSQNtot.vOutro, DSC_VOUTRODED);
      Gerador.wCampo(tcDe2, 'W22d', 'vDescIncond ', 01, 15, 0, nfe.Total.ISSQNtot.vDescIncond, DSC_VDESCINCOND);
      Gerador.wCampo(tcDe2, 'W22e', 'vDescCond   ', 01, 15, 0, nfe.Total.ISSQNtot.vDescCond, DSC_VDESCCOND);
//      Gerador.wCampo(tcStr, 'W22i', 'indISSRet   ', 01, 01, 1, indISSRetToStr( nfe.Total.ISSQNtot.indISSRet ) , DSC_INDISSRET);
//      Gerador.wCampo(tcStr, 'W22j', 'indISS      ', 01, 01, 1, indISSToStr( nfe.Total.ISSQNtot.indISS ) , DSC_INDISS);
//      Gerador.wCampo(tcStr, 'W22k', 'cServico    ', 01, 20, 0, nfe.Total.ISSQNtot.cServico , DSC_CSERVICO);
//      Gerador.wCampo(tcInt, 'W22l', 'cMun        ', 01, 07, 0, nfe.Total.ISSQNtot.cMun, DSC_CMUN);
//      Gerador.wCampo(tcInt, 'W22m', 'cPais       ', 01, 04, 0, nfe.Total.ISSQNtot.cPais, DSC_CPAIS);
//      Gerador.wCampo(tcStr, 'W22n', 'nProcesso   ', 01, 30, 0, nfe.Total.ISSQNtot.nProcesso , DSC_NPROCESSO);

      // Italo
      Gerador.wCampo(tcDe2, 'W22f', 'vISSRet     ', 01, 15, 0, nfe.Total.ISSQNtot.vISSRet, DSC_VISSRET);
      Gerador.wCampo(tcStr, 'W22g', 'cRegTrib    ', 01, 01, 1, RegTribISSQNToStr( nfe.Total.ISSQNtot.cRegTrib ) , DSC_CREGTRIB);
//      Gerador.wCampo(tcStr, 'W22p', 'indIncentivo', 01, 01, 1, indIncentivoToStr( nfe.Total.ISSQNtot.indIncentivo ) , DSC_INDINCENTIVO);
    end;

    Gerador.wGrupo('/ISSQNtot');
  end;
end;

Como na versão 3.1 não existe mais a obrigatoriedade da cSitTrib no ISSQN, devemos corrigir a rotina abaixo:

procedure TNFeW.GerarDetImposto(const i: integer);
// Rotina melhorada por
// Newton Oliveira    - > [email protected]
begin
  Gerador.wGrupo('imposto', 'M01');
  Gerador.wCampo(tcDe2, 'M02', 'vTotTrib ', 01, 15, 0, nfe.Det[i].Imposto.vTotTrib, DSC_VTOTTRIB);

  //newton o campo cSitTrib não é mais obrigatório na versõo 3.1
  if nfe.Det[i].Imposto.ISSQN.cSitTrib <> ISSQNcSitTribVazio then
   begin
      (**)GerarDetImpostoISSQN(i);
      if NFe.infNFe.Versao >= 3 then
        (**)GerarDetImpostoIPI(i);
   end
  else
   begin
       //newton se tiver ISSQN não pode ter a tag ICMS. isto acontece no caso de NFC
       //conjugada
         if (nfe.Det[i].Imposto.ISSQN.vBC > 0) or
            (nfe.Det[i].Imposto.ISSQN.vAliq > 0) or
            (nfe.Det[i].Imposto.ISSQN.vISSQN > 0) or
            (nfe.Det[i].Imposto.ISSQN.cMunFG > 0) or
            (nfe.Det[i].Imposto.ISSQN.cListServ <> '') then
         begin
           (**)GerarDetImpostoISSQN(i);
           (**)GerarDetImpostoIPI(i);
         end
         else
         begin
           (**)GerarDetImpostoICMS(i);
           (**)GerarDetImpostoIPI(i);
           (**)GerarDetImpostoII(i);
         end;
   end;
  (**)GerarDetImpostoPIS(i);
  (**)GerarDetImpostoPISST(i);
  (**)GerarDetImpostoCOFINS(i);
  (**)GerarDetImpostoCOFINSST(i);

  Gerador.wGrupo('/imposto');
end;

[Juliomar Marchetti]

Favor anexar Unit assim será avaliada as alterações!

[Vanessinha Mocellin]

Boa tarde

 

De acordo com a situação citada pelo Newton, referente ao campo cSitTrib do grupo ISSQN, na versão 3.01 não existe mais, foi removido.

Dessa forma ao executar o comando: ACBrNFe.NotasFiscais.LoadFromString( XML ), pelo fato desse campo não existir mais no XML será atribuido o valor default ISSQNcSitTribVazio referente a versão 3.01.

 

Na unit pcnNFeW procedimento GerarDetImposto é realizado a verificação se a situação tributária for diferente de ISSQNcSitTribVazio para atribuir os impostos de ISSQN, porém esse campo sempre estará com o default vazio na versão 3.01 independente se for produto mercadoria ou produto serviço e dessa forma nunca será atribuído impostos de ISSQN para produtos serviços.

 

Sugiro para resolver essa situação alterar a condição, passar a verificar se versão for maior que 3 a possuir informação da lista de serviço então se considera um produto serviço.

 

De:

 

         if nfe.Det.Imposto.ISSQN.cSitTrib <> ISSQNcSitTribVazio then

 

Para:

 

         if (( NFe.Det.Imposto.ISSQN.cSitTrib <> ISSQNcSitTribVazio ) or (( NFe.infNFe.Versao > 3 ) and ( nfe.Det.Imposto.ISSQN.cListServ <> '' ))) then

 

Obs: Verificado pela lista de serviço em virtude de que os outros campos que são obrigatórios podem receber valor zero ( exemplo vISSQN ).

Dessa forma garantimos que se tiver lista de serviço informado ( que é obrigatório para serviço ) então é considerado de fato um produto serviço.

Editado 6 Junho, 2014 por Vanessinha Mocellin

[Italo Giurizzato Junior]

Bom dia a todos,

 

Favor postarem como anexo a unit pcnNFeW.pas, quero analisar as 2 soluções.

[Vanessinha Mocellin]

Bom dia a todos,

 

Favor postarem como anexo a unit pcnNFeW.pas, quero analisar as 2 soluções.

 

Segue em anexo solução para resolver os impostos de produtos serviço na versão 3.1 devido não existir mais o campo cSitTrib.

pcnNFeW.pas

[Italo Giurizzato Junior]

Bom dia Vanessa,

 

Muito obrigado pela colaboração, já esta disponível.

[Valmir A. Martins]

Estou tempo este problema com as nfe conjugadas embora tenho feito todas as alterações

continua dando o mesmo erro

 

35150417450939000150550010000005311000005310-nfe.xml

35150417450939000150550010000005311000005310-nfe.xml

[Valmir A. Martins]

Alguem pode dar um socorro. Após a atualização da ver 2.0 p 3.10 as nfe conjugas (produtos e serviço) ou somente serviço

não estão amais validadando  reporta com  erro seque o xml para correção

 

<NFe xmlns="http://www.portalfiscal.inf.br/nfe">

- <infNFe versao="3.10" Id="NFe35150417450939000150550010000005311000005310">

- <ide>

  <cUF>35</cUF>

  <cNF>00000531</cNF>

  <natOp>/SERVICO</natOp>

  <indPag>0</indPag>

  <mod>55</mod>

  <serie>1</serie>

  <nNF>531</nNF>

  <dhEmi>2015-04-09T00:00:00-03:00</dhEmi>

  <dhSaiEnt>2015-04-09T00:00:00-03:00</dhSaiEnt>

  <tpNF>1</tpNF>

  <idDest>1</idDest>

  <cMunFG>3524303</cMunFG>

  <tpImp>1</tpImp>

  <tpEmis>1</tpEmis>

  <cDV>0</cDV>

  <tpAmb>1</tpAmb>

  <finNFe>1</finNFe>

  <indFinal>0</indFinal>

  <indPres>0</indPres>

  <procEmi>0</procEmi>

  <verProc>1.0.0.0</verProc>

  </ide>

- <emit>

  <CNPJ>17450939000150</CNPJ>

  <xNome>RICHIERI NEIRA</xNome>

  <xFant>RN IMPRESSORAS</xFant>

- <enderEmit>

  <xLgr>AV. SETE DE SETEMBRO</xLgr>

  <nro>501</nro>

  <xBairro>CENTRO</xBairro>

  <cMun>3524303</cMun>

  <xMun>JABOTICABAL</xMun>

  <UF>SP</UF>

  <CEP>14870590</CEP>

  <cPais>1058</cPais>

  <xPais>BRASIL</xPais>

  <fone>1632028728</fone>

  </enderEmit>

  <IE>391064844114</IE>

  <IM>118990</IM>

  <CNAE>4751202</CNAE>

  <CRT>1</CRT>

  </emit>

- <dest>

  <CNPJ>10765035000175</CNPJ>

  <xNome>GUZZO ARQUITETURA E CONSTRUCAO LTDA</xNome>

- <enderDest>

  <xLgr>AVENIDA CAPITaO ALBERTO MENDES JuNIOR</xLgr>

  <nro>435</nro>

  <xBairro>JARDIM SANTA RITA</xBairro>

  <cMun>3524303</cMun>

  <xMun>JABOTICABAL</xMun>

  <UF>SP</UF>

  <CEP>14887008</CEP>

  <cPais>1058</cPais>

  <xPais>BRASIL</xPais>

  <fone>1632023338</fone>

  </enderDest>

  <indIEDest>1</indIEDest>

  <IE>391139125119</IE>

  </dest>

- <det nItem="1">

- <prod>

  <cProd>16</cProd>

  <cEAN />

  <xProd>REC. CARTUCHO DE TONER BROTHER (410-450)</xProd>

  <NCM>00</NCM>

  <CFOP>5933</CFOP>

  <uCom>UN</uCom>

  <qCom>4.0000</qCom>

  <vUnCom>35.0000000000</vUnCom>

  <vProd>140.00</vProd>

  <cEANTrib />

  <uTrib>UN</uTrib>

  <qTrib>4.0000</qTrib>

  <vUnTrib>35.0000000000</vUnTrib>

  <indTot>1</indTot>

  </prod>

- <imposto>

- <ISSQN>

  <vBC>140.00</vBC>

  <vAliq>3.0000</vAliq>

  <vISSQN>4.20</vISSQN>

  <cMunFG>3524303</cMunFG>

  <cListServ>14.07</cListServ>

  <indISS>1</indISS>

  <indIncentivo>1</indIncentivo>

  </ISSQN>

- <PIS>

- <PISAliq>

  <CST>01</CST>

  <vBC>0.00</vBC>

  <pPIS>0.0000</pPIS>

  <vPIS>0.00</vPIS>

  </PISAliq>

  </PIS>

- <COFINS>

- <COFINSAliq>

  <CST>01</CST>

  <vBC>0.00</vBC>

  <pCOFINS>0.0000</pCOFINS>

  <vCOFINS>0.00</vCOFINS>

  </COFINSAliq>

  </COFINS>

  </imposto>

  </det>

- <total>

- <ICMSTot>

  <vBC>0.00</vBC>

  <vICMS>0.00</vICMS>

  <vICMSDeson>0.00</vICMSDeson>

  <vBCST>0.00</vBCST>

  <vST>0.00</vST>

  <vProd>0.00</vProd>

  <vFrete>0.00</vFrete>

  <vSeg>0.00</vSeg>

  <vDesc>0.00</vDesc>

  <vII>0.00</vII>

  <vIPI>0.00</vIPI>

  <vPIS>0.00</vPIS>

  <vCOFINS>0.00</vCOFINS>

  <vOutro>0.00</vOutro>

  <vNF>140.00</vNF>

  </ICMSTot>

- <ISSQNtot>

  <vServ>140.00</vServ>

  <vBC>140.00</vBC>

  <vISS>4.20</vISS>

  <vPIS>0.01</vPIS>

  <vCOFINS>0.01</vCOFINS>

  <dCompet>00:00:00</dCompet>

  <cRegTrib>1</cRegTrib>

  </ISSQNtot>

  </total>

- <transp>

  <modFrete>1</modFrete>

- <transporta>

  <xNome>NOSSO CARRO</xNome>

  </transporta>

- <vol>

  <qVol>1</qVol>

  <esp>VOLUME</esp>

  <marca>DIVERSAS</marca>

  <nVol>Numero</nVol>

  <pesoL>1.000</pesoL>

  <pesoB>1.000</pesoB>

  </vol>

  </transp>

- <cobr>

- <fat>

  <nFat>531</nFat>

  <vOrig>140.00</vOrig>

  <vLiq>140.00</vLiq>

  </fat>

- <dup>

  <nDup>531/1</nDup>

  <dVenc>2015-04-10</dVenc>

  <vDup>140.00</vDup>

  </dup>

  </cobr>

- <infAdic>

  <infCpl>Valor Aprox dos Tributos R$= 5,88 (0,00%) Fonte IBPT</infCpl>

- <obsCont xCampo="Doc. emitido por:">

  <xTexto>Optante Simples Nacional Nao gera direito a credito IPI/ISS</xTexto>

  </obsCont>

  </infAdic>

  </infNFe>

- <Signature xmlns="http://www.w3.org/2000/09/xmldsig#">

- <SignedInfo>

  <CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" />

  <SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" />

- <Reference URI="#NFe35150417450939000150550010000005311000005310">

- <Transforms>

  <Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" />

  <Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" />

  </Transforms>

  <DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />

  <DigestValue>nbRNt+7xxVULBIgHgQkqCJIoLC0=</DigestValue>

  </Reference>

  </SignedInfo>

  <SignatureValue>rqbARkwrKy0vDMDCHfdKIU1qm8y8l7QvLUxMHIPPIZAMeF168HSMOZybtS0ls5YfhXND32wO+iXhEKZi+lcOvWTO4AKpxgZuK/8bmK/tg2h9GP5gl1H6mxqmvo7U5674jCIkmlZyoN6XZT0Gwc8ucOU5OzzYpIAmjUt9z4Jbgp6OY3ia9xfhg1yKAF3FaU45K0OD0n/vunNDJD5FrYWEs1xMWKVQTgIMtbS2CqyWTYsxBliD65KAEnOyVF6idtEPa9gSij70B0n44zMZ/PesMTQlvZWXi/OUo/qzk4atRBbyN+KF7INY6wb3imTiKWMpGczgAV5Q52XUqCOZHZsiBQ==</SignatureValue>

- <KeyInfo>

- <X509Data>

  <X509Certificate>MIIH9DCCBdygAwIBAgIQRRGdoscT0cZWqqneJHD9vjANBgkqhkiG9w0BAQsFADBxMQswCQYDVQQGEwJCUjETMBEGA1UEChMKSUNQLUJyYXNpbDE2MDQGA1UECxMtU2VjcmV0YXJpYSBkYSBSZWNlaXRhIEZlZGVyYWwgZG8gQnJhc2lsIC0gUkZCMRUwEwYDVQQDEwxBQyBCUiBSRkIgRzMwHhcNMTQxMjA4MDAwMDAwWhcNMTcxMjA2MjM1OTU5WjCB8DELMAkGA1UEBhMCQlIxEzARBgNVBAoUCklDUC1CcmFzaWwxCzAJBgNVBAgTAlNQMRQwEgYDVQQHFAtKQUJPVElDQUJBTDE2MDQGA1UECxQtU2VjcmV0YXJpYSBkYSBSZWNlaXRhIEZlZGVyYWwgZG8gQnJhc2lsIC0gUkZCMRYwFAYDVQQLFA1SRkIgZS1DTlBKIEEzMSUwIwYDVQQLFBxBdXRlbnRpY2FkbyBwb3IgQVIgUlYgVW5pdGFzMTIwMAYDVQQDEylSSUNISUVSSSBORUlSQSAzODY4MTkzOTg3NDoxNzQ1MDkzOTAwMDE1MDCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBAL7fZ7vAxKcSZW3nQfUjcGGqV757WSUB2CCBs5lNGqS3Nej9XrIb+KQEqFpQXV/hFgyjMVnyDlYDCeo7Z5bGgrAgFkVi8My+tRmR8oIaalNgTyCeFm6Z/Txnl8W7gz3wgBGQQpIqRRJO1ZWzl2zUNH7LrGpG/CFXrKidz1NmRER2NtTvW0Q5v0tA2hgtrWqbCjocRau5D/h2U+vraAIGQt9eyRe9fDDn/i0gGpl1lWGzxWkK6iO0+mRBDT5NiRxeYIHF46T98JiNKTpmEG4k5x4DdeQ6SbUVMcELNL0sLqaC9+U9r9kqHUuDbTIPVfNQtEpM0wryDnFrmufSUY7+XckCAwEAAaOCAwYwggMCMIGuBgNVHREEgaYwgaOgOAYFYEwBAwSgLwQtMjMwODE5OTAzODY4MTkzOTg3NDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwoBkGBWBMAQMCoBAEDlJJQ0hJRVJJIE5FSVJBoBkGBWBMAQMDoBAEDjE3NDUwOTM5MDAwMTUwoBcGBWBMAQMHoA4EDDAwMDAwMDAwMDAwMIEYdmVuZGFzQHJuaW1wcmVzc29yYXMuY29tMAkGA1UdEwQCMAAwHwYDVR0jBBgwFoAUTvuocXG/6qm9kT1NumSs+dLi5KQwDgYDVR0PAQH/BAQDAgXgMGwGA1UdIARlMGMwYQYGYEwBAgMYMFcwVQYIKwYBBQUHAgEWSWh0dHA6Ly9pY3AtYnJhc2lsLmFjYnIub3JnLmJyL3JlcG9zaXRvcmlvL2RwYy9BQ19CUl9SRkIvRFBDX0FDX0JSX1JGQi5wZGYwgfQGA1UdHwSB7DCB6TBLoEmgR4ZFaHR0cDovL2ljcC1icmFzaWwuYWNici5vcmcuYnIvcmVwb3NpdG9yaW8vbGNyL0FDQlJSRkJHMy9MYXRlc3RDUkwuY3JsME+gTaBLhklodHRwOi8vaWNwLWJyYXNpbC5vdXRyYWxjci5jb20uYnIvcmVwb3NpdG9yaW8vbGNyL0FDQlJSRkJHMy9MYXRlc3RDUkwuY3JsMEmgR6BFhkNodHRwOi8vcmVwb3NpdG9yaW8uaWNwYnJhc2lsLmdvdi5ici9sY3IvUkZCL0FDQlJSRkJHMy9MYXRlc3RDUkwuY3JsMB0GA1UdJQQWMBQGCCsGAQUFBwMCBggrBgEFBQcDBDCBjgYIKwYBBQUHAQEEgYEwfzBTBggrBgEFBQcwAoZHaHR0cDovL2ljcC1icmFzaWwuYWNici5vcmcuYnIvcmVwb3NpdG9yaW8vY2VydGlmaWNhZG9zL0FDX0JSX1JGQl9HMy5wN2MwKAYIKwYBBQUHMAGGHGh0dHA6Ly9vY3NwLmNlcnRpc2lnbi5jb20uYnIwDQYJKoZIhvcNAQELBQADggIBACWxLZe6HO8pi3O21d7TYwxYw1pYL48NUd/bstb9s6eQIirXoZ+gzCJT7zNmW9xLvO+JGv3Jtz+OVWnkH3VcmwYP3QDIkbbrWCJdbzKOHFvuqHzBaGwpWHWABvG8u+yvTny3EW+hs3M4bbQ7WvgVJiOd+DEQWTnYc6ZskZZhtd0YXggaAkWssAb+Mzmc0hHSJIhw2CLX//6AXJq79TeVN5FYtEr8IQcBWsNHQvujyy5nUf1s6JxMspTXJ6MR/vD7LtDX/wFUFDYPMUyQZGbrtkhcalivBc0FNlCO14uTRPc03qqDKnyczf/U1ZlgDVILJFT9HSe8khtpviFJFEY2XaqJIgGt989MMglPTiaOrVcpeAa0osx+8gFOnJaswy9RtHgqiv05rzyVp9hs9qWFUz8+n7rj54t57sj8It/9iaF+cE4GyCqr/X9tqtJ5BAZF0tEtdxK5OkB0NG71Obd+KdD27SnCWrjR8l4O5X7zKzJn0AqUaAlCInDfhUOGvU4qIipXrMMt0+HCn663kmo4syGdFFlhlo/fpZgi+79NUVp9e4wGYFvqsP4Vf/F34GKp09SfPJvVhImNpPSmllwrd0ht3aqajovczY9pLe4fG5zP0dxhhwQygSZQIkOoiZGRE8AkVKZXz5H/CjztgnBT0zPke66hvRDWwfefQNEMCq3q</X509Certificate>

  </X509Data>

  </KeyInfo>

  </Signature>

  </NFe>

[Tiago Ravache]

Valmir vejo que é novo aqui, bem vindo ao fórum, aproveitando sugiro que leia as regras, é um tópico no topo do fórum criado pelo EMBarbosa, lá vc verá algumas recomendações como anexar códigos (delhpi, xml e etc) como anexo em arquivos texto mesmo, tbm procurar evitar postar repetidamente em sequencia pois existe uma opção de editar o post no canto inferior direito da própria postagem... fica a dica

[André Ferreira de Moraes]

O campos ISSQNTOT.dCompet está preenchido de forma incorreta.