Rodrigo Cunha
Membros Pro-
Total de ítens
31 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Tudo que Rodrigo Cunha postou
-
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.
-
INABILITAR PROCEDURE AO CONECTAR FIREBIRD
Rodrigo Cunha replied to Rodrigo Cunha's tópico in Banco de Dados
Colocar no Additional no ibexpert isc_dpb_no_db_triggers -
Tenho um banco pra conectar, mas executa uma procedure de segurança. Eu gostaria de desabilitar todas as procedures ou triggers na conexão. Utilizo dbexpert para conectar. Obg
-
DistribuicaoDFePorChaveNFe Demora baixar
Rodrigo Cunha replied to Rodrigo Cunha's tópico in ACBrMonitorPLUS
Baixei a ultima versão e otimizei a consulta. Melhorou. Obg -
Boa tarde! Utilizo o MonitorPlus para fazer downloads das nfes dos meu clientes. Tendo fazer o download com o comando: NFe.DistribuicaoDFePorChaveNFe(33,30927153000140,33180910243792000189550010000379701000800604). Caso não localize envio o evento 210200 Confirmação de Recebimento e depois de 8segundos executo o comando NFe.DistribuicaoDFePorChaveNFe. Desde que atualizei o monitor plus para versao 1.2.xxx estou com dificuldades de fazer os downloads, pois poucas vezes o processo ocorre de forma sequencial. E muitas vezes demora minutos para conseguir fazer o download. Há alguma configuração específica para melhorar esse processo?
-
ACBrMonitor Plus com mais de um cnpj
Rodrigo Cunha replied to Ronei Marcos Heck's tópico in ACBrMonitor PLUS
Eu utilizo colocar em pastas diferentes. -
Erro no acbrmonitorplus - envio de nfe para sefaz
Rodrigo Cunha replied to Rodrigo Cunha's tópico in ACBrMonitor PLUS
Na verdade eu ja crio o xml e passo os comandos: NFE.ASSINARNFE("caminho do xml'); NFE.VALIDARNFE("caminho do xml"); NFE.ENVIARNFE("caminho do xml",1,1,1); A Assinatura é preenchida pelo retorno do xml. Segue o primeiro xml gerador e o segundo como retorno após os comandos acima. 33180108529764000180550010000001411134162929-nfe.xml 33180108529764000180550010000001411134162929-nfe apos o retorno.xml -
Erro no acbrmonitorplus - envio de nfe para sefaz
um tópico no fórum postou Rodrigo Cunha ACBrMonitor PLUS
Atualizei para a versão ACBrMonitorPLUS-1.1.0.50 e está retoroando o seguinte erro. Não consegui literatura sobre isto que me ajudasse. E em versões anteriores o erro é outro, então acredito que tenho que funcionar nas versões atuais. ERRO: Falha na validação dos dados da nota: 141 1871 - Element '{http://www.w3.org/2000/09/xmldsig#}Signature' 33180108529764000180550010000001411191446450-nfe.xml -
Bom dia! Como o próprio título questiona gostaria de saber como saber se as notas de entrada foram manifestadas. Estou utilizando o método NFe.DistribuicaoDFePorUltNSU ou NFe.DistribuicaoDFe para verificas as notas emitidas para o cnpj do cliente. Nos retornos não identifiquei os eventos de ciência ou confirmação da operação. Tem algum outro método? Como baixar os eventos dessas notas? Att, Rodrigo Cunha.
-
AcbrMonitorPlus 1.1.0.14 problema infNFeSupl/Signature
um tópico no fórum postou Rodrigo Cunha ACBrMonitorPLUS
Boa tarde! Após atualizar o acbrmonitorplus para 1.1.0.14 ocorre a seguinte mensagem: Content for element '{http://www.portalfiscal.inf.br/nfe}NFe' is incomplete according to the DTD/Schema. Expecting: {http://www.portalfiscal.inf.br/nfe}infNFeSupl, {http://www.w3.org/2000/09/xmldsig#}Signature. Dei uma lida no forum e passei a assinar antes de validar, mas não segue. Gostaria de saber qual procedimento devo fazer?