CRT = 1 x CSOSN = 101 X Calculo de ICMS 18% ?

[ANT.CARLOS.SP]

Olá, bom dia!

Estou com seguinte problema:

Estou fazendo teste para a empresa no CRT=1, mas ao usar CRT = 1, CSOSN = 101 (tributado pelo SN), os campos do produto ref. ao vBc, vicms saem zerados no XML, embora seja carregados nos copos.Ocorre naturalmente o erro de "Base de calculo difere do somatorio do itens".

veja a rotina:

-------------------------------------

If (Empresa.CRT = '1') Then Begin

//------------------------------------//

//...Simples.1 //

//------------------------------------//

//...Calcula Icms

If (Copy(Sql_Itens.FieldByName('CST').AsString,2,2) = '00') Then Begin

ICMS.CST := cst00;

ICMS.modBC := Set_ModalidadeBaseCalcIcms(Sql_Itens.FieldByName('MBCICMS').AsInteger);

ICMS.vBC := Sql_Itens.FieldByName('VBCICMS').AsCurrency;

ICMS.pICMS := Sql_Itens.FieldByName('ICMS').AsFloat;

ICMS.vICMS := Vlicms;

End;

If Sql_Itens.FieldByName('CSOSN').AsString = '101' Then Begin

ICMS.CSOSN := csosn101;

ICMS.pCredSN := Sql_Itens.FieldByName('ICMS').AsFloat; //...Aliquota de credito SN

ICMS.vCredICMSSN := Vlicms; //...Sql_Itens.FieldByName('VCREDSN').AsFloat; //...Valor do Credito SN

End Else If (Sql_Itens.FieldByName('CSOSN').AsString = '102') Then Begin

.....

-------------------------------------

[André Ferreira de Moraes]

CSOSN 101 não tem campo para base de cáculo do ICMS e por consequência não pode ser destacado nos totais da nota. Leia o manual de integração.