Jump to content
Notícias do ACBr

click.png

click.png

click.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

click.png

click.png

click.png

click.png

click.png

click.png

não esta gerando a TAG ICMS90


Go to solution Solved by José M. S. Junior,
  • Este tópico foi criado há 1090 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

  • Consultores

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

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other sites

  • Consultores
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 to comment
Share on other sites

  • Consultores
  • 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 to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.