Werner_Marques
-
Total de ítens
780 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Werner_Marques
-
-
Obrigado pela resposta André. Vou fazer como recomendou e posto o resultado aqui.
-
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
-
Bom dia, Estou tentando Fazer a impressão do comprovante TEF em impressora não fiscal, porem está me retornando o seguinte erro: Comunication error 5 acesso negado.
Como posso fazer o controle da porta em impressoras não fiscais com o acbrtefd?
-
Obrigado Daniel, consegui verificar os arquivos.
-
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?
-
Bematech DP20, componente ACBrCHQ
-
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 ?
-
Boa tarde Italo
Desculpa a demora para responder, mais revir todo o meu código e conseguir resolver o problema. Umas das configurações do componente que verifiquei foi essa :
ACBrCTe1.Configuracoes.WebServices.Visualizar := True
Agradeço a atenção.
- 1
-
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?
-
Obrigado pela ajuda Juliana.
-
Juliana, encontrei o problema.
Quando eu seto o TipoCobranca antes das demais configurações, o boleto é gerado corretamente.
- 3
-
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; -
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\ -
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
-
Preencho com o 'cobBancoDoNordeste'
Juliana, No DEMO eu consigo gerar normalmente, mas estou achando estranho pois informo ao demo da mesma forma que informo no meu sistema.
-
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 68170000002000Estou 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.
-
Muito Obrigado Regys, esta tudo OK!
-
O e-mail já foi enviado, se possível confirme o recebimento.
-
Estou tentando anexar o arquivo com o print mais está apresentando o seguinte erro:
" Houve um problema no processamento do arquivo enviado. Please contact us for assistance. "
-
Os componentes que estou usando é o ACBrMDFe e o ACBrMDFeDAMDFeRL são os do Manifesto Eletrônico.
-
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?
-
É no Delphi 2010 ou no Delphi 7, qualquer um dos dois.
-
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?
-
Alguém teria alguma solução ??
Impressão comprovante TEF em Impressora não fiscal.
em NFe/NFCe - Nota Fiscal Eletrônica
Postado
André, consegui fazer conforme você orientou. Imprimiu normalmente.