Ir para conteúdo
  • Cadastre-se

Werner_Marques

Membros Pro
  • Total de ítens

    780
  • Registro em

  • Última visita

Posts postados por Werner_Marques

  1. Já Pesquise aqui no Fórum, por usuários que tenham tido o mesmo problema mas, já tentei tudo que foi indicado e não deu certo. Já tentei enviar o estado da impressora como livre, e não deu certo. Já tentei habilitar a opção de controle de porta no componente, porém sem sucesso também. O erro acontece exatamente na parte do código que tento ativar a impressora para imprimir o comprovante dentro do evento comandaecfimprimevia do acbrtefd

  2. A impressora é Serial mais esta conectada em um adaptador USB para conexão com o PC.

    Com a forma de testar sem o uso, se conseguiria enviar para um arquivo texto, sem necessariamente fosse feito direto enviando para a impressora, justamente para poder testar essas coordenadas.

    Onde ficaria esse arquivo bemafi.ini pois não precisei instalar nenhum driver dela, não tenho esse arquivo, nem mesmo no demo encontrei. Onde posso encontrar esse arquivo bemafi.ini?

  3. Boa tarde 

    Estou utilizando o componente de impressão de Cheques no meu sistema, gostaria de saber primeiramente se tem uma forma de testar sem o uso de uma impressora de cheques, e segundo se tem como reajustar a linha e local do valor ?

  4. Boa tarde 

    Estou com um problema no cancelamento do Ct-e, sempre que tento cancelar não tenho retorno da SEFAZ, só que ao consultar o CT no portal está cancelado e no sistema não obtenho nenhum retorno ou resposta. 

    Segue abaixo todo o código de  como esta sendo cancelado:

       OpenDialog1.Title := 'Selecione o CTe a ser Cancelado';
       OpenDialog1.DefaultExt := '*-cte.xml';
       OpenDialog1.Filter := 'Arquivos CTe (*-cte.xml)|*-cte.xml|Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*';
       OpenDialog1.InitialDir := ACBrCTe1.Configuracoes.Arquivos.PathSalvar;

       if OpenDialog1.Execute then begin

           ACBrCTe1.Conhecimentos.Clear;
           ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName);

           if not(InputQuery('Cancelamento do CTe:', 'Justificativa', vAux))
              then exit;

           ACBrCTe1.EventoCTe.Evento.Clear;
           ACBrCTe1.Configuracoes.Arquivos.PathSalvar  := 'c:\sis\cte\xml_emitente\';
           ACBrCTe1.Configuracoes.Arquivos.PathSchemas := 'c:\sis\cte\xml_schemas\';

           with ACBrCTe1.EventoCTe.Evento.Add do begin
             infEvento.nSeqEvento      := 1; // Para o Evento de Cancelamento: nSeqEvento sempre = 1
             infEvento.chCTe           := Copy(ACBrCTe1.Conhecimentos.Items[0].CTe.infCTe.Id, 4, 44);
             infEvento.CNPJ            := qrempresa.fieldbyname('nr_cgc').asstring;
             infEvento.dhEvento        := now;
             infEvento.tpEvento        := teCancelamento;
             infEvento.detEvento.xJust := trim(vAux);
             infEvento.detEvento.nProt := ACBrCTe1.Conhecimentos.Items[0].CTe.procCTe.nProt;
           end;


           iLote := 1; // Numero do Lote do Evento
           ACBrCTe1.EnviarEvento(iLote);
           MemoResp.Lines.Text :=  UTF8Encode(ACBrCTe1.WebServices.EnvEvento.RetWS);
           LoadXML(MemoResp, WBResposta);

           ShowMessage(IntToStr(ACBrCTe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat));
           ShowMessage(ACBrCTe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt);

       end;

    Alguém poderia me ajudar?

  5. Boa tarde juliana, não percebi que esqueci uma linha.

    Após esse código que postei: 

        TpBanco := qrbanco.fieldbyname('tp_banco').AsString;

     

        if TpBanco = 'BancoDoNordeste' then
          ACBrBoleto1.Banco.TipoCobranca := cobBancoDoNordeste;

  6. Bom dia, Juliana.

    Compreendo que o problema não seja o componente, mas não vejo onde estou errando ao alimenta-lo.

        ACBrBoleto1.Banco.Nome            := qrbanco.fieldbyname('nm_banco').asstring; //Banco do Nordeste
        ACBrBoleto1.Cedente.Agencia       := qrbanco.fieldbyname('nr_agencianro').AsString;//33
        ACBrBoleto1.Cedente.AgenciaDigito := qrbanco.fieldbyname('nr_agenciadig').AsString;//0
        ACBrBoleto1.Cedente.CodigoCedente := qrbanco.fieldbyname('nr_cedente').AsString;//10025176002
        ACBrBoleto1.Cedente.Conta         := qrbanco.fieldbyname('nr_contanro').AsString;//42344
        ACBrBoleto1.Cedente.ContaDigito   := qrbanco.fieldbyname('nr_contadig').AsString;//1
        ACBrBoleto1.Cedente.Nome          := frPrincipal.qrempresa.fieldbyname('nm_emp').AsString;//S R F DE OLIVEIRA
        ACBrBoleto1.Cedente.CNPJCPF       := frPrincipal.qrempresa.fieldbyname('nr_cgc').AsString;//15089780000165
        ACBrBoleto1.Cedente.Modalidade    := qrbanco.fieldbyname('nr_variacao').asstring;// vazio
        ACBrBoleto1.Cedente.Convenio      := qrbanco.fieldbyname('nr_cedente').AsString;//10025176002
        ACBrBoleto1.ACBrBoletoFC.DirLogo  := qrbanco.fieldbyname('nm_barras').asstring;//c:\boleto\imagens\

  7. Juliana, também estou achando estranho porque no boleto, o local para código do beneficiário está com vários zeros.

    Boleto no demo: 

    código do beneficiário: 0042344-1

    Boleto gerado pelo meu sistema:

    código do beneficiário: 000000042344-1

  8. Boa tarde. 

    Estou com um problema na homologação do Banco do nordeste, Segundo o setor responsável, o numero da conta não está aparecendo no código de Barras.

    Esperado: 00490.03304 04234.410001 00680.210002 1 68170000002000
    Encontrado (captura p/leitora): 00490.03304 00000.010009 00680.210002 7 68170000002000

    Estou alimentando o Componente da seguinte forma:

    Agência: 0033

    Agência digito: 0

    Cedente: 10025176002

    Conta:0042344

    Digito:1

    Já tentei de varias formas mas não consegui gerar corretamente.

     

  9. Fiz os seguintes testes após a atualização:

    1º Na minha aplicação a quantidade do peso está 35.5 na impressão do DAMFe saiu dessa forma 35.5 já no xml  o qcarga está  35.5000.

    2º Na minha aplicação a quantidade do peso está 2,800.00 na impressão DAMFe saiu dessa forma 2,800 já no xml  o qcarga está 2800.0000

    Obs: A configuração da minha máquina de Região e Idioma está Simbolo decimal ( . ) e Simbolo de agrupamento de dígitos ( , )

    Queria uma forma que saísse no DAMFe  2.800,00 , alguém teria uma solução?

  10. O DAMFe sai com os valores formato #,## ex: peso total(Kg) 2,800  teria alguma forma de mudarmos esse formato dos valores impressos para #.## ex: 2.800, pois alguns clientes estão chamando a atenção quando ao valor sair com a virgula. 

    Obs.. Nao acho viável mudar no código fonte pois sempre que precisar atualizar meus fontes, teria que lembrar de mudar essa parte.  

    Alguém teria uma outra forma que possa me ajudar?

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