Alberto Mota

Prezados colegas, ao receber um arquivo retorno não estou conseguindo fazer o devido tratamento Na linha abaixo: 104000000000115012010000010085 A posição de 13 a 21 é data e de 22 a 30 é o valor Sendo que o valor ele entende como 10085,00. E não como 100,85 Como fazer esse tratamento para as casas decimais? E também para as datas? Mais uma vez agradeço de antemão.

Jhonas, mais uma vez obrigado. O link indicado de fato resolveu meu problema. Feliz Natal a voce e sua familia. Feliz Natal a todos do forum!

Prezados colegas, Utilizo o Delphi 7 e o rave 5. Gostaria de colocar no Rave um datafield invisivel, caso seu valor seja igual a 0. Desde já agradeço a atenção.

O código do Jhonas esta correto. Fiz algumas alterações, pois o banco de dados é o sql server E muito me ajudou, pois há tempos busco um código de pesquisa incremental. Eis o código: QueryAssociados.Close; QueryAssociados.SQL.clear; QueryAssociados.SQL.Add('SELECT * from TblAssociados where nomeassociado like :nome'); QueryAssociados.Parameters.ParamByName('nome').Value := '%' + Edit4.text + '%'; QueryAssociados.Open;

Olha, pelo conceito de front_end e back_end o banco tem que estar fechado sim, ou seja, a base de dados que são as tabelas propriamente ditas são o back_end. Precisam estar fechadas para um backup seguro No seu front_end é que deve fazer o seu backup.

Parece que era óbvio a solução do meu problema. E muito simples aliás. Faltou fuçar o relatório em pdf. A configuração do papel deve ser em A4, o padrão era Carta. Parte da solução. Na propriedade redimensionamento de pagina o padrão é: Reduzir para a area de impressão Alterando para Nenhum, tem-se a impressão normal. Mais simples impossivel. Um abraço a todos

Prezados colegas, estou usando o rave 5 e na visualização de um relatório exportado para pdf. A visualização esta de acordo, porem quando se imprime a margem inferior fica muito grande. Acho estranho esse comportamento, já refiz o componente region e o databand, bem como o tamanho A4. Como faço que a impressão seja tal qual a visualização? Desde já obrigado.

Fulvio, voce tem razão. O retorno foi o esperado (2). Agradeço ao Kuroi também voces estavam certos. Criei uma nova função ModuloCob colocando 24 como base. Fico imensamente grato a ambos. Amanhã deve vir a resposta da analise de 3 boletos. Acredito que o DV Geral se der problemas, farei as devidas adptações. Segue o select completo: SELECT associado, baseseq, BaseCobranca, dbo.ModuloCob(SUBSTRING(BaseCobranca, 0, 25)) AS DvCobranca, DVGeral, CodigoDebarras, '3569' + SUBSTRING(CodigoDebarras, 20, 5) AS BCampo1, dbo.Modulo10('3569' + SUBSTRING(CodigoDebarras, 20, 5)) AS DVCampo1, SUBSTRING(CodigoDebarras, 25, 10) AS BCampo2, dbo.Modulo10(SUBSTRING(CodigoDebarras, 25, 10)) AS DVCampo2, SUBSTRING(CodigoDebarras, 35, 10) AS BCampo3, dbo.Modulo10(SUBSTRING(CodigoDebarras, 35, 10)) AS DVCampo3, exercicio, dtvcto, dtproc, vr, seq, Codigo, Carteira, Agencia, Cedente, DvCedente FROM dbo.QryBoletosMovR3 Um abraço. Sucesso!

Não, Kuroi, não alterou em nada. Continua retornando 8. Obrigado pela atenção. Um abraço.

Bom Pessoal estou quebrando a cabeça e não consigo a solução para calcular o digito de cobrança do Banco Real. Uso o sql server express 2005. Ele é composto por 24 numeros 13 do nosso numero + agencia(4) e conta(7) Se colocar assim: dbo.modulo10('000000001567601401736863') Ele me retorna o correto que é 2 Se colocar dbo.Modulo10(SUBSTRING(BaseCobranca, 0, 24)) AS DvCobranca retorna 8 O campo BaseCobranca é a união dos 3 campos que são alfanuméricos. Se alguém puder me auxiliar fico imensamente grato.

Nicolas, não há muito segredo. Varia muito de empresa para empresa. E depende da complexidade da regra de negócio. Para um controle simples de Contas a Pagar seria: Data de lançamento: Fornecedor: Numero do Documento: Valor: Data Vencimento: Data Pagamento: Valor Pago: Juros: No Contas a Receber coloco na venda e o usuário parcela as vendas, originando assim o Contas a Rceber: Campos: Data Venda: Cliente: Numero Venda: Vendedor: Tipo da Venda: Boleto, Carteira, Cheque Onde teria uma Tabela que normalmente chamo Duplicatas que se relaciona com as Vendas CodDupl: Auto-Numeração VendaBase: Se relaciona com a chave primária da tabela vendas ValorReceber DtVcto DtPgto Valorpago: Essa última tabela é o contas a receber de fato, o relacionamento deve ser bem estruturado. É regra básica para um controle confiável. Crio um form para quitação onde se escolhe o usuário e suas pendencias filtrando a Data de Pagamento que esteja nula, sem informação. Espero ter ajudado. Um abraço.

Jhonas, obrigado por responder. Vou verificar os links que indicou. Um abraço.

Há pouco tempo solicitei ajuda ao forum sobre impressão de boleto no Rave. Não estava definitivamente resolvido. Acredito que a solução esteja na fonte utilizada. Após pesquisar me deparei com fontes true type para boletos. Os boletos impressos estão saindo realmente estranhos, muito escuros e isso no modo econômico. Coloquei a fonte Arial, 10. Estou usando o rave 5 no Delphi 2005 Se alguém puder me orientar ficarei grato. Onde consigo essa fonte? Um abraço.

Use um radiogroup. O usuário irá escolher o relatório. O código fica num único button. case radiogroup1.ItemIndex of 0:Begin ADOStoredProc3.close; ADOStoredProc3.Parameters.ParamByName('@codi').Value := StrToInt(edit1.Text); ADOStoredProc3.Parameters.ParamByName('@codf').Value := StrToInt(edit2.Text); ADOStoredProc3.Parameters.ParamByName('@exerc').Value := StrToInt(edit4.Text); ADOStoredProc3.open; ADOStoredProc3.active := true; RvSystem2.DefaultDest:= rdFile; RvSystem2.DoNativeOutput := false; RvSystem2.RenderObject :=rvRenderPDF1; RvSystem2.OutputFileName:= 'C:\Boletos\BoletoSindicalFiltro.pdf'; //caminho onde vai gerar o arquivo pdf RvSystem2.SystemSetups:= RvSystem2.SystemSetups -[ssAllowSetup]; RvBoleto.ProjectFile := 'C:\GSind\ReimprimeBoleto.rav';//Local que coloquei o rav como exemplo RvBoleto.Engine:= RvSystem2; RvBoleto.SelectReport('Report1', True); // nome do page no rav criado RvBoleto.ExecuteReport('ReimprimeBoleto'); // nome do *.rav RvBoleto.SetParam('obs', Memo1.Text); RvBoleto.Execute; statusbar1.Panels[0].Text := 'Total de registros: '+ IntToStr(ADOStoredProc3.Recordcount); end; 1: Begin ADOStoredProc1.close; ADOStoredProc1.Parameters.ParamByName('@codi').Value := StrToInt(edit1.Text); ADOStoredProc1.Parameters.ParamByName('@codf').Value := StrToInt(edit2.Text); ADOStoredProc1.open; ADOStoredProc1.active := true; RvSystem1.BaseReport.ShowPrinterSetupDialog; Rvproject1.Execute; end; Um abraço

Estava com esse problema hoje. Coloquei na propriedade DisplayFormat do AdoTable dd/mm/yyyy e resolveu. Um abraço.

Coloque seu email que envio o driver do mysql para você. Conectei sem problemas. É bastante simples.

Não, é um AdoTable da palheta ADO. Nessa situação o banco de dados é o Access. Mas utilizo também para Sql Server.

Oi, uso esse código. Deve ser o que precisa. Um abraço. procedure TFrmVendas.btn_IncluirClick(Sender: TObject); var cod : integer; begin vendas.last; cod := vendas.fieldbyname('NumeroPedido').asinteger; vendas.insert; vendas.fieldbyname('NumeroPedido').asinteger := cod + 1; vendas.fieldbyname('Operação').asinteger := 2; vendas.fieldbyname('Tp').asinteger := 1; Dt.value := date; DBLookupComboBox1.setfocus; vendas.edit; end;

Jhonas, obrigado pela ajuda inestimável. Muito sucesso e paz a sua familia. Um abraço.

Jhonas, acabei insistindo mais um pouco e consegui parcialmente a leitura. Ela leu esses números abaixo e não configurei nada. O que é melhor é que o boleto do meu sistema(Bradesco), uma quantidade maior de caracteres foi lido. O do Caixa e Brasil apenas 8 caracteres Numeração lida e correta: 2379544360000091618128 São 22 numeros. Estou na direção certa, então. Bom, Jhonas então o teste mesmo não capturando todas as 44 posições, posso considerar como um sucesso! O resto confronto o Bradesco. Valeu a atenção. Só gostaria de sua opinião final. Um abraço.

Jhonas a leitora só leu apenas códigos com 13 números. Tentei com vários boletos. Do meu sistema e outros que considero válidos, enviados pelo Banco. Não acontece nada. Acredito que a leitora não é calibrada para numeros altos, iguais aos do boleto. Um abraço.

Entendi Jhonas, uma leitora simples não será dificil conseguir emprestada. Tenho um sistema numa locadora de vídeos aqui perto de casa. Interessante que vejo sim como o início de uma solução. Amanhã mesmo já farei isso. E te dou um retorno. Muitíisimo obrigado. Sucesso à você!

Jhonas, agradeço a resposta. Teve um post que alguém falava sobre você(muito bem, claro). E percebi que de fato é verdade. você está presente em quase todas as dúvidas apresentadas. Mas confesso que ainda continuo sem rumo. Pensei que o componente do rave 2 de 5 não precisasse fazer nada a não ser ligar ao campo correto. A leitora que você fala no word como vou fazer? Não a tenho. Um amigo bancário hoje ainda me disse que quase todas as leitoras do Unibanco não lêem o código de barras. O caixa tem que digitar mesmo a linha digitável do boleto. "O tamanho do campo do Código de Barras é de 46 posições, sendo 44 para conteúdo dos dados mais 2 Bit’s, 1 de Start e outro de Stop" Onde coloco isso? Mais uma vez, agradeço a atenção. Um abraço.

Prezados colegas, foi enviado para homologação do Bradesco um boleto de um sistema meu desenvolvido em Delphi 7 com sqlServer. O boleto foi rejeitado porque a leitora não leu o código de barras. Coloquei 2 de 5 intercalado e conectei ao campo que continha as 44 posições. Verifiquei depois que a largura não era de 103mm conforme o manual. Estava com 100mm e a altura um pouco maior, 15mm, quando o padrão seria 13mm Será que foi por isso que a leitora não leu? Coloquei na fonte Arial 9. Eles falaram também sobre a fonte. O fator fonte também influenciou no problema? Desde já agradeço a ajuda.

Bicicleta, agradeço a atenção. Sucesso para você!!! Se houver mais alguma coisa darei um retorno.