Jump to content

LUMORAES

Membros
  • Posts

    52
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

LUMORAES's Achievements

Enthusiast

Enthusiast (6/14)

  • Conversation Starter
  • First Post
  • Collaborator Rare
  • Week One Done
  • One Month Later

Recent Badges

0

Reputation

1

Community Answers

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