Boa tarde Pessoal, fiz um teste de NFce homologação hoje, deu certo, segue as tags do XML
<IBSCBS>
<CST>000</CST>
<cClassTrib>000001</cClassTrib>
<gIBSCBS>
<vBC>58.00</vBC>
<gIBSUF>
<pIBSUF>0.1000</pIBSUF>
<vIBSUF>0.05</vIBSUF>
</gIBSUF>
<gIBSMun>
<pIBSMun>0.0000</pIBSMun>
<vIBSMun>0.00</vIBSMun>
</gIBSMun>
<vIBS>0.05</vIBS>
<gCBS>
<pCBS>0.9000</pCBS>
<vCBS>0.52</vCBS>
</gCBS>
</gIBSCBS>
</IBSCBS>
//------------------------------------------------------------------------
with IBSCBS do
begin
CST := cst000;
cClassTrib := '000001';
with gIBSCBS do
begin
vBC := var_base_cbs; // 115.00
// Alíquota de homologacao: IBS UF = 0.1000 (0,1%), CBS = 0.9000 (0,9%)
with gIBSUF do
begin
pIBSUF := 0.1000;
vIBSUF_calc := var_base_cbs * pIBSUF / 100; // não arredonda aqui
vIBSUF := Trunca2Casas(vIBSUF_calc);
end;
with gIBSMun do
begin
pIBSMun := 0.0000;
vIBSMun := 0.00;
vIBSMun_calc := 0.00;
end;
with gCBS do
begin
pCBS := 0.9000;
vCBS_calc := var_base_cbs * pCBS / 100; // idem
vCBS := Trunca2Casas(vCBS_calc);
end;
IBSCBS.gIBSCBS.vIBS := Trunca2Casas(vIBSUF_calc + vIBSMun_calc); // 1,14
end;
end;
// acumula para totais
totalBaseIBSCBS := totalBaseIBSCBS + var_base_cbs;
total_vIBSUF := total_vIBSUF + IBSCBS.gIBSCBS.gIBSUF.vIBSUF;
total_vIBSMun := total_vIBSMun + IBSCBS.gIBSCBS.gIBSMun.vIBSMun;
total_vCBS := total_vCBS + IBSCBS.gIBSCBS.gCBS.vCBS;
total_vIBS := total_vIBS + IBSCBS.gIBSCBS.vIBS;
//-------------------------------------------------------------------------
