Ir para conteúdo
  • Cadastre-se

dev botao

não esta gerando a TAG ICMS90


Ver Solução Respondido por José M. S. Junior,
  • Este tópico foi criado há 2066 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Administradores

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

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

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

Link para o comentário
Compartilhar em outros sites

  • Moderadores

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.

djsystem-logo.png
 youtube.png facebook.png instagram.png linkedin.png
André Ferreira de Moraes | Analista de Sistemas
www.djsystem.com.br | www.djpdv.com.br
www.tefhouse.com.br | www.lambretinha.com.br
Link para o comentário
Compartilhar em outros sites

  • Moderadores
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

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Moderadores
  • Solution

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

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.