Adicionei a função CSOSNToStrTagPosText

[gabriellc]

como tinha a CSTToStrTagPosText precisei da CSOSN entao fiz aqui, segue para o pessoal ver ai se eh valido colocar no trunk!

function CSOSNToStrTagPosText(const t: TpcnCSOSNIcms): string;
begin
  result := EnumeradoToStr(t,
   ['VAZIO',
    '101 - Tributada pelo Simples Nacional com permissão de crédito',
    '102 - Tributada pelo Simples Nacional sem permissão de crédito ',
    '103 - Isenção do ICMS no Simples Nacional para faixa de receita bruta',
    '201 - Tributada pelo Simples Nacional com permissão de crédito e com cobrança do ICMS por substituição tributária',
    '202 - Tributada pelo Simples Nacional sem permissão de crédito e com cobrança do ICMS por substituição tributária',
    '203 - Isenção do ICMS no Simples Nacional para faixa de receita bruta e com cobrança do ICMS por substituição tributária',
    '300 - Imune',
    '400 - Não tributada pelo Simples Nacional',
    '500 - ICMS cobrado anteriormente por substituição tributária (substituído) ou por antecipação',
    '900 - Outros'],
    [csosnVazio, csosn101, csosn102, csosn103, csosn201, csosn202, csosn203, csosn300, csosn400, csosn500,csosn900]);
end;

 

vou fazendo de mais algumas e vou postando!

Mais uma, Origem da mercadoria!

function OrigToStrTagPosText(const t: TpcnOrigemMercadoria): string;
begin
  result := EnumeradoToStr(t,
   ['0 - Nacional, exceto as indicadas nos códigos 3, 4, 5 e 8. ',
    '1 - Estrangeira - Importação direta, exceto a indicada no código 6.',
    '2 - Estrangeira - Adquirida no mercado interno, exceto a indicada no código 7.',
    '3 - Nacional, mercadoria ou bem com Conteúdo de Importação superior a 40% e inferior ou igual a 70%.',
    '4 - Nacional, cuja produção tenha sido feita em conformidade com os processos produtivos básicos de que tratam as legislações citadas nos Ajustes.',
    '5 - Nacional, mercadoria ou bem com Conteúdo de Importação inferior ou igual a 40%. ',
    '6 - Estrangeira - Importação direta, sem similar nacional, constante em lista da CAMEX e gás natural. ',
    '7 - Estrangeira - Adquirida no mercado interno, sem similar nacional, constante em lista da CAMEX e gás natural.',
    '8 - Nacional, mercadoria ou bem com Conteúdo de Importação superior a 70%.'],
    [oeNacional, oeEstrangeiraImportacaoDireta, oeEstrangeiraAdquiridaBrasil,
      oeNacionalConteudoImportacaoSuperior40, oeNacionalProcessosBasicos,
      oeNacionalConteudoImportacaoInferiorIgual40,
      oeEstrangeiraImportacaoDiretaSemSimilar, oeEstrangeiraAdquiridaBrasilSemSimilar,
      oeNacionalConteudoImportacaoSuperior70]);
end;

Editado 20 Agosto, 2015 por gabriellc

[gabriellc]

Editei essa função que ja existia, so adicionei os codigos dos CST, para ficar mais claro!

function CSTICMSToStrTagPosText(const t: TpcnCSTIcms): string;
begin
  result := EnumeradoToStr(t,
   ['00 - TRIBUTAÇÃO NORMAL DO ICMS',
    '10 - TRIBUTAÇÃO COM COBRANÇA DO ICMS POR SUBST. TRIBUTÁRIA',
    '20 - TRIBUTAÇÃO COM REDUÇÃO DE BC DO ICMS',
    '30 - TRIBUTAÇÃO ISENTA E COM COBRANÇA DO ICMS POR SUBST. TRIBUTÁRIA',
    '40 - ICMS ISENÇÃO',
    '41 - ICMS NÃO TRIBUTADO',
    '45 - ICMS ISENTO, NÃO TRIBUTADO OU DIFERIDO',
    '50 - ICMS SUSPENSÃO',
    '51 - ICMS DIFERIDO',
    '60 - ICMS COBRADO ANTERIORMENTE POR SUBSTITUIÇÃO TRIBUTÁRIA',
    '70 - TRIBUTAÇÃO COM REDUÇÃO DE BC E COBRANÇA DO ICMS POR SUBST. TRIBUTÁRIA',
    '80 - RESPONSABILIDADE DO RECOLHIMENTO DO ICMS ATRIBUÍDO AO TOMADOR OU 3° POR ST',
    '81 - ICMS DEVICO À OUTRA UF',
    '90 - ICMS OUTROS',
    'ICMS DEVIDO A UF DE ORIGEM DA PRESTACAO, QUANDO DIFERENTE DA UF DO EMITENTE',
    'SN - SIMPLES NACIONAL'],
    [cst00, cst10, cst20, cst30, cst40, cst41, cst45, cst50, cst51, cst60, cst70, cst80, cst81, cst90, cstICMSOutraUF, cstICMSSN]);
end;

[Daniel Simoes]

Por favor anexe (zip) os fontes modificados para analise...

[gabriellc]

ok entao vou terminar mais algumas depois posto!

Aqui está!

so esta o arquivo pcnConversao dentro do arquivo zipado

PCNComum.rar

Editado 20 Agosto, 2015 por gabriellc

[gabriellc]

Os motivos pelos quais fiz essas alterações foram:

eu preencho os combobox, em tempo de execucao pegando os valores das constantes do componente, e para ficar mais claro para o usuario coloquei essas funcoes com a descrição dos respectivos items.

[Daniel Simoes]

Muito obrigado pela contribuição... Já enviei para o SVN...

[ncc.star]

Quando for cstICMSOutraUF no DACTE estão me questionando que deveria ser:

    '90 - ICMS DEVIDO A UF DE ORIGEM DA PRESTACAO, QUANDO DIFERENTE DA UF DO EMITENTE',

A principio achei que não seria correto, entretanto mesmo quando for outras UF o CST é realmente  90 - ICMS outros.

Fiz a alteração e o arquivo está em anexo para avaliação.

 

 

pcnConversao.pas

Editado 4 Fevereiro, 2016 por ncc.star

[Italo Giurizzato Junior]

Boa tarde ncc,

Segundo a versão 2.00a do Manual do CT-e página 133 campo 242 ICMSOutraUF diz: ICMS devido à UF de origem da prestação, quando diferente da UF do emitente.

Dai o retorno de  cstICMSOutraUF.

[ncc.star]

Boa tarde Italo!

Concordo e inclusive foi isso que eu justifiquei pra ele.

Acontece que daí ele me questionou que no campo 243, a Classificação Tributária do Serviço é 90 - ICMS outros, daí ele me falou que deveria ser da forma que alterei acima.

[Italo Giurizzato Junior]

Boa noite ncc,

Cada um interpreta da sua forma, para mim a mensagem: "90 - ICMS outros" é muito vago.

[ncc.star]

Oi Italo!

Acredito que eu me expressei mal, não é colocar "90 - ICMS outros", é só colocar o 90 na frente da frase que já está, ficando assim:

"90 - ICMS DEVIDO A UF DE ORIGEM DA PRESTACAO, QUANDO DIFERENTE DA UF DO EMITENTE" 

 

Encontrei também um erro de ortografia em outro CST:

 

81 - ICMS DEVICO À OUTRA UF

[Italo Giurizzato Junior]

Bom dia ncc,

O fonte anexado anteriormente já consta essa correção ortográfica?

Se não consta, por favor anexar novamente.

[ncc.star]

Segue o arquivo também com a correção ortográfica.

pcnConversao.pas

[Italo Giurizzato Junior]

Boa tarde ncc,

Muito obrigado, assim que possível vou disponibilizar.

[ncc.star]

Boa tarde Italo! Tudo bem?

Conseguiu analisar o arquivo que lhe enviei com as alterações?

Você acredita que será possível deixar dessa forma proposta?

[Italo Giurizzato Junior]

Boa tarde ncc,

Desculpe pela demora.

Já esta no repositório.