Seus fontes não estão iguais aos que estão no SVN.
procedure TNFeW.GerarDetImpostoPIS(const i: integer);
begin
Gerador.wGrupo('PIS', 'Q01');
if nfe.Det[i].Imposto.PIS.CST in [pis01, pis02] then
begin
Gerador.wGrupo('PISAliq', 'Q02');
Gerador.wCampo(tcStr, 'Q06', 'CST ', 02, 02, 1, CSTPISTOStr(nfe.Det[i].Imposto.PIS.CST), DSC_CST);
Gerador.wCampo(tcDe2, 'Q07', 'vBC ', 01, 15, 1, nfe.Det[i].Imposto.PIS.vBC, DSC_VBC);
Gerador.wCampo(tcDe2, 'Q08', 'pPIS ', 01, 05, 1, nfe.Det[i].Imposto.PIS.pPIS, DSC_PPIS);
Gerador.wCampo(tcDe2, 'Q09', 'vPIS ', 01, 15, 1, nfe.Det[i].Imposto.PIS.vPIS, DSC_VPIS);
Gerador.wGrupo('/PISAliq');
end
else if nfe.Det[i].Imposto.PIS.CST = pis03 then
begin
Gerador.wGrupo('PISQtde', 'Q03');
Gerador.wCampo(tcStr, 'Q06', 'CST ', 02, 02, 1, CSTPISTOStr(nfe.Det[i].Imposto.PIS.CST), DSC_CST);
Gerador.wCampo(tcDe4, 'Q10', 'qBCProd ', 01, 16, 1, nfe.Det[i].Imposto.PIS.qBCProd, DSC_QBCPROD);
Gerador.wCampo(tcDe4, 'Q11', 'vAliqProd', 01, 15, 1, nfe.Det[i].Imposto.PIS.vAliqProd, DSC_VALIQPROD);
Gerador.wCampo(tcDe2, 'Q09', 'vPIS ', 01, 15, 1, nfe.Det[i].Imposto.PIS.vPIS, DSC_VPIS);
Gerador.wGrupo('/PISQtde');
end
else if nfe.Det[i].Imposto.PIS.CST in [pis04, pis06, pis07, pis08, pis09] then
begin
Gerador.wGrupo('PISNT', 'Q04');
Gerador.wCampo(tcStr, 'Q06', 'CST ', 02, 02, 1, CSTPISTOStr(nfe.Det[i].Imposto.PIS.CST), DSC_CST);
Gerador.wGrupo('/PISNT');
end
else if nfe.Det[i].Imposto.PIS.CST in [pis49, pis50, pis51, pis52, pis53, pis54, pis55, pis56, pis60, pis61, pis62, pis63, pis64, pis65, pis66, pis67, pis70, pis71, pis72, pis73, pis74, pis75, pis98, pis99] then
begin
if (NFe.Det[i].Imposto.PIS.vBC + NFe.Det[i].Imposto.PIS.pPIS > 0) and (NFe.Det[i].Imposto.PIS.qBCProd + NFe.Det[i].Imposto.PIS.vAliqProd > 0) then
Gerador.wAlerta('Q05', 'PISOutr', DSC_PISOUTR, 'As TAG e não podem ser informadas em conjunto com as TAG e ');
if (NFe.Det[i].Imposto.PIS.qBCProd + NFe.Det[i].Imposto.PIS.vAliqProd > 0) then
begin
Gerador.wGrupo('PISOutr', 'Q05');
Gerador.wCampo(tcStr, 'Q06', 'CST ', 02, 02, 1, CSTPISTOStr(nfe.Det[i].Imposto.PIS.CST), DSC_CST);
Gerador.wCampo(tcDe4, 'Q10', 'qBCProd ', 01, 16, 1, nfe.Det[i].Imposto.PIS.qBCProd, DSC_QBCPROD);
Gerador.wCampo(tcDe4, 'Q11', 'vAliqProd', 01, 15, 1, nfe.Det[i].Imposto.PIS.vAliqProd, DSC_VALIQPROD);
Gerador.wCampo(tcDe2, 'Q09', 'vPIS ', 01, 15, 1, nfe.Det[i].Imposto.PIS.vPIS, DSC_VPIS);
Gerador.wGrupo('/PISOutr');
end
else
begin
Gerador.wGrupo('PISOutr', 'Q05');
Gerador.wCampo(tcStr, 'Q06', 'CST ', 02, 02, 1, CSTPISTOStr(nfe.Det[i].Imposto.PIS.CST), DSC_CST);
Gerador.wCampo(tcDe2, 'Q07', 'vBC ', 01, 15, 1, nfe.Det[i].Imposto.PIS.vBC, DSC_VBC);
Gerador.wCampo(tcDe2, 'Q08', 'pPIS ', 01, 05, 1, nfe.Det[i].Imposto.PIS.pPIS, DSC_PPIS);
Gerador.wCampo(tcDe2, 'Q09', 'vPIS ', 01, 15, 1, nfe.Det[i].Imposto.PIS.vPIS, DSC_VPIS);
Gerador.wGrupo('/PISOutr');
end;
end;
Gerador.wGrupo('/PIS');
end;