Function Getcorgao - Unit Pcteeventocte

[Antonio Gomes]

A funcao abaixo, logo no uso da variavel result no case, no delphi 2007, com o plugin da DDevExtension, acusa que a função nao tem retorno. Realmente, existe um teste da variavel result no case, mas comentaram o codigo onde a mesma estava sendo inicializada.

 

A verificar:

 

function TInfEvento.getcOrgao: integer;

//  (AC,AL,AP,AM,BA,CE,DF,ES,GO,MA,MT,MS,MG,PA,PB,PR,PE,PI,RJ,RN,RS,RO,RR,SC,SP,SE,TO);

//  (12,27,16,13,29,23,53,32,52,21,51,50,31,15,25,41,26,22,33,24,43,11,14,42,35,28,17);

begin

//  Result := StrToInt(copy(FChave, 1, 2));

 

  if FTpEvento = teEPEC then

  begin

    case Result of

     11, // Rondônia

     12, // Acre

     13, // Amazonas

     14, // Roraima

     15, // Pará

     16, // Amapá

     17, // Tocantins

     21, // Maranhão

     22, // Piauí

     23, // Ceará

     24, // Rio Grande do Norte

     25, // Paraibá

     27, // Alagoas

     28, // Sergipe

     29, // Bahia

     31, // Minas Gerais

     32, // Espirito Santo

     33, // Rio de Janeiro

     41, // Paraná

     42, // Santa Catarina

     43, // Rio Grande do Sul

     52, // Goiás

     53: // Distrito Federal

        Result := 35;

     26, // Pernanbuco

     35, // São Paulo

     50, // Mato Grosso do Sul

     51: // Mato Grosso

        Result := 43;

    end;

  end

  else begin

   // Alterado por Italo em 03/10/2013

   if FcOrgao <> 0 then

     Result := FcOrgao

   else

     Result := StrToIntDef(copy(FChave, 1, 2), 0);

 

   if Result = 0 then

     raise EventoException.Create('Campo cOrgao não informado.');

 

   // Estados que utilizam a SVAN: ES, MA, PA, PI, RN Devem utilizar 91

//   if Result in [32, 21, 15, 22, 24] then

//     Result := 91;

  end;

end;

 

[krepe]

Também vi o comentário

//  Result := StrToInt(copy(FChave, 1, 2));

exclui e funcionaou o envio do evento.

 

Estava testando o EPEC, foi eviado o evento e autorizado pela SVC-SP (sou de MG)

 

mas ao tentar transmitir para SEFAZ MG me retorna - Rejeicao: O evento previo deste CT-e nao foi autorizado na SVC.

 

entrei em contato com a SEFAZ MG pois foi autorizado o evento em 13/10/2013 e até hoje não foi sincronizado.

 

Resposta:

 

 

Bom dia,
 

no ambiente de homologação enviei 8 CT-e com a forma de emissão Contigência EPEC

e os mesmos foram altorizados na SVC-SP no dia 13/10/2013.

 

Ao tentar enviar os arquivos para a SEFAZ-MG me retorna rejeitando os CT-e com o cstat 641
Rejeição: O evento prévio deste CT-e não foi autorizado na SVC ou ainda não foi
sincronizado.
 

já se passaram 3 dias, a sincronização entre a SEFAZ-MG e a SVC-SP demora mesmo?
 

Se passarem 7 dias não consiguirei mais emitir  com esta forma de emissão ?
 

Obrigado.

cte

17 de out (11 dias atrás)

 

para mim

 

Bom dia.

 

A nossa área de TI está verificando a situação.

 

** As dúvidas esclarecidas por esta mensagem têm caráter de orientação não gerando o efeito decorrente da consulta formal. **

 

 

Atenciosamente,

 

Equipe da Divisão de Escrituração Digital

SAIF/DIEF/DED

Editado 28 Outubro, 2013 por krepe

[Italo Giurizzato Junior]

Boa tarde a todos,

 

Favor atualizar os fontes e testar novamente.