Ir para conteúdo
  • Cadastre-se

Werner_Marques

Membros Pro
  • Total de ítens

    780
  • Registro em

  • Última visita

Posts postados por Werner_Marques

  1. Bom dia.

    Em alguns clientes meus, quando tento enviar a NF-e está aparecendo a mensagem de erro em anexo. Quando tento enviar novamente me retorna o erro de duplicidade de nota.

    Não consegui identificar o que está acontecendo, isso ocorre em maquinas com windows xp, 7, 10 não consegui identificar um padrão. Uso delphi 2010 e meu componente está atualizado.

    auto.png

  2. Boa Tarde, tenho uma duvida a respeito da tag indPag.

    No componente acbrNFe, essa tag pode ser preenchida com os valores: ipvista, ipprazo, ipoutras. Conforme imagem anexada.

    No componente acbrspedpiscofins, essa tag pode ser preenchida com os valores: tpvista, tpprazo, tpsempagamento, tpnenhum, conforme imagem anexada.

    O problema é que uso esse campo da nfe para gerar o arquivo sped, devido as opções serem diferentes como preencho o arquivo sped caso a nfe seja gerada com o indpag = ipoutras?

    estou com os fontes atualizados e uso o delphi 2010.

     

    acbr indpag1.png

    acbr indpag2.png

  3. Bom dia 

    Não estou conseguindo emitir cartas de correções para o CTes, todos apresentam a seguinte rejeição.

    Segue linha de Código Fonte:

        iNumLote:= FormatDateTime('yymmddhhmm', now);
        if not(InputQuery('WebServices CCe: Carta de Correção', 'Identificador de controle do Lote de envio do Evento', iNumLote)) then
          exit;

        if not(InputQuery('WebServices CCe: Carta de Correção', 'Chave da CT-e', Chave)) then
          exit;
          chave := Trim(OnlyNumber(Chave));

        CNPJ := copy(Chave,7,14);
        if not(InputQuery('WebServices CCe: Carta de Correção', 'CNPJ ou o CPF do autor do Evento', CNPJ)) then
          exit;

        Grupo := 'Indicar o grupo de informações que pertence o Campo Alterado dentro do XML.';
        if not(InputQuery('WebServices CCe: Carta de Correção','Digite Grupo de Correção:', Grupo)) then
          exit;

        Campo := 'Nome do campo modificado do CT-e Original.';
        if not(InputQuery('WebServices CCe: Carta de Correção','Digite o Campo de modificação:', Campo)) then
          exit;

        Valor := 'Valor correspondente à alteração.';
        if not(InputQuery('WebServices CCe: Carta de Correção','Digite o valor de alteração:', Valor)) then
          exit;

        NumItem := 'Informe o número (Mais de um índice alterado)';
        if not(InputQuery('WebServices CCe: Carta de Correção','Número do item:', NumItem)) then
          exit;


        ACBrCTe1.EventoCTe.Evento.Clear;
        with ACBrCTe1.EventoCTe.Evento.Add do
        begin
           nSeqEvento := qr1.fieldbyname('seq_cce').asstring;

           if tp_ambiente = 0 then
              InfEvento.tpAmb              := taProducao
           else
              InfEvento.tpAmb              := taHomologacao;

           infevento.chCTe      := Chave;
           infEvento.CNPJ       := CNPJ;
           infEvento.cOrgao     := StrtoInt(Copy(frameLookupFilial1.qr1.fieldbyname('cd_cid').AsString, 1,2));
           infEvento.dhEvento   := Now;
           infEvento.tpEvento   := teCCe;
           infEvento.nSeqEvento := StrToInt(nSeqEvento);
           infEvento.detEvento.descEvento := 'Carta de Correção';
           infEvento.detEvento.xCondUso   := '';

        ACBrCTe1.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Clear;

        with ACBrCTe1.EventoCTe.Evento.Items[0].InfEvento.detEvento.infCorrecao.Add do
          begin
           grupoAlterado   := Grupo;
           campoAlterado   := Campo;
           valorAlterado   := Valor;
           nroItemAlterado := strtoint(NumItem);
          end;
        end;


        // envio da carta de correção
        if  ACBrCTe1.EnviarEvento(StrToInt(iNumLote)) then
        begin
          with ACBrCTe1.WebServices.EnvEvento do
          begin
            if not(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat in [135, 136]) then
            begin
              raise EDatabaseError.CreateFmt(
                'Ocorreu o seguinte erro ao enviar a carta de correção:'  + sLineBreak +
                'Código:%d' + sLineBreak +
                'Motivo: %s', [
                  EventoRetorno.retEvento.Items[0].RetInfEvento.cStat,
                  EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo
              ]);
            end;

            qr2.Close;
            qr2.SQL.Clear;
            qr2.SQL.Text:= 'update conhec set seq_cce = seq_cce+1 '+
                           'where nr_conhec = '+quotedstr(qr1.fieldbyname('nr_conhec').AsString)+
                           'and cd_fil = '+quotedstr(qr1.fieldbyname('cd_fil').AsString)+
                           ';';
            qr2.ExecSQL;

          end;
        end
        else
        begin
          with ACBrCTe1.WebServices.EnvEvento do
          begin
            raise Exception.Create(
              'Ocorreram erros ao enviar a Carta de Correção:' + 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;

        ACBrCTe1.EventoCTe.GerarXML;
        MemoResp.Lines.Text := UTF8Encode(ACBrCTe1.WebServices.EnvEvento.RetWS);
        LoadXML(MemoResp, WBResposta);
     

     

    Sem título.jpg

  4. Boa tarde

    Um determinado cliente possui duas empresas, matriz e filial, uma no estado do CE e outra no RN, o certificado digital é utilizado para as duas empresas (certificado modelo A1), quando vamos verificar os status de serviço na empresa Matriz CE, retorna "Serviço em Operação", quando vou verificar o mesmo no momento o da Filial RN o Status retorna vazio. Quando tento gerar NFE, CTE ou MDFE esta retornando a seguinte mensagem "O identificador não está no estado correto para a operação solicitada"

    Em anexo erro que apresenta.

    imagem.jpg

  5. Boa tarde colegas,

    Recentemente voltou a acontecer esse mesmo problema em nossos clientes,  mesmo após a atualização do JAVA o erro persistia. Dentro do sistema, informamos dados do certificado, numero de serie e senha, após retirar da senha, e tentar gerar,  funcionou. Observei também que esse erro esta acontecendo somente com certificados A3.

    Gostaria de saber se alguém já encontrou alguma solução para esse problema?

  6. 1 hora atrás, BigWings disse:

    Seu XML tem a tag indCanalVerde preenchida.

    A NT 2017.003 determina as datas limite de homologação e produção:

    Então é provável que a SEFAZ do seu estado ainda não tenha feito a atualização segundo esta NT.

    Por enquanto, informe a tag indCanalVerde em branco.

    Obrigado pela resposta.

    Eu não informei a tag, mas pelo o que vi o componente atribui 1 por padrão.

    Depois de informar Ide.indCanalVerde = tiNao  deu certo.

     

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