Jump to content

Rodrigo Cunha

Membros Pro
  • Posts

    31
  • Joined

  • Last visited

About Rodrigo Cunha

Contact Methods

  • Website URL
    www.sistemassuper.com.br

Recent Profile Visitors

748 profile views

Rodrigo Cunha's Achievements

Contributor

Contributor (5/14)

  • Dedicated Rare
  • First Post
  • Collaborator Rare
  • Conversation Starter
  • Week One Done

Recent Badges

4

Reputation

2

Community Answers

  1. Boa tarde! Consigo instalar o delphi 10.4 por ex em um TS e abrir + de 1 usuário?
  2. Eu estou usando delphi 7 com dbexpress. Pode ser isso? tem alguma forma?
  3. Bom dia! Eu ainda não consegui entender como coloco um parâmetro em uma query no delphi para executar o comando: Gostaria de passar a data para executar o comando. Obg. Execute Block (dtvencto timestamp = ?data) as begin Update Titulo_Receber Set vlr_multa = Case When dt_vencto < Cast(:dtvencto as date) Then (vlr_nominal - Coalesce(vlr_desc,0)) * (Select First 1 coalesce(l.pct_multa,0) From Loja l Where Titulo_Receber.cd_emp = l.cd_emp and Titulo_Receber.cd_loja = l.cd_loja)/100 Else 0 End, pct_juros = (Select first 1 l.pct_juros_mes From Loja l Where Titulo_Receber.cd_emp = l.cd_emp and Titulo_Receber.cd_loja = l.cd_loja), vlr_juros = (vlr_nominal - Coalesce(vlr_desc,0)) * ((((Select First 1 l.pct_juros_mes From Loja l Where Titulo_Receber.cd_emp = l.cd_emp and Titulo_Receber.cd_loja = l.cd_loja)/30)/100) * (Cast(:dtvencto as date) - Cast(dt_vencto as date))) Where cd_emp > 0 and cd_loja > 0 and status = 'A' and dt_vencto <= Cast(:dtvencto as date) and dt_vencto <= cast(current_timestamp as date); Update Titulo_Receber Set vlr_saldo = vlr_nominal - Coalesce(vlr_pago,0) - Coalesce(vlr_desc,0) + Coalesce(vlr_multa,0) + Coalesce(vlr_juros,0) Where cd_emp > 0 and cd_loja > 0 and status = 'A' and dt_vencto <= Cast(:dtvencto as date) and dt_vencto <= cast(current_timestamp as date); end;
  4. Não sei a a dúvida seria aqui, mas... É que pesquisei e o parâmetro do execute block é ? e no delphi é : Quando coloco da forma acima no delphi dá um erro na hora da execução. Queria saber qual a forma pra eu colocar execute block pra funcionar numa query do delphi passando parâmetro de entrada.
  5. Olá. Estou reestruturando meus updates e preciso executar vários em um bloco apenas. Me deparei com um problema referente a parâmetros no execute block. Ex: Execute Block (dtvencto timestamp = :data) as begin Update Titulo_Receber Set vlr_multa = vlr_nominal * 0.02, vlr_juros = vlr_nominal * 0.05 Where dt_vencto <= Cast(:dtvencto as date); Update Titulo_Receber Set vlr_saldo = vlr_nominal - Coalesce(vlr_pago,0) - Coalesce(vlr_desc,0) + Coalesce(vlr_multa,0) + Coalesce(vlr_juros,0) Where dt_vencto <= Cast(:dtvencto as date); end; Não está funcionando claro. Mas como eu passa um parâmetro pelo delphi pra funcionar o execute block? Obg pela ajuda.
  6. Boa noite! A minha questão era se realmente não havia uma forma de preservar meus updates, pois estão todos naquele formato. Terei que alterar todos em meu sistema para adequar no padrão sql. Infelizmente terei muita dificuldade de ir para o Firebird 3. Obg pelas informações.
  7. Obg pelo retorno. Vamos lá. Criei uma tabela temporaria com o nome: Create Table lixo_teste (cd_prod integer, vlr_01 numeric(9,2), vlr_02 numeric(9,2), vlr_03 numeric(9,2)). Ai eu uso o update pra pegar o valor maximo de uma coluna de outra tabela e colocar no vlr_01, depois eu pego o campo vlr_01 diminuo 1 e atribuo ao campo vlr_02 e a mesma coiasa com o campo vlr_03. Então ficaria assim cd_prod vlr_01 vlr_02 vlr_03 000001 10,00 9,00 8,00 000002 15,00 14,00 13,00 Como o vlr_01 é de um select max... eu uso o resultado dentro da mesma update para compor os campos vlr_02 e vlr_03. No firebird 2.5 eu utilizada o OldSetClauseSemantics = 1 , mas no firebird 3 não há essa possibilidade. Eu queria entender se no update eu não consigo mesmo utilizar o resultado de uma campo para ser utilizado em outro, no caso, no mesmo comando: update lixo_teste vlr_01 = 10, vlr_02 = vlr_01 -1, vlr_03 = vlr_02 - 1. Neste exemplo não fica 10 - 9 - 8 o resultado e sim 10 -1 -1. Se eu quiser aproveitar a informação eu devo colocar no execute block o update lixo_teste set vlr_01=10. depois update lixo_teste vlr_02 = vlr_01 - 1.... Ou tem alguma outra forma de eu aproveitar minha lógica?
  8. Olá a todos! Eu utilizo o firebird 2.5 com a opção OldSetClauseSemantics = 1. Ex: update lixo_teste set vlr_01 = (select max(prc_venda) from produto_empresa pe where cd_loja=2 and lixo_teste.cd_prod = pe.cd_prod), vlr_02 = vlr_01 - 1, vlr_03 = vlr_02 - 1 where exists (select * from produto_empresa pe where cd_loja=2 and lixo_teste.cd_prod = pe.cd_prod); Utilizo muito a recuperação do valor da coluna 1 em outras colunas. Como as novas versões do firebird não tem essa opção, terei que reescrever todos os meus updates? Como ficaria? um exemplo pv. Tenho que ficar repedindo o select max... nas outras colunas pra obter o valore necessário? Tenho subselects grandes, seria uma grande mudança. Preciso de sugestões e/ou esclarecimentos. Obg.
  9. Eu tb estou com o mesmo erro e faço uma consulta a cada click no botão. Depois do primeiro click fico recebendo essa mensagem. Não é consumo indevido.
  10. Bom dia! Eu nunca fiz um consumo API/Json/Webservice e estou a procura de um curso/video ou ajuda de passo a passo sobre o assunto. Estou pesquisando e não estou encontrando um curso mais extensivo e explicativo sobre os assuntos. Alguém tem um dica onde encontro esse material? Pago ou gratuíto. Obg.
  11. Boa tarde! Eu estava passarndo nro_tit / nro_parc no numero do documento. como não tinha o numero da parcena ficava nro_tit/.pdf ocorrendo o erro. Ajustei, obg.
  12. Bom dia! Eu informando o não o nome do arquivo ele completa o nome boleto_nrobol\.pdf. Gerando o erro. Só acontece quando utilizo listadeboletos para gravar o pdf.
  13. Quando executo a lista, mesmo passando o nome do arquivo e/ou a pasta ele coloca nome + \.pdf gerando o erro, Não entendi onde posso mexer e resolver.
  14. Eu agradeço, pois não quero realmente utilizar sem licença. A única que estou utilizando para estudos é a community. Eu estou programando a compra do professional em novembro quando acaba o parcelamento do PDV do Regys. Ja disse tudo isso no email, mas não aceitaram.
  15. Olá, recebi um telefonema da área jurídica da embarcadero alegando que eu instalei um trial do rad studio e que a licença não retornou e estou entrando com uma ação judicial contra mim. Eu aleguei que tenho sim, o delphi community e que tenho interesso do professional. Posso ter instalado esse trial, mas nunca compilei um programa nele. A pessoa não quis discussão e retornou um email que irá prosseguir com a ação judicial. Já liguei na área de vendas e não podem ajudar. Alguém ja passou por isso aqui? Como resolveu? Obg.
×
×
  • 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.