não esta gerando a TAG ICMS90

[ti_softin]

Boa tarde! Inicialmente eu estava passando CST = 90 e ele estava gerando o CST = 91, então atualizei os fontes e esse erro corrigiu, porém a TAG ICMS90 não esta gerando corretamente, para os outros CST estão gerando normalmente. Segue XML em anexo.42180702951171000121550550000196161000196166-nfe.xml

[André Ferreira de Moraes]

Esse XML foi gerado pelo ACBr?

[ti_softin]

Foi gerado pelo meu programa que utiliza os componentes do ACBr

[Juliana Tamizou]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[André Ferreira de Moraes]

Como vc está informando o campo Imposto.ICMS.CST ?

[ti_softin]

CST := GetICMSCSTI(qdp.fieldbyname('CD_SITTRIB_PC').AsString);

function TfmPROC01.GetICMSCSTI(Value: String): TpcnCSTIcms;
begin
  Result := EnumeradoICMSCSTI(Value, [cst00, cst10, cst20, cst30, cst40, cst41,
    cst50, cst51, cst60, cst70, cst80, cst81, cst90, cstPart10, cstPart90,
    cstRep41, cstICMSOutraUF, cstICMSSN], ['00', '10', '20', '30', '40', '41',
    '50', '51', '60', '70', '80', '81', '90', '10', '90', '41', '90', 'SN']);
end;

Onde o CST é igual a 90

[André Ferreira de Moraes]

Anexe um exemplo em q o problema ocorra, pois não estou conseguindo reproduzir.

33180805481336000137650010000000011000000017-nfe.xml

Aparentemente isso só ocorre caso o CST seja preenchido com o valor cstICMSOutraUF, que não existe na NFe.

[José M. S. Junior]

32 minutos atrás, ti_softin disse:

CST := GetICMSCSTI(qdp.fieldbyname('CD_SITTRIB_PC').AsString);

function TfmPROC01.GetICMSCSTI(Value: String): TpcnCSTIcms;
begin
  Result := EnumeradoICMSCSTI(Value, [cst00, cst10, cst20, cst30, cst40, cst41,
    cst50, cst51, cst60, cst70, cst80, cst81, cst90, cstPart10, cstPart90,
    cstRep41, cstICMSOutraUF, cstICMSSN], ['00', '10', '20', '30', '40', '41',
    '50', '51', '60', '70', '80', '81', '90', '10', '90', '41', '90', 'SN']);
end;

Onde o CST é igual a 90

Bom dia. Note que nesta sua função se passar '90' pode existir 3 retornos : 'cst90', 'cstPart90', 'cstICMSOutraUF'. Porém, cstICMSOutraUF não existe na NFe

[ti_softin]

Eu tirei o s outros do 90 e funcionou agora, porém quando utilizo o 41 ele coloca automaticamente o 40, por mais que eu retiro o 40 ele continua colocando o 41 como 40.

[ti_softin]

o mesmo esta ocorrendo com o 50, segue xml em a42180802951171000121550550000196231000196237-nfe.xmlnexo

[José M. S. Junior]

O problema parece estar na sua função de conversão... Veja o modelo da função de conversão do próprio ACBr, função: "StrToCSTICMS" / "CSTICMSToStr"   em: C:\ACBr\Fontes\PCNComum\pcnConversao.pas

[ti_softin]

Utilizei a função que possui nesse .pas que você me passou porém o CST 41 e 50 continuam com o mesmo problema.

Estou utilizando desta maneira a := StrToCSTICMS(ok, Value); 

Segue XML em Anexo.

 

NFe42180802951171000121550550000196231000196237019623-nfe.xml

[André Ferreira de Moraes]

Qual o problema deste último XML?

[ti_softin]

Ela esta integrando, porém eu achei que estava errodo o CST 50 ou 41 dentro da TAG ICMS40. Muito obrigado pela informação.