Jump to content

LUMORAES

Membros
  • Posts

    52
  • Joined

  • Last visited

Everything posted by LUMORAES

  1. Eu preciso desativar pq eu tenho um unico componente PosPrinter e varias impressoras, exemplo qdo vier um pedido de refrigerante preciso passar os parametros para a impressora do bar, qdo vier um produto de cozinha tenho que passar para a impressora da cozinha. Se eu nao desativar o componente nao aceita eu setar os parametros para uma nova impressora. segue o trecho do codigo que faz isso: function TDM_ESCPOS.Ativar(Porta: String;Impressora:String):Integer; var ArqIni : TIniFile; begin frmMain.QListaImpressoras.Locate('descricao',Impressora,[]); ArqIni := tIniFile.Create(frmMain.GetDir+'INFOLUCK.INI'); ESCPOS.Desativar; ESCPOS.Modelo := TACBrPosPrinterModelo(frmMain.QListaImpressoras.FieldByName('tipo_escpos').AsInteger); ESCPOS.Porta := Porta; if ArqIni.ReadString('ESCPOS', 'LOG','NAO')='SIM' then ESCPOS.ArqLOG :='ESCPOS.LOG' else ESCPOS.ArqLOG :=''; FreeAndNil(ArqIni); ESCPOS.CortaPapel := True; ESCPOS.VerificarImpressora := False; // esse parametro qdo true da problema de impressao muitos grandes qdo desativa e ativa a impressora result := 1; try ESCPOS.Ativar; except Result:=0; end; End;
  2. Qdo controleporta=TRUE eu somente ativo e imprimo , nao preciso desativar??? Segue o arquivo de log. veja que la aparece a diferenca de 4 segundos entre desativar e ativar.
  3. Segue o arquivo de log. veja que la aparece a diferenca de 4 segundos entre desativar e ativar. ESCPOS.LOG
  4. Tenho um servidor de impressao que fica a toda hora consultando o banco para saber se existe novos pedidos para imprimir Para esse servidor nao ficar segurando a porta da impressora para outras vias de impressao na mesma, ele ativa imprime e desativa. Acontece que esta ocorrendo um delay de 4 a 5 segundos para desativar. geralmente esse tempo é na USB , com RAW ou placa de rede é um pouco menor. Notamos que esse delay ocorre tb no codigo exemplo que vem junto com o ACBR. Tem algo que eu possa fazer pra resolver???
  5. Alguem usa o microterminal COLLETER SERIAL com o ACBR???
  6. Notei que o acbr esta gerando errado o digito verificador da NOSSONUMERO do boleto Itau. Ele usa o CalcularDigitoVerificador ,comparamos com o layout do banco Itau, notamos que o MultiplicadorAtual do acbr inicia em 2 e no manual deve-se iniciar com 1 para montar o calculo usando o modulo 10. Alguém ja passou por isso???
  7. Ola Juliana, poderia me ajudar, eu ja anexei o arquivo
  8. Ola bom dia Juliana. Eu abri o arquivo ACBrBancoSantander.pas e no codigo consta da seguinte maneira: IntToStrZero(DaysBetween(Vencimento,DataBaixa), 2) + // 226 - 227 / Número de dias para Baixa/Devolução ai fiz o update pelo tortoise ocorreu uma atualizacao porem nada mudou. Estou usando o trunk2.
  9. Ola bom dia Juliana segue o arquivo em anexo grato COBST_H5D8_02_020316P_MOV.TXT
  10. Ola boa noite a todos O Banco é Santander. Estou usando a seguinte instrução: Em: Boleto.ListadeBoletos[J].OcorrenciaOriginal.Descricao aparece = '03-Entrada Rejeitada' Porem em: Boleto.ListadeBoletos[J].DescricaoMotivoRejeicaoComando.Text nao retorna nada. GRATO.
  11. Eu acho que descobri o problema, O campo 226/227 esta sendo preenchido pelo acbr da seguinte forma: IntToStrZero(DaysBetween(Vencimento,DataBaixa), 2) Ou seja, diferença entre o vencto e a data da baixa, como minha instrucao para o banco é para nao baixar (posicao 224 - 1=baixa 2=nao baixar) eu devo neste caso preencher a propriedade Titulo.DataBaixa=Titulo.Vencimento para que o between retorne 0(zero). Agora vou enviar pro banco pra saber se esta ok. Grato
  12. Ola bom dia Juliana. Verifiquei e nao preencho esta propriedade. Segue abaixo o trecho do codigo responsavel pela geracao da remessa: Boleto.ListadeBoletos.Clear; BoletoFortes.DirLogo := ExtractFilePath(Application.ExeName)+'\imagens\'; Boleto.Banco.Numero := qryBancobanco_numero.AsInteger; Case qryBancobanco_numero.AsInteger of 1 : Boleto.Banco.TipoCobranca := cobBancoDoBrasil; 237 : Boleto.Banco.TipoCobranca := cobBradesco; 104 : Boleto.Banco.TipoCobranca := cobCaixaEconomica; 399 : Boleto.Banco.TipoCobranca := cobHSBC; 341 : Boleto.Banco.TipoCobranca := cobItau; 33 : Boleto.Banco.TipoCobranca := cobSantander; 756 : Boleto.Banco.TipoCobranca := cobBancoob; End; Boleto.Banco.TamanhoMaximoNossoNum := qryBancobanco_tamanhomaxnossonum.AsInteger-1; Boleto.Cedente.Nome := qryEmpresaempresa.AsString; Boleto.Cedente.CNPJCPF := qryEmpresacnpj.AsString; Boleto.Cedente.Logradouro := qryEmpresaendereco.AsString; Boleto.Cedente.NumeroRes := qryEmpresanumero.AsString; Boleto.Cedente.Bairro := qryEmpresabairro.AsString; Boleto.Cedente.Cidade := qryEmpresacidade.AsString; Boleto.Cedente.UF := qryEmpresauf.AsString; Boleto.Cedente.CEP := qryEmpresacep.AsString; Boleto.Cedente.Agencia := qryBancoagencia.AsString; Boleto.Cedente.AgenciaDigito := qryBancodigito_agencia.AsString; Boleto.Cedente.Conta := qryBancoconta_corrente.AsString; Boleto.Cedente.ContaDigito := qryBancodigito_corrente.AsString; Boleto.Cedente.CodigoCedente := qryBancocod_cedente.AsString; Boleto.Cedente.Convenio := qryBancoconvenio.AsString; // segundo o Alan quando é remessa pro Santander é modalidade Boleto.Cedente.Modalidade := QryBancomodalidade.AsString; Boleto.Cedente.CodigoTransmissao := qryBancocod_transmissao.AsString; Boleto.Cedente.Complemento := qryBancocomplemento.AsString; if qryBancotipocarteira.AsString = 'R' then Boleto.Cedente.TipoCarteira := tctRegistrada else Boleto.Cedente.TipoCarteira := tctSimples; if qryBancotipoemissao.AsString = 'B' then Boleto.Cedente.ResponEmissao := tbBancoEmite else Boleto.Cedente.ResponEmissao := tbCliEmite; if qryBancost_emissao.AsString = '2' then Boleto.LayoutRemessa := c240 else Boleto.LayoutRemessa := c400; QryRemessa.First; while not QryRemessa.Eof do begin If QryRemessaselecionar.AsBoolean=true then begin Titulo := Boleto.CriarTituloNaLista; Titulo.CaracTitulo := tcSimples; Titulo.Vencimento := QryRemessadtvencto.AsDateTime; Titulo.DataDocumento := QryRemessadtemissao.AsDateTime; Titulo.NumeroDocumento := QryRemessaid_doc.AsString+'/'+QryRemessaparc.AsString; if qryBancoespeciedoc.AsString <> '' then Titulo.EspecieDoc := qryBancoespeciedoc.AsString; if UpperCase(qryBancobanco_aceite.AsString) = 'S' then Titulo.Aceite := atSim else Titulo.Aceite := atNao; if qryBancotipocobranca.AsString = 'C' then Titulo.CaracTitulo := tcCaucionada else if qryBancotipocobranca.AsString = 'D' then Titulo.CaracTitulo := tcDescontada else if qryBancotipocobranca.AsString = 'V' then Titulo.CaracTitulo := tcVinculada else Titulo.CaracTitulo := tcSimples; Titulo.DataProcessamento := Now; if qryBancotipoemissao.AsString = 'B' then Titulo.CarteiraEnvio := tceBanco else Titulo.CarteiraEnvio := tceCedente; Titulo.Carteira := qryBancocarteira.AsString; Titulo.SeuNumero := StrTamFixo(QryRemessaid_doc.AsString,6,'0')+StrTamFixo(QryRemessaparc.AsString,3,'0'); Titulo.NossoNumero := QryRemessanossonumero.AsString; Titulo.ValorDocumento := QryRemessasaldo.AsFloat; Titulo.Sacado.NomeSacado := QryRemessanome.AsString; if Length(QryRemessacgc_cpf.AsString) = 14 then Titulo.Sacado.Pessoa := pJuridica else Titulo.Sacado.Pessoa := pFisica; Titulo.Sacado.CNPJCPF := QryRemessacgc_cpf.AsString; if QryRemessaendereco_cobranca.AsString <> '' then //o cliente preencheu informou o endereço de cobrança begin Titulo.Sacado.Logradouro := QryRemessaendereco_cobranca.AsString; Titulo.Sacado.Numero := QryRemessanumero_cobranca.AsString; Titulo.Sacado.Bairro := QryRemessabairro_cobranca.AsString; Titulo.Sacado.Complemento:= ''; Titulo.Sacado.Cidade := QryRemessacidade_cobranca.AsString; Titulo.Sacado.UF := QryRemessauf_cobranca.AsString; Titulo.Sacado.CEP := QryRemessacep_cobranca.AsString; end else begin Titulo.Sacado.Logradouro := QryRemessaendereco.AsString; Titulo.Sacado.Numero := QryRemessanossonumero.AsString; Titulo.Sacado.Bairro := QryRemessabairro.AsString; Titulo.Sacado.Complemento:= ''; Titulo.Sacado.Cidade := QryRemessacidade.AsString; Titulo.Sacado.UF := QryRemessauf.AsString; Titulo.Sacado.CEP := QryRemessacep.AsString; end; Titulo.LocalPagamento := qryBancolocal_pagamento.AsString; // calculos de juros If QryBancoperc_juros_dia.AsFloat>0 then begin Titulo.ValorMoraJuros := RoundTo((QryBancoperc_juros_dia.AsFloat/100)*qryRecebersaldo.AsFloat ,-2); Titulo.DataMoraJuros := qryReceberdtvencto.AsDateTime; end; // multa If QryBancoperc_multa.AsFloat>0 then begin Titulo.PercentualMulta:=QryBancoperc_multa.AsFloat; end; // protesto If QryBancoprotestar.AsBoolean then begin Titulo.DataProtesto:=qryReceberdtvencto.AsDateTime+QryBancodias_protesto.AsInteger; end; //Titulo.Mensagem.Text := edtMensagemAdicionalBoleto.Text; //qryEmpresamensagem_boleto.AsString; Titulo.Instrucao1 := qryBancointrucao1.AsString; Titulo.Instrucao2 := qryBancointrucao2.AsString; end; GRATO
  13. Ola boa noite. Depois que eu atualizei o acbr pelo trunk2 minha rotina de remessa para o Santander nao esta mais sendo aceito pelo banco. Segundo a rejeição a codigo de baixa/devolucao esta preenchido como 2 para nao baixar porem na posicao 226/227 esta sendo preechido valores diferentes de zero, segundo o banco eu devo preencher com 00. Qual propriedade do componente que se refere a esta campo?? Grato
  14. Como eu faço para pegar o codigo da ocorrencia do retorno no layout 240. Eu consigo saber que houve uma rejeicao , mas nao tenho o motivo da rejeicao. GRATO.
  15. Otimo era isto mesmo que eu precisava. Muito grato amigo Sergio
  16. Ola boa tarde. Eu preciso saber qual a finalidade da propriedade monitorar do componente acbrbal. Grato
  17. Ola Regis, eu migrei pro Seatle e achei bugs de grid, e alguns outros
  18. Ola bom dia a todos Instalei o acbr trunck2 no DELPHI SEATLE, ao rodar minha aplicacao ele abre a unit ACBrDFeConfiguracoes e mostra que o DFeUF[24] e DFeUFCodigo[24] nao foi declarado. veja abaixo: { TWebServicesConf } constructor TWebServicesConf.Create(AConfiguracoes: TConfiguracoes); begin inherited Create(AConfiguracoes); FConfiguracoes := AConfiguracoes; FParams := TStringList.Create; FUF := DFeUF[24]; FUFCodigo := DFeUFCodigo[24]; FAmbiente := taHomologacao; Grato a todos.
  19. Ola eu fiz exatamente isto, e nao funcionou, Ai cansado de tentar e com urgencia de entregar os projetos eu desinstalei o acbr trunk2 e voltei pro trunk e ai tudo voltou ao normal. Entao deve ser algum problema com o trunk2 Grato
  20. Ola boa tarde Eu fiz o segunte agora, desintalei o ACBR trunk2 e voltei pro trunk, ai minha aplicacao compilou normalmente. Entao nao consigo compilar a aplicacao pro trunk2 Grato
  21. Ola bom dia Juliomar. Eu fiz o procedimento e continuou a menssagem do Too many resources to handle. Compilation failure Ai notei que isto estava dando ao tentar compilar o pacote AcbrSatExtratoExcPos, ai eu desmarquei este componente e tudo ficou instalado e maravilhoso. Porem agora ao abrir meu projeto ele nao compila e dá o mesmo erro de RLink32.dll, pesquisando nos foruns achei que é recomendado copiar a RLink32.dll do Delphi 2010 para cima do D7, Porem mesmo assim nao compila meu sistema, agora fiquei desesperado pois preciso entregar pros meus clientes. Grato
  22. Ola boa tarde amigos. Estou instalando o acbr no delphi 7, ja instalei o fortes e o fast, porem durante a instalacao pelo acbrinstall esta ocorrendo o seguinte erro: Error: RLINK32: Too many resources to handle. Compilation failure Alguem poderia me ajuda Grato
  23. Bom dia Galera, Professor, voce poderia nos passar quais testes que voce fez? Estou passando pelo mesmo problema de erro de Código de Ativação Inválido. Executei todas as dicas citadas acima, porém nada resolveu o erro. Poderia nos ajudar?
  24. Ola bom dia. Estou com problema para ativar o ECF quando a impressora está na USB. Neste cliente atual estamos tentando ativar a Bematech 2100 na USB. Eu escolhi a impressora e porta=USB aparece a mensagem que esta impressora requer porta COMx...... Grato
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.