ICMSSN+CSOSN+socorro

[guimamonteiro]

Bom dia caros amigos da ACBr, estou com um problema sério .. qdo leio uma danfe, preciso ler a tag ICMSSN se é 101 ou 500 e se o CSOSN tb é 101 ou 500 e não estou conseguindo fazer isso, já atualizei a ACBr e parece q não faz a leitura .. não passa pelo if, compila mas passa batido, alguém tem como me ajudar ??

Desde já agradecido

[Angelo Gomes]

poste seu código...

[guimamonteiro]

if (ICMS.CSOSN = csosn500) then

begin

Aliquota_icms := 0;

vVBc := '0';

Valor_Icms := 0;

Total_Base_Icms := Total_base_Icms + StrToFloat(vVBc);

Total_Icms := Total_Icms + Valor_Icms;

end

else

begin

Aliquota_icms := PegaIcmsMicroempresa(IntToStr(Cod_Fornecedor));

vVBc := FloatToStr(Valor_Total-Valor_Desconto);

Valor_Icms := (Valor_Total-Valor_Desconto)*(Aliquota_icms/100);

Total_Base_Icms := Total_base_Icms + StrToFloat(vVBc);

Total_Icms := Total_Icms + Valor_Icms;

end;

end;

[Angelo Gomes]

.

[Angelo Gomes]

eu uso um pouquinho diferente e tem funcionado:

                    

                     with ICMS do

                     begin

                              campo.Value := CSOSNIcmsToStr(CSOSN);

                        end;

[Régys Silveira]

Bom dia caros amigos da ACBr, estou com um problema sério .. qdo leio uma danfe, preciso ler a tag ICMSSN se é 101 ou 500 e se o CSOSN tb é 101 ou 500 e não estou conseguindo fazer isso, já atualizei a ACBr e parece q não faz a leitura .. não passa pelo if, compila mas passa batido, alguém tem como me ajudar ??

Desde já agradecido

Se entendi direito você quer ler os dois, veja que os dois não existem ao mesmo tempo, ou é icmssn ou csosn dependendo do tipo da empresa, se for simples nacional sempre csosn em outro caso icmssn.

[Luiz Neto]

Ja existe uma versao pelo SVN da ACBrHTMLToXML.pas que reconheça CSOSN?

[Régys Silveira]

Ja existe uma versao pelo SVN da ACBrHTMLToXML.pas que reconheça CSOSN?

A versão que está lá deveria reconhecer normalmente.