Ir para conteúdo
  • Cadastre-se

Eduardo.Softniels

Membros
  • Total de ítens

    13
  • Registro em

  • Última visita

Posts postados por Eduardo.Softniels

  1. Problema resolvido

     

    quando o italo puder dar uma olhada no componente

    dentro do ACBrCTeWebServices

    na procedure DoCTeEnvEvento

    dentro do case teCCe

    está comentado o seguinte código:            

    infEvento.detEvento.xCondUso := TCTeEnvEvento(Self).FEvento.Evento.infEvento.detEvento.xCondUso;

     

    eu descomentei esta linha, e agora está passando a condição de uso

    validando e transmitindo a carta de correção

     

    Obrigado

  2. Bom dia Juliomar

     

    Segundo a orientação do Italo, na tag xCondUso deve passar vazio:

     infEvento.detEvento.xCondUso  := '';

     

    segundo oque eu estava conferindo nos fontes do componente tem uma propriedade que verifica se o campo é vazio e seta o campo com o condição de uso,

    mas o problema que eu já tentei fazer o envio passando a condição de uso e vazio, das duas maneiras ocorre o mesmo problema

     

    Obrigado

  3. Bom dia

     

    estou fazendo o envio da carta de correção, e está retornando a seguinte mensagem durante o envio,

     

    Falha na validação dos dados do Envio de Evento 

    " violates enumeration constraint of 'A Carta de cOrreção é

    disciplinada pelo Art.58-B do CONVÊNIO/SINIEF 06/89: Fica

    permitida a utilização de carta de correção...'.

    The elemente '{http://www.portalfiscal.inf.br/cte}xCondUso' with

    value" failed to parse.

     

    este é o fragmento do codigo que estou alimentando o componente:

     

          FACBrCTe.EventoCTe.Evento.Clear;
          FACBrCTe.EventoCTe.idLote := ALote;
          with FACBrCTe.EventoCTe.Evento.Add do
          begin
            InfEvento.chCTe                := AChaveCTe;
            InfEvento.cOrgao               := 41;
            InfEvento.CNPJ                 := ACNPJ;
            InfEvento.tpEvento             := teCCe;
            InfEvento.nSeqEvento           := 1;
            InfEvento.dhEvento             := now;
            InfEvento.detEvento.DescEvento := 'Carta de Correcao';
            InfEvento.detEvento.xCondUso   := '';

            qryItemCartaCorrecao.First;
            InfEvento.detEvento.infCorrecao.Clear;
            while not qryItemCartaCorrecao.Eof do
            begin
              with InfEvento.detEvento.infCorrecao.Add do
              begin
                grupoAlterado   := qryItemCartaCorrecao.FieldByName('Grupo').AsString;
                campoAlterado   := qryItemCartaCorrecao.FieldByName('CampoAlterado').AsString;
                valorAlterado   := qryItemCartaCorrecao.FieldByName('DescricaoAlteracao').AsString;
               

                //grupoAlterado := 'ide';
                //campoAlterado := 'CFOP';
                //valorAlterado := '5352';

                nroItemAlterado := contador;

                inc(contador, 1);
              end;
              qryItemCartaCorrecao.Next;
            end;
          end;
       FACBrCTe.EnviarEventoCTe(ALote);

     

    estou com os schemas e componente atualizado

     

    Desde já agradeço

  4. Italo

     

    Sim estou gerando ele com a versão 2.00

     

    <?xml version="1.0" encoding="UTF-8"?>
    <infCte versao="2.00" Id="CTe41131005679687000157570030000000111000000823">
    <ide><cUF>41</cUF><cCT>00000082</cCT>
    <CFOP>6353</CFOP><natOp>Conhecimento de Transporte</natOp>
    <forPag>1</forPag>
    <mod>57</mod><serie>
    3</serie><nCT>11</nCT>
    <dhEmi>2013-10-23T18:08:49</dhEmi>
    <tpImp>2</tpImp><tpEmis>1</tpEmis>
    <cDV>3</cDV><tpAmb>2</tpAmb>
    <tpCTe>0</tpCTe><procEmi>0</procEmi>
    <verProc>2.0.0.0</verProc>
     
    este é o fragmento inicial do meu XML gerado
     
    Obrigado
  5.  Bom dia 

     

    estou fazendo o envio do CTe na versão 2.0, tipo de envio normal, uf de emissão PR,  ao fazer o envio retorna a seguinte mensagem

    "Ocorreram erros durante o envio do lote do CTe. Erro. Cabeçalho - Versão do arquivo XML superior a versão vigente". [Det. Versao suportada : 1.4..]

     

    alguém teve algum problema parecido ou já viu algo relacionado a este?

     

    Obrigado 

  6. Boa tarde

     

    estamos fazendo a geração do arquivo de remessa e impressão dos boletos com o SIGCB o tratamento dentro do codigo fonte da caixaeconomica do acbr é o seguinte para carteira:

     

       if (ACBrTitulo.Carteira = 'RG') then
          ACarteira := '1'
       else if (ACBrTitulo.Carteira = 'SR')then
          ACarteira := '2'
       else
          raise Exception.Create( ACBrStr('Carteira Inválida.'+sLineBreak+'Utilize "RG" ou "SR"') ) ;
     
    no caso o tipo da carteira = RG na processo de homologação rejeitou por que o tipo da carteira para tipo de cobrança registrada tem que ser CR e não RG, aí fizemos o seguinte tratamento para fazermos a impressão e a geração do arquivo de remessa:
     
       if (ACBrTitulo.Carteira = 'CR') then
          ACarteira := '1'
       else if (ACBrTitulo.Carteira = 'SR')then
          ACarteira := '2'
       else
          raise Exception.Create( ACBrStr('Carteira Inválida.'+sLineBreak+'Utilize "CR" ou "SR"') ) ;
     
    mudamos o if para verificar o tipo da carteira passando CR, fizemos a leitura dos codigos de barras dos boletos gerados a partir dessa alteração e conferiu o tipo da carteira;
     
    Verificar a alteração realizada no código caso alguem tenha alguma informação diferente referente ao assunto postado por favor comentar.
     
    Agradeço desde já
     
    Obrigado

     

  7. Bom dia

     

    estou fazendo o envio de eped do cte, mas está retornando está mensagem durante o envio = "Rejeicao: Codigo da UF do Emitente diverge da UF autorizadora."

     

    dentro do evento = "FACBrCTe.WebServices.EnvEvento.Executar"  tem a função "Executar ", no evento "DoCTeEnvEvento" eu modifiquei o codigo adicionando dentro do case mais uma condição "case infEvento.tpEvento of teEPEC" e passei os dados referentes ao epec:

                infEvento.cOrgao            := TCTeEnvEvento(Self).FEvento.Evento.infEvento.cOrgao;
                infEvento.detEvento.xJust   := TCTeEnvEvento(Self).FEvento.Evento.infEvento.detEvento.xJust;
                infEvento.detEvento.vICMS   := TCTeEnvEvento(Self).FEvento.Evento.infEvento.detEvento.vICMS;
                infEvento.detEvento.vTPrest := TCTeEnvEvento(Self).FEvento.Evento.infEvento.detEvento.vTPrest;
                infEvento.detEvento.vCarga  := TCTeEnvEvento(Self).FEvento.Evento.infEvento.detEvento.vCarga;
                infEvento.detEvento.Toma    := TCTeEnvEvento(Self).FEvento.Evento.infEvento.detEvento.Toma;
     
                infEvento.detEvento.UF      := TCTeEnvEvento(Self).FEvento.Evento.infEvento.detEvento.UF;
                infEvento.detEvento.CNPJCPF := TCTeEnvEvento(Self).FEvento.Evento.infEvento.detEvento.CNPJCPF;
                infEvento.detEvento.IE      := TCTeEnvEvento(Self).FEvento.Evento.infEvento.detEvento.IE;
     
                infEvento.detEvento.modal := TCTeEnvEvento(Self).FEvento.Evento.infEvento.detEvento.modal;
                infEvento.detEvento.UFIni := TCTeEnvEvento(Self).FEvento.Evento.infEvento.detEvento.UFIni;
                infEvento.detEvento.UFFim := TCTeEnvEvento(Self).FEvento.Evento.infEvento.detEvento.UFFim;
     
    podem verificar a forma de envio de epec do cte, mesmo com as correções e passando os dados da uf do emitente correta e como informa na nota tecnica a uf autorizadora do parana dever ser enviado para SP = 35
     
    Desde já agradeço

     

     

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...