Ir para conteúdo
  • Cadastre-se

Rodrigo Guelf

Membros Pro
  • Total de ítens

    245
  • Registro em

  • Última visita

Posts postados por Rodrigo Guelf

  1. Amigo, eu recompilei os pacotes, entrei por dentro do delphi e fui até a unit ACBrEFDBlocos, fui na linha 167 "vlVersao107   // Código 008 - Válido a partir de 01/01/2014" enfim fim tudo o que vc falou porem quando mando gerar o arquivo do sped a versão continuar |0000|007|0|01012014|31012014|.  o que devo fazer, ou o que estou fazendo de errado

  2. Bom Pessoal, desde já quero agradecer a quem me ajudar.

     

    Um Cliente meu comprou uma impressora EPSON TM-T81F USB, baixei o drive dela, configurei o ACBr para Imprimir na porta USB, até ai tudo bem!

     

    eu só estou conseguindo emitir leitura LX, pois quando mando imprimir cupom da o seguinte erro:

    0801 - Comando invalido com jornada fiscal fechada.

    pesquisei aqui no fórum e vi que jornada fiscal é quando a redução Z já foi emitida.

     

    então peguei e esperei no outro dia fui fazer teste e deu o mesmo erro, na duvida eu mandei emitir a redução z novamente. Imprimiu certinho, esperei no outro dia e mesmo assim continua dando o mesmo erro:

     

    Será que essa impressora tem que abri o dia nela?

     

    mais uma vez agradeço a quem me ajudar!

  3. Italojjr, Bom dia!

     

    A Versão do Windows é 7 64 bits, porem eu mesmo já vi acontecer no windows 7 32, XP 32.  toda vez que fica assim não tenho outra maneira se não formatar o micro.

     

    no status do serviço não da erro, porem o retorno volta em branco.

     

    Caso queira fazer algum teste na minha maquina, é só marcamos um horario, que libero o TeamViewer para vc.

     

    Desde já agradeço a sua atenção.

  4. Boa Noite Italojjr.

     

    Fiz o que vc pediu, atualizei o ACBr e tentei novamente o procedimento, continua acontecendo o mesmo erro, vc tem razão ai dizer que o erro é referente a algum componente que não existe, apos a mensagem de erro em branco vem um acess violation,

     

      if not(Self.Enviar.Executar) then
         begin
           if Assigned(TACBrNFe( FACBrNFe ).OnGerarLog) then
              TACBrNFe( FACBrNFe ).OnGerarLog(Self.Enviar.Msg);
           raise EACBrNFeException.Create(Self.Enviar.Msg);
         end;
     
    esta mensagem esta voltando vazia, porem o exception não deixa passar.
  5. Amigo estou usando a capicom o vencimento do certificado é 20/07/2014.

    eu fui debugando o codigo e o erro da dentro da Unit ACBrNFeWebServices  dentro da rotina

     

    function TWebServices.Envia(ALote: String; const ASincrono: Boolean): Boolean;

     

     

    dentro desta verificação

     

           if Assigned(TACBrNFe( FACBrNFe ).OnGerarLog) then
              TACBrNFe( FACBrNFe ).OnGerarLog(Self.Enviar.Msg);
           raise EACBrNFeException.Create(Self.Enviar.Msg);
         
    eu já registrei a capicom, e as outras dll que acompanham ela e mesmo assim da o erro, não é a primeira vez que este erro da em cliente meu, sempre que isso acontece não tenho outra solução 
    se não formatar o PC, mais desta fez graças a Deus deu o erro no meu micro e posso debugar para dentar resolver.
  6. Renan Garcia de Oliveira 

    segue o rotina e exemplo para vc resolver o seu problema

     

     

    //Função para Remover Caracter de uma string;
    function TFormGerarETransmiteXML.RemoveAcento(Str: string): string;
    const ComAcento = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ.';
          SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU ';
    var x: Integer;
    begin;
      for x := 1 to Length(Str) do
        if Pos(Str[x],ComAcento) <> 0 then Str[x] := SemAcento[Pos(Str[x], ComAcento)];
      Result := Str;
    end;
     
          vLinha:= '                    <nomePrescritor>'+RemoveAcento(QVenda.FieldByName('NOME').AsString)+'</nomePrescritor>'; 
     
  7. designerba eu disse para vc que o meu componente processmessages já estava como false, mais me confundi com a propriedade ExibeMensagem, eu não encontrei nas propriedados do componente ACBrECF a propriedade processmessages, seria realmente no componente ACBrECF?

  8. Amigos, bom dia!

     

    Tenho um cliente que tem duas impressoras bematech MP 2100 estou capturando os dados obtidos após tirar a redução Z para gravar para geração dos arquivos do Sped. Uma impressora funciona normalmente, eu mudo o TimeOut de 5 para 600 antes de mandar imprimir, mando imprimir captura as informações que preciso e volto o TimeOut para 5.

    Na outra impressora já mudei o TimeOut para 60 000 e mesmo assim não da tempo para imprimir, a fita da impressora da redução Z tem cerca de 2 metros e meio de comprimento demora 3 minutos para imprimir toda a redução Z.

    Como eu faço para que o programa consiga ficar esperando a redução Z terminal, no meio da redução Z o Acbr da erro que a impressora não esta respondendo.

     

    Agradeço desde já a quem me ajudar!

  9. jeter.rabelo.

     

    Amigo muito obrigado pela sua ajuda, deu tudo certo!

     

    gostaria de saber só mais uma coisa, o meu cliente vai imprimir as notas fiscais enviar e entregar para os clientes, vai gerar estes arquivos e depois passar no validador e gerar o 4 arquivo, depois tem que imprimir o recibo de entrega, até ai tudo bem e depois o que eu faço com estes arquivos e com o recibo?

     

    vai mandar para o contador só o recibo e os arquivos pode jogar fora?

  10. jeter.rabelo

     

    Amigo gerei novamente o arquivo só arrumei o telefone, mesmo assim esta dando o seguinte erro:

     
    Erro: 418 - Número da última Nota Fiscal do arquivo mestre inválido [         ]
             Arquivo: Mestre
     
     
    Arq. Descrição do Erro                                                                     Qtde    
    --------------------------------------------------------------------------------------------------
    DEST 418-Número da última Nota Fiscal do arquivo mestre inválido                                 1
    --------------------------------------------------------------------------------------------------
                                                                       Total de Erros:               1
     
    estou usando o seguinte validador:
     
    caso não seja o mesmo vc usa, por favor me passa o correto.
     
    estou enviando novamente os arquivos gerados, o log do erro e o arquivo de configuração do validador.
     
    desde já agradeço mais uma vez pela ajuda!

    CAT 79.rar

  11. Jeter.rabelo segue o código:

    Obrigado por me ajudar!

     

    procedure TClasseNFTelecomunicacoes.AlimentarComponente;
    begin
      with DtCadastro, Convenio115 do begin
        try
          Application.ProcessMessages;
          Clear;
          SalvarEm := ADir;
          UF := 'SP';
          Serie := '001';
          Ano := StrToInt(FormatDateTime('YYYY',CDSNotaFiscalDT_PEDIDO.AsDateTime));
          Mes := StrToInt(FormatDateTime('MM',CDSNotaFiscalDT_PEDIDO.AsDateTime));
          CDSNotaFiscal.First;
          while not CDSNotaFiscal.Eof do begin
            RefreshTable(CDSClientes, 'SELECT * FROM CLIENTES WHERE CODIGO =:CODIGO',CDSNotaFiscalCOD_CLI.AsInteger);
            RefreshTable(CDSCidades, 'SELECT * FROM CIDADES WHERE CODIGO =:CODIGO',CDSClientesCOD_CID.AsInteger);
            OMestre := TACBrConvenio115Mestre.Create;
            OMestre.Destinatario.CnpjCpf := CDSClientesCPF_CNPJ.AsString;
            OMestre.Destinatario.InscricaoEstadual :=CDSClientesRG_IE.AsString;
            OMestre.Destinatario.RazaoSocial := CDSClientesNOME.AsString;
            OMestre.Destinatario.Logradouro := CDSClientesENDERECO.AsString;
            OMestre.Destinatario.Numero := CDSClientesEND_NUM.AsString;
            OMestre.Destinatario.Complemento := CDSClientesCOMPLEMENTO.AsString;
            OMestre.Destinatario.CEP := CDSClientesCEP.AsString;
            OMestre.Destinatario.Bairro := CDSClientesBAIRRO.AsString;
            OMestre.Destinatario.Municipio := CDSCidadesNOME.AsString;
            OMestre.Destinatario.UF := CDSClientesUF.AsString;
            OMestre.Destinatario.Telefone := CDSClientesTELEFONE.AsString;
            OMestre.Destinatario.CodigoConsumidor := CDSClientesCODIGO.AsString;
            OMestre.TipoAssinante := tac111ResidencialPessoaFisica;
            OMestre.TipoUtilizacao := pc112ProvimentoAcessoInternet;
            OMestre.DataEmissao := CDSNotaFiscalDT_PEDIDO.AsDateTime;
            OMestre.Modelo := 21;
            OMestre.Serie := '001';
            OMestre.NumeroNF := CDSNotaFiscalNUMERO_NF.AsInteger;
            OMestre.ValorTotal := CDSNotaFiscalTOTAL.AsCurrency;
            OMestre.ICMS_BaseCalculo := CDSNotaFiscalB_ICMS.AsCurrency;;
            OMestre.ICMS_Valor := CDSNotaFiscalVL_ICMS.AsCurrency;
            OMestre.IsentosNaoTributadas := 0;
            OMestre.OutrosValores := CDSNotaFiscalOUT_DESP_ACESS.AsCurrency;
            OMestre.AnoMesRefencia := FormatDateTime('YYMM',CDSNotaFiscalDT_PEDIDO.AsDateTime);
            RefreshTable(CDSItensNF, 'SELECT * FROM ITENS_NOTAFISCAL WHERE COD_PED =:COD_PED',CDSNotaFiscalCODIGO.AsInteger);
            while not CDSItensNF.Eof do begin
              ODetalhe := TACBrConvenio115Item.Create;
              ODetalhe.CFOP := '5307';
              ODetalhe.Item := CDSItensNF.RecNo;
              ODetalhe.CodigoServico := CDSItensNFCOD_PRO.AsString;
              ODetalhe.DescricaoServico := CDSItensNFPRODUTO.AsString;
              ODetalhe.Unidade := CDSItensNFUN.AsString;;
              ODetalhe.ClassificacaoItem := '1001' ; // Verificar tabela 11.5 do convênio
              ODetalhe.QtdeContratada := CDSItensNFQUANT.AsCurrency;
              ODetalhe.QtdePrestada := CDSItensNFQUANT.AsCurrency;
              ODetalhe.ValorTotal := CDSItensNFVL_TOTAL.AsCurrency;
              ODetalhe.Desconto := 0;
              ODetalhe.AcrescimosDespAcessorias := 0;
              ODetalhe.ICMSBaseCalculo := CDSItensNFBASE_CALC_ICMS.AsCurrency;
              ODetalhe.ICMSValor := CDSItensNFBASE_CALC_ICMS.AsCurrency;
              ODetalhe.ICMSAliquota := CDSItensNFICMS.AsCurrency;
              ODetalhe.IsentoNaoTributados := 0;
              ODetalhe.OutrosValores := 0;
              ODetalhe.AnoMesApuracao := FormatDateTime('YYMM',CDSNotaFiscalDT_PEDIDO.AsDateTime);
              OMestre.Detalhes.Add(ODetalhe);
              CDSItensNF.Next;
            end;
            CDSNotaFiscal.Next;
            Mestre.Add(OMestre);
          end;
          RefreshTable(CDSFiliais, 'SELECT * FROM FILIAIS WHERE CODIGO =:CODIGO',CDSNotaFiscalCOD_FILIAL.AsInteger);
          with Emitente do begin
            RazaoSocial := CDSFiliaisNOME.AsString;
            CNPJ := CDSFiliaisCNPJ.AsString;
            InscEstadual := CDSFiliaisIE.AsString;
            Endereco := CDSFiliaisENDERECO.AsString+', '+CDSFiliaisEND_NUMERO.AsString;
            Cidade := CDSFiliaisCIDADE.AsString;
            UF := CDSFiliaisUF_DESTINO.AsString;
            Telefone := CDSFiliaisTELEFONE.AsString;
            HomePage := '';
            EMail := '';
          end;
        finally
          BlockInput(False);
          FormAguarde.Free;
        end;
      end;
    end;
     
    procedure TClasseNFTelecomunicacoes.Imprimir;
    begin
      with FrmPRN, Convenio115 do begin
        AlimentarComponente;
        Imprimir(False);
      end;
    end;

     

  12. Não sei o que esta acontecendo mais gerei mais notas fiscais do mesmo cliente e ao passar pelo validador esta dando o seguinte erro:

     
    Erro: 418 - Número da última Nota Fiscal do arquivo mestre inválido [         ]
             Arquivo: Mestre
     
     
    Arq. Descrição do Erro                                                                     Qtde    
    --------------------------------------------------------------------------------------------------
    DEST 418-Número da última Nota Fiscal do arquivo mestre inválido                                 1
    --------------------------------------------------------------------------------------------------
                                                                       Total de Erros:               1
     
    Este é o conteudo do arquivo mestre:
    00035469795837426343566     LUIS GUSTAVO APARECIDO             SP34001           2013071521001000010803C0921DFC90CB99D61A12902649CDE156000000002500000000000000000000000000000000000000000000000000N1307000000001                 123615C79EB4D884A6133D03AA15F3D4
    00035469795837426343566     LUIS GUSTAVO APARECIDO             SP34001           2013071521001000010804038476E25DEB04BCE4D8818EDE746241000000002500000000000000000000000000000000000000000000000000N1307000000002                 2BC0784BB3E7855931B5BCBFC5E4DA81
    00035469795837426343566     LUIS GUSTAVO APARECIDO             SP34001           2013071521001000010805D1CF6EAC75FC6F444624B8C49A642131000000002500000000000000000000000000000000000000000000000000N1307000000003                 CDC2FC6A75F1A2EE7057806C5FB3D9D8
    00035469795837426343566     LUIS GUSTAVO APARECIDO             SP34001           20130715210010000108065313E8C9B462A4953BB784CF380F258F000000002500000000000000000000000000000000000000000000000000N1307000000004                 91E2FF681445E6DCF0283951E51B1AD4
    00035469795837426343566     LUIS GUSTAVO APARECIDO             SP34001           2013071521001000010807DF63CCB301480A875DD16C4F902F1367000000002500000000000000000000000000000000000000000000000000N1307000000005                 D3807C511077B60D4D5F0159BB8888B1
    00035469795837426343566     LUIS GUSTAVO APARECIDO             SP34001           2013071521001000010808E23116397DADEE5398A3EF50998CEE13000000002500000000000000000000000000000000000000000000000000N1307000000006                 36F0C6BEFE307343665EB9052ACF4624
    00035469795837426343566     LUIS GUSTAVO APARECIDO             SP34001           2013071521001000010809AFD9FE64604C65838F7CC20AB3E887B5000000002500000000000000000000000000000000000000000000000000N1307000000007                 3DE4D3FF3F69C45D743FEC28104C6F90
     
     
    note que o numero da nota fiscal não esta errado.
  13. gerei o arquivo com 1 registro e esta dando o seguinte erro quando passo pelo validador

     

    Arq. Descrição do Erro                                                                     Qtde    
    --------------------------------------------------------------------------------------------------
    MEST 136-Código Autenticação Digital do registro do arquivo mestre inválido                      1
    MEST 139-Final do registro com seqüência inválida (diferente de CR + LF)                         1
    DEST 314-Código Autenticação Digital do registro do arquivo cadastro inválido                    1
    DEST 315-Final do registro com seqüência inválida (diferente de CR + LF)                         1
    --------------------------------------------------------------------------------------------------
                                                                       Total de Erros:               4
  14. gigainfo, no ambiente de Homologação eu tambem consegui enviar um arquivo esta semana porem no de produção continua dando o seguinte erro:

     

    Arquivo XML não aderente ao Schema SNGPC. Consulte http://www.anvisa.gov.br/sngpc/esquemas.asp para auxiliar na resolução dos erros encontrados.

    Os itens não validados, que seguem abaixo, foram encaminhados para o e-mail [email protected]. Favor encaminhar os itens não validados para análise do suporte do programa que gera os arquivos XML em seu estabelecimento.

    Descrição do erro: The element 'entradaMedicamentos' in namespace 'urn:sngpc-schema' has invalid child element 'classeTerapeutica' in namespace 'urn:sngpc-schema'. List of possible elements expected: 'urn:sngpc-schema:medicamentoEntrada'.. The element 'entradaMedicamentos' in   ...................

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