Não Encontro O Grupo Infctesub

[ALA]

Senhores, bom dia. Baixei a nova versão do ACBr Cte e quando tento compilar recebo a msg

 

[Pascal Error] nfe_ACBR.pas(936): E2003 Undeclared identifier: 'InfCTeSub'

[Juliomar Marchetti]

Bom dia

Efetuou a atualização do svn? se sim percebeu as alterações? 

foi modificado o arquivo ACBr.inc onde era informado a versão do ct-e emitido de 1.04 para a 2.00 que passou a ser obrigatório!

é só comentar a linha da versão 2.00 e remover o comentário da 1.04!

[ALA]

Juliomar, bom dia. Obrigado pela resposta. Mas este grupo na versão 2.0 não existe mais. Se sim como informar os dados do Cte Substituto. Eu estava informando desta forma:

 

                  with InfCTeSub do

                  begin

                     // DADOS DO CONHECIMENTO PAI

                     chCTe  := Cte_PAI.FieldByName( 'CTR_CHAVE_CTE'  ).AsString; // // chave do CTe a ser substituido

                     // MSG //

                     if Trim( compl.xObs ) <> EmptyStr then

                        compl.xObs := compl.xObs + ';' + ' SUBSTITUICAO DO CT-e CHAVE: ' + Cte_PAI.FieldByName( 'CTR_CHAVE_CTE'  ).AsString + ' DATA: ' + FormatDateTime('dd/mm/yyyy',  Cte_PAI.FieldByName( 'CTR_DT_EMISSAO' ).AsDateTime )

                     else

                        compl.xObs := ' SUBSTITUICAO DO CT-e CHAVE: ' + Cte_PAI.FieldByName( 'CTR_CHAVE_CTE'  ).AsString + ' DATA: ' + FormatDateTime('dd/mm/yyyy',  Cte_PAI.FieldByName( 'CTR_DT_EMISSAO' ).AsDateTime );

                  end;

 

[Italo Giurizzato Junior]

Bom dia ALA,

 

O grupo infCTeSub continua existindo sim na versão 2.00, como foi feito uma reestruturação das classes veja como ficou agora:

 

Para versão 1.04

 

with infCTeSub do

 

Para versão 2.00

 

 with infCTeNorm.infCteSub do

 

No arquivo AlimentarComponente.txt que encontra-se na pasta ...\Exemplos\ACBrCTe você vai encontrar desta forma:

 

            //

            //  Informações do Detalhamento do CTe Substituto

            //

            {$IFDEF PL_200}

            with infCTeNorm.infCteSub do

            {$ELSE}

            with infCTeSub do

            {$ENDIF}

            begin

 

Note que é verificado se a diretiva de compilação PL_200 esta definida ou não, desta forma o Delphi compila uma linha ou a outra.

 

Resumindo tenho uma unica aplicação que dependendo da compilação ele emiti o CT-e da versão 1.04 ou na 2.00

[ALA]

Iatlo, bom dia. Sou obrigado a utlizar a versão 2.0 ou ainda posso continuar utilizando a versão anteiror

[Italo Giurizzato Junior]

Se não me falha a memória a partir de 01/06/2014 a SEFAZ só vai aceitar a versão 2.00

[ALA]

OK, então por enquanto vou trabalhar com a versão anterior a 2.0. Outra duvia em qual diretorio esta o arquivo ACBr.inc

[Italo Giurizzato Junior]

ALA,

 

Ele esta na pasta ...\Fontes\ACBrComum.

 

Atenção não faça copia desse arquivo, apenas faça alguma alteração se necessário.

[ALA]

Italo, a SEFAZ/MG já esta recebendo o CT-e na versão 2.0 ?

[Italo Giurizzato Junior]

ALA,

 

Já existe vários posts sobre o envio do CT-e versão 2.00 para a SEFAZ-MG.

 

Sim, a SEFAZ-MG já esta recepcionando o CT-e versão 2.00 e como todos sabem: daquele jeito.