Rodrigo Cunha
Membros Pro-
Total de ítens
31 -
Registro em
-
Última visita
Sobre Rodrigo Cunha
Contact Methods
-
Website URL
www.sistemassuper.com.br
Últimos Visitantes
881 visualizações
Rodrigo Cunha's Achievements
-
Instalação delphi windows server
um tópico no fórum postou Rodrigo Cunha Object Pascal - Delphi & Lazarus
Boa tarde! Consigo instalar o delphi 10.4 por ex em um TS e abrir + de 1 usuário? -
Execute Block no delphi
Rodrigo Cunha replied to Rodrigo Cunha's tópico in Object Pascal - Delphi & Lazarus
Eu estou usando delphi 7 com dbexpress. Pode ser isso? tem alguma forma? -
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;
-
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.
-
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.
-
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?
-
Reestruturar updates do formato OldSetClauseSemantics = 1 para sql padrao.
um tópico no fórum postou Rodrigo Cunha Banco de Dados
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. -
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.
-
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.
-
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.
-
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.
-
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.
-
Ação Judicial Embarcadero
Rodrigo Cunha replied to Rodrigo Cunha's tópico in Object Pascal - Delphi & Lazarus
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. -
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.