Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

dionatan

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    233

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por dionatan

    Carta De Correção Eletrônica Para O Ct-E

    em ACBrCTe

    Postado

    Bom dia a todos,

     

    Favor atualizar os fontes, pois detectei um erro na montagem do XML da CC-e do CT-e.

     

    A TAG xCondUso estava sendo incluida na posição errada.

     

     

    Realmente estava desatualizado... Porém agora esta dando erro em outra linha:

     

    Unit: ACBRCteUTIL.pas na mesma função 

     

    function ValidaModalMSXML(XML: AnsiString; out Msg: AnsiString;
     const APathSchemas: string = ''): Boolean;
     
     
    onde ele testa:
     
     
    case Tipo of
       1: begin
           Schema.add('http://www.portalfiscal.inf.br/cte'
              DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas),
              PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\',
              PathWithDelim(APathSchemas))+'cteModalAereo_v' + CTeModalAereo + '.xsd');
          end;
       2: begin
           Schema.add('http://www.portalfiscal.inf.br/cte'
              DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas),
              PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\',
              PathWithDelim(APathSchemas))+'cteModalAquaviario_v' + CTeModalAqua + '.xsd');
          end;
       3: begin
           Schema.add('http://www.portalfiscal.inf.br/cte'
              DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas),
              PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\',
              PathWithDelim(APathSchemas))+'cteModalDutoviario_v' + CTeModalDuto + '.xsd');
          end;
       4: begin
           Schema.add('http://www.portalfiscal.inf.br/cte'
              DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas),
              PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\',
              PathWithDelim(APathSchemas))+'cteModalFerroviario_v' + CTeModalFerro + '.xsd');
          end;
       5: begin
           Schema.add('http://www.portalfiscal.inf.br/cte'
              DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas),
              PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\',
              PathWithDelim(APathSchemas))+'cteModalRodoviario_v' + CTeModalRodo + '.xsd');
          end;
       6: begin
           Schema.add('http://www.portalfiscal.inf.br/cte'
              DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas),
              PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\',
              PathWithDelim(APathSchemas))+'cteMultiModal_v' + CTeMultiModal + '.xsd');
          end;
       7: begin
           Schema.add('http://www.portalfiscal.inf.br/cte'
              DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas),
              PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\',
              PathWithDelim(APathSchemas))+'evEPECCTe_v' + CTeEventoCTe + '.xsd');
          end;
       8: begin
           Schema.add('http://www.portalfiscal.inf.br/cte'
              DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas),
              PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\',
              PathWithDelim(APathSchemas))+'evCancCTe_v' + CTeEventoCTe + '.xsd');
          end;
       9: begin
           Schema.add('http://www.portalfiscal.inf.br/cte'
              DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas),
              PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\',
              PathWithDelim(APathSchemas))+'evMultimodal_v' + CTeEventoCTe + '.xsd');
          end;
      10: begin
              DFeUtil.SeSenao(DFeUtil.EstaVazio(APathSchemas),
              PathWithDelim(ExtractFileDir(application.ExeName))+'Schemas\',
              PathWithDelim(APathSchemas))+'evCCeCTe_v' + CTeEventoCTe + '.xsd');
          end;
      end;
     
     
    Nesse caso o tipo foi 10, mas quando ele da o add esta dando o erro:
    "The system cannot locate the object specified"
     
     
     

    Carta De Correção Eletrônica Para O Ct-E

    em ACBrCTe

    Postado

     

    Boa tarde Dionatan,

     

    Tente da seguinte forma:

     

    with ACBrCTe1.EventoCTe.Evento.Add do

          begin

           infevento.chCTe      := schave;

           infEvento.CNPJ        := sCNPJ;

           infEvento.dhEvento := now;

           infEvento.tpEvento  := teCCe;

     

           with InfEvento.detEvento.infCorrecao.Add do

               begin

                    grupoAlterado    := 'grupo';

                    campoAlterado   := 'campo';

                    valorAlterado      := 'valor';

                    nroItemAlterado  := 'item';

               end;

     

        end;

     

     

     

    Italo mesmo assim deu erro:

     

    Veriiquei que na unit ACBRCTEUtil na função:

     

    function ValidaModalMSXML(XML: AnsiString; out Msg: AnsiString;

     const APathSchemas: string = ''): Boolean;
     
    Tem o seguinte comando: XML := SeparaDados( XML, 'infModal' );
     
     
    So que na variável xml não possuo realmente:
     
     if pos( '<rodo>', XML) <> 0
       then begin
        Tipo := 5;
        XML := SeparaDados( XML, 'rodo' );
        XML := '<rodo xmlns="http://www.portalfiscal.inf.br/cte">' +
                XML +
               '</rodo>';
       end;
     
    Resultando no erro:
     
    if Tipo = 0 then
        raise Exception.Create('Modal não encontrado no XML.');
     
     
    Como eu poderia resolver esse problema:
     
    em anexo o conteúdo da variável XML
     
     
     
     

    arquivo.xml

    Carta De Correção Eletrônica Para O Ct-E

    em ACBrCTe

    Postado

    Italo conforme NT  2013/006 pagina 88

     

    5.4 Evento Carta de Correção
    Função: evento com objetivo de corrigir as informações do CT-e
    O evento será utilizado pelo contribuinte e o alcance das alterações permitidas é definido no art.
    58-B do CONVENIO SINIEF 06/89, que transcrevemos a seguir:
    “Art. 58-B Fica permitida a utilização de carta de correção, para regularização de erro ocorrido na
    emissão de documentos fiscais relativos à prestação de serviço de transporte, desde que o erro não
    esteja relacionado com:
    I - as variáveis que determinam o valor do imposto tais como: base de cálculo, alíquota, diferença de
    preço, quantidade, valor da prestação;
    II - a correção de dados cadastrais que implique mudança do emitente, tomador, remetente ou do
    destinatário;
    III - a data de emissão ou de saída.”
    O registro de uma nova Carta de Correção substitui a Carta de Correção anterior, assim a nova
    Carta de Correção deve conter todas as correções a serem consideradas.
    Autor do Evento: O autor do evento é o emissor do CT-e. A mensagem XML do evento será
    assinada com o certificado digital que tenha o CNPJ base do Emissor do CT-e.
    Código do Tipo de Evento: 110110 (Este Evento exige CT-e autorizado)
    Leiaute Mensagem do evento Carta de Correção
     
    Fiquei com duvida na implementação, pois estou enviando apenas assim:
     
      ACBrCTe.EventoCTe.Evento.Clear;
                ACBrCTe.EventoCTe.idLote := StrToInt(idLote);
                with ACBrCTe.EventoCTe.Evento.Add do
                begin
                    infEvento.chCTe := Chave;
                    infEvento.CNPJ := CNPJ;
                    infEvento.dhEvento := now;
                    infEvento.tpEvento := teCCe;
                    infEvento.nSeqEvento := StrToInt(nSeqEvento);
                    infEvento.detEvento.xJust := Correcao;
                end;
     
                ACBrCTe.EnviarEventoCTe(StrToInt(idLote));
     
     
    Porem me da erro dizendo que não foi informado o MODAL..
     
    Bom fui olhar a implementação no componente
    no procedimento procedure TWebServicesBase.DoCTeEnvEvento da unit WebServices contem o seguinte:
     
     
     teCCe:
              begin
                for j := 0 to TCTeEnvEvento(Self).FEvento.Evento.InfEvento.detEvento.infCorrecao.Count-1 do
                 begin
                   with EventoCTe.Evento.InfEvento.detEvento.infCorrecao.Add do
                    begin
                     grupoAlterado   := TCTeEnvEvento(Self).FEvento.Evento.InfEvento.detEvento.infCorrecao.grupoAlterado;
                     campoAlterado   := TCTeEnvEvento(Self).FEvento.Evento.InfEvento.detEvento.infCorrecao.campoAlterado;
                     valorAlterado   := TCTeEnvEvento(Self).FEvento.Evento.InfEvento.detEvento.infCorrecao.valorAlterado;
                     nroItemAlterado := TCTeEnvEvento(Self).FEvento.Evento.InfEvento.detEvento.infCorrecao.nroItemAlterado;
                     nroItemAlterado := TCTeEnvEvento(Self).FEvento.Evento.InfEvento.detEvento.infCorrecao.nroItemAlterado;
                    end;
                 end;
              end;
     
    Pergunta: como seria a implementação destes grupos e valores do "infCorrecao" ? Desculpe, não entendi muito bem.....
     
     
    Att
     
     
    Dionatan

    Erro no ArquivoMFD FiscNet

    em ACBrSerial

    Postado

    sim mas debugou dentro desse metodo pra ver até onde vai?

     

     

    Boa Tarde Juliomar...

     

    Eu não consigo o debug pois nao possuo a impressora, como e uma padaria esta la no cliente.... e dificilmente vou conseguir retirar de la?  Pior que ja é a 10 vez que envio email para o pessoal da ELGIN  e ninguém me reponde..... E um descaso total..... Definitivamente não indico ELGIN...

     

    Pior que o escritório esta pressionando para a entrega do arquivo.... 

    Erro no ArquivoMFD FiscNet

    em ACBrSerial

    Postado

    Debugando o sistema onde o erro ocorre? ao chamar os métodos da dll ou o carregar dinamicamente?

     

    Ele abre o sistema e a tela normalmente...

     

    O erro ocoorre quando e executado:

     

       FrmPrincipal.ACBrECF1.PafMF_MFD_Cotepe1704(DateEdit1.Date, DateEdit2.Date, FrmPrincipal.DirectoryEdit1.Text + '\Arquivo.txt')

    Download XML da nfe

    em ACBrNFe

    Postado

    Bom dia Pessoal, eu tinha aquele exemplo do ACBR de Recuperação do XML, porém nas atualizações que vi nao tem mais.... Pergunto isso pois aquele exemplo era bom para recuperar os arquivos das nfe ... Porem de uns dias pra ca simplesmente nao baixa mais os arquivos... queria saber se alguem usa aquele exemplo ou se substitui por outro componente ?

    Validate failed because the document does not contain exactl

    em ACBrCTe

    Postado

    Italo PESO BRUTO (Kg) PESO BASE CÁLC. (Kg) como eu faco para aparecer no CTE?

     

     

    Hoje eu preencho assim:

     

     with infCarga.InfQ.Add do
                begin
                    cUnid := uKg;
                    tpMed := 'Kg';
                    qCarga := CurrencyEdit12.Value;
     
                end;
     
                with infCarga.InfQ.Add do
                begin
                    cUnid := uUnidade;
                    tpMed := 'UN';
                    qCarga := CurrencyEdit13.Value;
                end;
     
                with infCarga.InfQ.Add do
                begin
                    cUnid := uM3;
                    tpMed := 'M3';
                    qCarga := CurrencyEdit21.Value;
                end;

    Geração Arquivo Ato Cotepe 17/2004 Nota Fiscal Gaúcha Nfg

    em ACBrSerial

    Postado

    Bom dia a todos...

    Consegui uma Daruma FS-600 para realizar teste com relação ao CAT52. A principio gerou certo... pelo menos no validador passou. Porem agora a impressora parou de comunicar...  Qualquer comando que eu envie me retorno "A Impressora Daruma não responde".. o que podera ser????

     

    Altere o BAUND da impressora...

     

    SerialParams=BAUD=115200 HANDSHAKE=RTS/CTS HARDFLOW

    Nota Fiscal Gaúcha - Ecffiscnet - Inconsistência

    em ACBrSerial

    Postado · Editado por dionatan

    Bom dia, 

     

    Pelo que sei a CAT52 foi feito apenas para o estado de São Paulo...

     

    O Correto você deveria de usar o ACBrECF1.PafMF_MFD_Cotepe1704...

     

    Outra coisa você tem todas as dll do fabricante atualizadas para a geração destes arquivos? Geralmente as DLLs estão desatualizadas, pelo menos foi estes problemas que tive em certos clientes...

     

     

    Espero ter ajudado....

     

    Obs: Verificou o modelo da impressora se a versão e aceita para a geração do arquivo?

     

     

    Att

     

    Dionatan 

    Acbrecf1.pafmf_Mfd_Cotepe1704: Inscrição Estadual Com Valor Não Numérico

    em ACBrSerial

    Postado

    poderia passar o endereço para que possamos atualizar?

     

    Sim sim segue o link:

     

    http://bit.ly/10oartG

     

     

    ou 

     

    http://www.desenvolvedoresdaruma.com.br/home/index.php

     

     

    dae e so clicar no link:

    DarumaFramework.dll 32 Bits (Utilize a DarumaFramework.dll 32 Bits para comunicação de alto nível com o ECF no Windows) img_hint.png

     

     

    Estava com problema com a Bematech tambem e atualizei as DLL e funciounou 100%

     

    http://partners.bematech.com.br/suporte-recursos/downloads/

    Acbrecf1.pafmf_Mfd_Cotepe1704: Inscrição Estadual Com Valor Não Numérico

    em ACBrSerial

    Postado

    Esse método utiliza a Dll do fabricante para gerar o arquivo, você tentou verificar com o fabricante porque está gerando com o caracter alfanumérico?

     

     

    Beleza Regis entrei em contato com o pessoal da DARUMA que por sua vez mostrou uma eficiência de dar inveja (sem propagandas)...

     

    As DLL que estao na pasta DLLs estão desatualizadas... o Suporte la me passou os links das novas dll e funcionou 100% valeu...

     

    Att

    Acbrecf1.pafmf_Mfd_Cotepe1704: Inscrição Estadual Com Valor Não Numérico

    em ACBrSerial

    Postado · Editado por dionatan

    Boa Tarde...

     

    Pessoal fui Gerar o arquivo da NFG atraves do procedimento:

     

    ACBrECF1.PafMF_MFD_Cotepe1704

     

     

    ate ai beleza... gerou o arquivo tranquilo..

     

    porem ao validar da erro na linha 2 dizendo que o campo Inscrição Estadual possui valor não numerico.. abri o arquivo e la realmente possuia uma contra barra "\" na inscrição.... Para poder transmitir o arquivo retirei aquela barra e coloquei no final do campo um caracter em branco.... dae validou e consegui transmitir...  tem como retirar essa contra barra para nao dar mais esse problema?

     

     

    Obs: Uso Daruma FS 700...

     

     

    aTT

    post-26-0-91998600-1371146049_thumb.jpg

    post-26-0-71666800-1371146062_thumb.jpg

    Relatório Gerencial - Formatação Urano

    em ACBrSerial

    Postado

    diotan, verifiquei aqui é existe um teste para usar 48 colunas, acho que o problema é somente o modelo retornado pela sua impressora, por favor me envie o valor retornado na propriedade

     

    ACBrECF.ModeloECF 

     

    Assim eu posso adicionar na lista de impressoras com coluna igual 48.

     

    Fico aguardando.

     

     

    ecfFiscNET

     

     

    try
        ACBrECF1.Modelo := TACBrECFModelo(cbxModelo.ItemIndex);
      except
        cbxModelo.ItemIndex := Integer(ACBrECF1.Modelo);
        raise;
      end;

    Relatório Gerencial - Formatação Urano

    em ACBrSerial

    Postado

    A quantidade de colunas e lida do modelo, neste caso o modelo fiscnet está com 57 colunas, pelo que você disse a Urano possui somente 48, isso confere? se sim me passe exatamente o modelo da sua impressora para que possa fazer os acertos.

     

     

    Exatamente Regis ..

     

    Modelo da Impressora URANO  URANO/1FIT LOGGER

    Versão: 03.03.04

    Relatório Gerencial - Formatação Urano

    em ACBrSerial

    Postado

    Este comandos utilizam a quantidade de colunas que é especificada no modelo dela, qual modelo de impressora você utiliza e qual o modelo está configurando no ACBrECF?

     

     

    Não entendi o que meu amigo Isaque quiz dizer que tenho que tratat dentro do meu sisema.... Pois eu so coloco a tag e o componente mesmo formata com

     

    ----------------------------------

     

    ou

     

    =====================

     

     

    O modelo e FiscNet para Impressora Urano... Pois se coloco o modelo urano não funciona

     

     

    Imprimi um relatorio Gerencial na Urano com a formatação Simples que tem 48 colunas porem o componente insere 57 caracteres de = e 57 caracteres de - ou seja 48 linha de cima e 9 na linha de baixo....

     

     

    Att

    Relatório Gerencial - Formatação Urano

    em ACBrSerial

    Postado

    Bom dia,

     

     

    Estou emitindo um Relatorio Gerencial com formatação:

     

          Arq.Add('<linha_simples>');

    Texto

         Arq.Add('</linha_simples>');

         

     

          Arq.Add('<linha_dupla>');

    Texto

         Arq.Add('</linha_dupla>');

     

     

     Bom ate ai tudo bem porem na impressora Urano o numero de colunas e menor acarretando uma quebra de linha...

     

    Teria como efetuar uma correção neste procedimento.... Pois nas impressoras Daruma, Bematech esta correto pois temos 48 colunas...

     

     

    Att

    Erro Urano

    em ACBrSerial

    Postado

    Bom dia pessoal estou usando o ACBRECF com uma impressora urano....

     

    Porem quando vou fazer uma sangria. suprimento ou registrar qualquer item esta dando o erro:

     

     

    Erro: 8089 - ErroCMDDataInvalida
    Data solicitada inexistente.
    {129;8089;NomeErro="ErroCMDDataInvalida" Circunstancia="Data solicitada inexistente.";85}
     
     
    O que poderia ser?
    Como posso ajustar?
     
    Att
    - + - + - + - + - + - + - + - + - + - + - + -
     

     

×
×
  • 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.