Cte Versão 2.0

[GustavoKato]

Obrigado pelas dicas pessoal, já tinha atualizado a hora do servidor. Vamos ver se resolve

[EFV]

Ola ItaloJJr estou com problemas na carta de correção do CTE quando mando enviar a mesma esta retornado o erro em anexo.

 

 

Também estou passando a forma que estou passando os parâmetros para o evento abaixo.

 

procedure TfrmCTe_menu.BitBtn2Click(Sender: TObject);

var vAux, sXML, caminho : string;

    NumeroLote :integer;

begin

   ACBrCTe.Configuracoes.WebServices.UF   := cbUF.Text;

   frmmodulo.qrconhecimento.Close;

   frmmodulo.qrconhecimento.SQL.Clear;

   frmmodulo.qrconhecimento.SQL.Add('select * from c000068');

   frmmodulo.qrconhecimento.SQL.Add('where codigo =:cod');

   frmmodulo.qrconhecimento.ParamByName('cod').AsInteger :=qrConhecimentoCODIGO.AsInteger;

   frmmodulo.qrconhecimento.Open;

   caminho := frmmodulo.qrconhecimento.fieldbyname('xml_cte').asstring;

   sXML := sCaminhoXml + frmmodulo.qrconhecimento.fieldbyname('xml_cte').asstring;

   NumeroLote := StrToInt(FormatDateTime('mmss', NOW));  // alterado por efv

  if sxml = '' then exit;

    if FileExists(sxml) then

       begin

          bMensagem := true;

          ACBrCTe.EventoCTe.Evento.Clear;

          ACBrCTe.Conhecimentos.Clear;

          ACBrCTe.Conhecimentos.LoadFromFile(sXML);

             with ACBrCTe.EventoCTe.Evento.Add do

                 begin

                    infevento.chCTe           := Copy(ACBrCTe.Conhecimentos.Items[0].CTe.infCTe.Id, 4, 44);

                    infEvento.CNPJ            := ACBrCTe.Conhecimentos.Items[0].CTe.emit.CNPJ;

                    infEvento.dhEvento        := now;

                    infEvento.tpEvento        := teCCe;

                 end;

           with ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Add do

              begin

                 frmCC_CTe := TfrmCC_CTe.Create(Self);

                 frmCC_CTe.ShowModal;

                 grupoAlterado   := sGrupo;

                 campoAlterado   := sCampo;

                 valorAlterado   := sValor;

                 nroItemAlterado := iNumItem;

              end;

 

          // Enviar o evento de cancelamento

            if ACBrCTe.EnviarEventoCTe(NumeroLote) then

              begin

                with ACBrCTe.WebServices.EnvEvento do

                   begin

                      if EventoRetorno.retEvento.Items[0].RetInfEvento.cStat <> 135 then

                          begin

                             raise Exception.CreateFmt(

                              'Ocorreu o seguinte erro ao criar a correcao a o CTe:'  + sLineBreak +

                              'Código:%d' + sLineBreak +

                              'Motivo: %s', [

                               EventoRetorno.retEvento.Items[0].RetInfEvento.cStat,

                               EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo]);

                          end;

                   end;

              end

            else

              begin

                  with ACBrCTe.WebServices.EnvEvento do

                    begin

                       with ACBrCTe.WebServices.EnvEvento do

                          begin

                            raise Exception.Create(

                            ' Ocoreram erros ao tentar efetuar a correcao:' + sLineBreak +

                             'Lote: '     + IntToStr(EventoRetorno.idLote) + sLineBreak +

                             'Ambiente: ' + TpAmbToStr(EventoRetorno.tpAmb) + sLineBreak +

                             'Orgao: '    + IntToStr(EventoRetorno.cOrgao) + sLineBreak +

                                sLineBreak +

                             'Status: '   + IntToStr(EventoRetorno.cStat) + sLineBreak +

                             'Motivo: '   + EventoRetorno.xMotivo );

                          end;     

                    end;

                         

              end;

 

          frmmodulo.Conexao.StartTransaction;

          frmmodulo.qrconhecimento.edit;

          frmmodulo.qrconhecimento.FieldByName('xml_cte').asstring := caminho;  //copy(caminho,1,44) + '-ProcCancNFe.xml';

          frmmodulo.qrconhecimento.FieldByName('cte').asinteger := 8;

          frmmodulo.qrconhecimento.post;

          frmmodulo.Conexao.Commit;

          gridRowChanged(frmnotafiscal_menu);

 

       end

    else

       begin

          application.messagebox('Arquivo XML não econtraddo!','Erro',mb_ok+mb_iconerror);

       end;

[Italo Giurizzato Junior]

Bom dia EFV,

 

Você esta com os Schemas e com os fontes atualizados?

 

Se sim, faça a seguinte alteração na sua rotina (incluir a linha em negrito):

 

 ACBrCTe.EventoCTe.Evento.Items[0].infEvento.detEvento.xCondUso := '';

 with ACBrCTe.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Add do

   begin

        frmCC_CTe := TfrmCC_CTe.Create(Self);

        frmCC_CTe.ShowModal;

        grupoAlterado   := sGrupo;

        campoAlterado   := sCampo;

        valorAlterado   := sValor;

        nroItemAlterado := iNumItem;

     end;

[EFV]

Muito Obrigado ItalJJr era isso mesmo

[robinhovrb]

Bom dia;

Estou com uma dúvida, no 23/08/2014 o estado de MG teve uma para técnica, então, os CT-e foi feito um em SVC-SP. Hoje estou tentando fazer um CT-e complementar de um CT-e que foi feito em contingencia; Ao transmitir o CT-e, o mesmo é rejeitado; O retorno da UF diz que o CT-e(a ser complementado) não existe na base de dados. Oque devo fazer? Obrigado 

[Italo Giurizzato Junior]

Bom dia Robinho,

 

O CT-e de complementação você esta enviando para a SEFAZ-MG, correto?

 

Neste caso diz que o CT-e não consta, muito bem, pode ser que o SVC-SP ainda não enviou a cópia para a SEFAZ-MG, apesar do tempo decorrido.

 

Tente enviar o complemento para o SVC-SP.

[robinhovrb]

Boa tarde Ítalo,

Não é possível enviar para SVC-SP, quanto a SEFAZ-MG esta ativa. Fico com pendencia de fazer CT-e complementar de um CT-e feito em contingencia. 

Estou sem ideias, agradeço pela ajuda...

Robinho

[Italo Giurizzato Junior]

Bom dia Robinho,

 

E o que ocorre se você enviar o CT-e Complementar para a SEFAZ-MG?

[robinhovrb]

Bom dia Ítalo;

Rejeição: CT-e Complementar referencia um CT-e inexistente;

 

Cte Original: 3114088640000122570010000633618109178194,  foi emitido em SVC-SP;

Consulta na sefaz de SP = OK

Consultar na sefaz da Fazenda = OK

Consular na sefaz de MG = inexistente

[Italo Giurizzato Junior]

Bom dia Robinho,

 

Me parece que a SEFAZ-MG esta passando por problemas técnicos e consequentemente não esta conseguindo realizar o sincronismo com a SVC-SP.

 

Enquanto isso não tem o que fazer a não ser aguardar.

[robinhovrb]

Boa tarde, Italo

 

Estou tendo problema com as emissões na data de 01/06/2015 que utilizam NF-e que foram emitidas em contigência.

A receita está retornando o código do erro 508;
Chave da NF-e:31150505017780002301550000000451916990158414
A nota pode ser consultada no portal nacional, que está autorizada.
Desde já Agradeço

[Italo Giurizzato Junior]

Boa tarde Robinho,

 

Desculpe, mas o que vem a ser a rejeição 508?

 

Como este mês de junho é para entrar em vigor as alterações publicadas na NT 2015/001 pode ser que a SEFAZ fez o favor de fazer alguma caca no que estava funcionando.

 

Neste te aconselho a entrar em contato com a SEFAZ e expor o problema.

[robinhovrb]

Boa Tarde Italo

O Erro 508 se refere a regra G041a:

G041a Se Tipo do CT-e= 0 (Normal) ou 3 (Substituição) e informados grupos de
informações de documentos (infDoc) e NF-e (infNfe), para cada uma das NFe
´s relacionadas:
- Chave de acesso de NF-e inválida (Tipo de emissão inválido)
Retornar a primeira chave de acesso inválida.

[Italo Giurizzato Junior]

Boa noite Robinho,

 

Se possível post como anexo o XML do CT-e que esta sendo rejeitado.

 

Pela mensagem, acredito que o XML da NF-e tenha sido gerada em contingência e a SEFAZ espera encontrar uma NF-e gerada com tipo de emissão normal.

[mateus.ricci]

Boa tarde Italo.... desculpe ressuscitar algo tão antigo, mas preciso que minha dúvida seja esclarecida...

 

Tenho uma dúvida em relação ao parâmetro versãoDF...

 

Estava olhando o manual e tem várias versões (1.00, 1.01, 1.01A, 1.01B, 1.02pre, 1.02, 1.03, 1.04, 1.04a, 1.04b, 1.04c, 2.00pre, 2.00, 2.00a)... 

 

e ví que no componente ACBrCTe só aparece as seguintes (ve200, ve300, ve310)... que estão em na Unit pcnConversao com o tipo TpcnVersaoDF = (ve200, ve300, ve310)...

 

mas aí é que veio a dúvida... essas que estão no tipo TpcnVersaoDF não são do ACBrNFe???

 

Estou perguntando isso porque também uso o ACBrNFe... e notei essa diferença... não sei se é um erro ou se está correto...

 

hoje estou usando no ACBrCTe como VersaoDF = ve200.... tem funcionado... mas não sei se está correto isso...

 

posso estar errado, e se estiver, desculpe minha ignorância.... mas não seria o caso de criar um tipo de VersaoDF só para o ACBrCte usar???

 

desde já agradeço

[Italo Giurizzato Junior]

Bom dia Mateus,

 

O componente ACBrCTe até tem a propriedade VersaoDF, mas se não me falha a memória não é utilizada, pois o mesmo só gera os XMLs na versão 2.00

[toninho]

Boa tarde, conforme Manual_CTe_v2.00a o campo xNomeAE Nome apropriado para embarque do
produto o tamanho é de 150 Caracteres. Estou fazendo um Conhecimento e preenchi o mesmo assim:

- <peri>

  <nONU>1993</nONU>

  <xNomeAE>TALSTAR 100 EC - LIQUIDO INFLAMAVEL, N.E. (MISTURA DE HIDROCARBONETOS AROMATICOS / BIFENTRINA) - N DE RISCO= 30 - CLASSE OU SUBCLASSE DE RISCO= 3 GRU</xNomeAE>

  <xClaRisco>60</xClaRisco>

  <grEmb>II</grEmb>

  <qTotProd>60</qTotProd>

  <qVolTipo>3 CAIXAS</qVolTipo>

  </peri>

- <peri>

  <nONU>3082</nONU>

  <xNomeAE>ORKESTRA SC - SUBSTANCIA QUE APRESENTA RISCO PARA O MEIO AMBIENTE, LIQUIDA, N.E. (PIRACLOSTROBINS + FLUXAPYROXAD) - CLASSE/SUBCLASSE 9 - GRUPO EMBALAG</xNomeAE>

  <xClaRisco>90</xClaRisco>

  <grEmb>III</grEmb>

  <qTotProd>100</qTotProd>

  <qVolTipo>4 CAIXAS</qVolTipo>

  </peri>

  </infCTeNorm>

 

O XML esta correto,só que na hora de imprimir o DACTE não sai o nome do produto. segundo item conforme anexo.

 

 

[thiagosantanna10]

Em 18/12/2013 at 13:11, zene1308 disse:

Boa tarde Ítalo

Após várias adaptações, consegui resolver os problemas que havia citado anteriormente. Agora consigo assinar e validar o xml de cancelamento do CTe, porém ao pegar o retorno do xml, o mesmo está voltando com a mensagem de erro "Cabecalho - Versao do arquivo XML superior a Versao vigente. [Det: Versão suportada:1.04..]". Abaixo trecho do código onde eu faço a consulta do webservice e em anexo o xml de retorno.

 

 

   

    FReqResp := THTTPReqResp.Create(nil);

    FReqResp.OnBeforePost:= WebNodeBeforePost.HTTPWebNodeBeforePost;

    FReqResp.URL := CteUtil.GetURL(GetUf(cEmp.SiglaUfCTe),cEmp.TipoAmbienteCTe,cEmp.TipoEmissaoCTe,LayCTeCancelamento);

    FReqResp.UseUTF8InHeader := True;

    FReqResp.SoapAction := 'http://www.portalfiscal.inf.br/cte/wsdl/CteCancelamento/cteCancelamentoCT';

    Stream:= TMemoryStream.Create;

 

    try

 

      FReqResp.Execute(MsgXML,Stream);

    except on E: Exception do

      begin

        Retorno:= E.Message;

        bResult:= False;

      end;

    end;

CTe-000001435-002RetornoCancCTe.xml

CTe-000001435-002RetornoCancCTe.xml

Como vc resolveu o problema que você tinha citado? "the signature property must be set before calling this method"