Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

Actividade Recente

Esta stream actualiza-se automaticamente     

  1. Última Hora
  2. Boa tarde, Gostaria de pedir ajudar, sendo eu um novato em Excel. Gostaria de criar um ficheiro de entradas, por exemplo: Entrada tipo 1 Entrada Tipo 2 Entrada Tipo 3 Entrada Tipo 4 estas entrada estariam identificadas por botões e ao clicarem, essa entrada apareceria numa base de dados (numa folha anexa),com as seguintes informações: Tipo de entrada, hora e data. Alguém me pode dar uma dica como iniciar ou onde poderei procurar algo semelhante para poder adaptar? cumprimentos
  3. Hoje
  4. Formulário autocomplete com PDO

    Olá, M6. Tenho um formulário com 9 campos, 3 dos quais gostaria de colocar esta funcionalidade acima descrita. Esses 3 campos são nome da empresa, NIF e morada. A intenção seria ao começar a preencher o nome da empresa no campo do nome da empresa, por exemplo, quando o utilizador tivesse escrito 2 ou 3 letras do nome que pretendia colocar, iriam aparecer sugestões, como numa pesquisa do Google. Quando o utilizador selecionasse o que pretendia, os campos do NIF e morada iriam ser preenchidos automaticamente, de acordo com os dados que existem numa tabela MySQL.
  5. Formulário autocomplete com PDO

    O que queres dizer com fazer referência a vários campos ao mesmo tempo?
  6. Bem me parecia que devia ter aprendido alemão
  7. Formulário autocomplete com PDO

    Olá, Estava a tentar fazer um formulário com autocomplete em vários campos. Como nunca tinha feito nada igual, tentei pesquisar na internet. O problema é que não encontrei um tutorial com PDO e que faça referência a vários campos ao mesmo tempo. E também como a minha experiência com PDO é quase nula, não será muito indicado estar a tentar ver estes tutoriais, já que é muito provável que... não corra de feição! O único tutorial mais parecido que encontrei foi este: http://www.smarttutorials.net/jquery-autocomplete-multiple-fields-using-ajax-php-mysql-example/ Se alguém já fez formulários destes com PDO, agradecia uma ajudinha! mikeysantana
  8. excel Substituir Letra Excel

    Alguém para dar uma ajudinha???
  9. Ontem
  10. [PHP] Obter hora e data

    Boa noite, Precisava de uma ajuda relacionada com este tópico. Necessitava que o mês viesse escrito por extenso (ex: Janeiro, Fevereiro, etc). setlocale(LC_TIME, 'Portuguese_Portugal'); $month = strftime('%B'); Neste momento estou a utilizar este código no entanto os meses continuam aparecer em Inglês (ex: September). Será que alguem me podia ajudar com esta questão? Obrigado Já está resolvida a minha questão obrigado.
  11. Forçar require em display:none

    Podes adicionar o atributo required a qualquer uma das tags input (ou a todas, como recomendado na especificação do HTML5).
  12. Fonte: https://arstechnica.com/gadgets/2017/09/devops-and-data-science-are-the-big-software-dev-money-makers/
  13. Famalicão Extreme Gaming

    Prémios: 1º - 350,00€ (em vale de compras) 2º - Óculos VR 3º - Experiência de Karting no Indoor Karting Famalicao Regras Gerais: INSCRIÇÕES GRATUITAS!! Plataforma - PS4 Horário: Sábado (7 de Outubro) ás 11:00 Inscrições: São efetuadas no local antes do torneio iniciar Limite de 32 participantes. Regras Jogo: Torneio em double elimination Cada ronda têm 60 segundos Cada set é jogado à melhor de 3 combates, cada combate é à melhor de 5 rondas. O vencedor de um combate (dentro do mesmo set) deve manter a mesma personagem, o perdedor pode mudar. Seleção de cenário: aleatória. Personagens banidas: nenhuma Cenários banidos: nenhum
  14. Como fazer transação commit e rollback?

    Bom dia meus caros. Preciso de uma ajuda de como usar o comando Transações commit e rollback no ciclo for. Abaixo mando as Instruções. For I = 0 To GridViewRegularizar.SelectedRowsCount() - 1 If GridViewRegularizar.IsRowSelected(hitInfo.RowHandle) Then Rows.Add(GridViewRegularizar.GetDataRow(GridViewRegularizar.GetSelectedRows()(I))) End If Next For I = 0 To Rows.Count - 1 Dim Row As DataRow = CType(Rows(I), DataRow) Dim vMovId As Integer = Row("MovId") & vbNewLine Dim vFamId As Integer = Row("FMId") & vbNewLine Dim vFamNome As String = Row("FMNome") & vbNewLine Dim vNdoc As Integer = Row("NDOC") & vbNewLine 'NDoc Dim vNMov As Integer = Row("NMOV") & vbNewLine Dim vMes As Integer = Row("Mes") & vbNewLine Dim vAno As Integer = Row("Ano") & vbNewLine Dim vDiaMulta As Integer = GridViewRegularizar.GetRowCellValue(I, "DIASMULTA") Dim vToTaCRMB As Integer = Row("TOTCRMB") & vbNewLine Dim vToTaCRMS As Integer = Row("TOTCRMS") & vbNewLine Dim vPerMulta As Integer = GridViewRegularizar.GetRowCellValue(I, "PERCMULTA") Dim vDatMov As Date = GridViewRegularizar.GetRowCellValue(I, "DataMov") Dim VMULTAMB As Integer = GridViewRegularizar.GetRowCellValue(I, "VMULTAMB") Dim vValorReal As Integer = Row("VALORIGA") & vbNewLine Dim VMULTAMS As Integer = GridViewRegularizar.GetRowCellValue(I, "VMULTAMS") vDIVIDMB = GridViewRegularizar.GetRowCellValue(I, "FALTAPAGAR", Nothing) vDIVIDMS = vDIVIDMB / vCambio Dim vOperacao As String vAnoMov = vAno '############################################################ Regulariza Recibo ######################################################################## Dim Cnn As New OleDbConnection(connOracle) Cnn.Open() Dim FullTrans As OleDb.OleDbTransaction = Cnn.BeginTransaction(IsolationLevel.ReadCommitted) ' esta instrução só rola uma vez por ser o recibo If Reci = True Then SQLTR = "INSERT INTO TABRECIBO" SQLTR = SQLTR & "(" SQLTR = SQLTR & " NRecId,ANO,AlunoId,MovimentoId,ReciData,VTMB,VTMS,MoedaId,ForPag,BORD,BORDATA,BORDVALOR,BANCOID,PCEMIT,USERLOG,CodOpe, DataCria" SQLTR = SQLTR & ")" SQLTR = SQLTR & " VALUES (" SQLTR = SQLTR & "" & vNumerador & "," & Year(vDateTabalho) & "," & CInt(TxtProc.Text) & "," & 40 & ", '" & Trim(devolveAMDHM(vDateTabalho, 1)) & "', " SQLTR = SQLTR & "" & TxtPag_MB.Text & ", " & TxtPag_MS.Text & "," If RBtnMB.Checked = True Then SQLTR = SQLTR & "'" & vMBase & "'," Else SQLTR = SQLTR & "'" & vMSuplementar & "'," End If SQLTR = SQLTR & "" & CmbFor_Pagamento.SelectedValue & "," & TxtBorderou.Text & ",'" & Trim(devolveAMDHM(DateBorde.Value, 1)) & "'," & Txt_Valor_Borde.Text & "," SQLTR = SQLTR & "" & CmbBanco.SelectedValue & ",'" & Pcnome & "','" & User_Log & "','" & vOperador & "','" & Trim(devolveAMDHM(vData, 0)) SQLTR = SQLTR & "')" Try comando = New OleDbCommand(SQLTR, connOracle, FullTrans) registrosAfectados += comando.ExecuteNonQuery Catch ex As Exception Reci = False MessageBox.Show("Erro ao efetuar a conexão com a base de dados : " + ex.Message) End Try End If Reci = False '#################################################################################################################################################################### '###################################################################################################################################################################### SQLMT = " INSERT INTO MOVTESOR " SQLMT = SQLMT & "(" SQLMT = SQLMT & " NDOC,NMOV,MovimentoId, ALUID,MES,ANO,SINALID,DATA,CODMB,CODMS,PERCDESC,DESCDBMB," SQLMT = SQLMT & " VAILIQDB,VALLIQDB,MOEDAID,ANOLECTIVOID,VDBMB,VCRMB,CAMBIO,VDBMS,VCRMS,MULTA,PERCMULTA,DIASMULTA,VALMULTAMB,OPER,NRecId,DATRECI," SQLMT = SQLMT & " NOMEPC,LOGUSER,CodOpe, DataCria" SQLMT = SQLMT & ")" SQLMT = SQLMT & "VALUES (" SQLMT = SQLMT & vNdoc & "," & vNMov & "," & 40 & "," & CInt(TxtProc.Text) & "," & vMes & "," & vAno & ",'" & vCed & "'," SQLMT = SQLMT & "'" & Trim(devolveAMDHM(vDatMov, 0)) & "','" & vMBase & "','" & vMSuplementar & "'," & 0 & "," & 0 & "," SQLMT = SQLMT & "" & CInt(vValorReal) & "," & CInt(vToTaDBMB) & "," If RBtnMB.Checked = True Then SQLMT = SQLMT & "'" & vMBase & "'," Else SQLMT = SQLMT & "'" & vMSuplementar & "'," End If If vMBase = "Akz" And vMSuplementar = "USD" Then vOperacao = "/" ElseIf vMBase = "USD" And vMSuplementar = "Akz" Then vOperacao = "*" End If SQLMT = SQLMT & "" & vAnoLectivo & "," & vToTaDBMB & "," & vToTaCRMB & "," & vCambio & "," & vToTaDBMS & "," & vToTaCRMS & "," & vMULTA & "," SQLMT = SQLMT & "" & vPerMulta & "," & vDiaMulta & "," & VMULTAMB & ",'" & vOperacao & "'," & vNumerador & ",'" & Trim(devolveAMDHM(vData, 0)) & "'," SQLMT = SQLMT & "'" & Pcnome & "','" & User_Log & "','" & vOperador & "','" & Trim(devolveAMDHM(vData, 0)) & "'" SQLMT = SQLMT & ")" 'ACTUALIZAR A TABELA DE NUMERADORES SQLMT2 = "UPDATE TABNUM " SQLMT2 = SQLMT2 & " SET " If CmbMS.SelectedValue = vMBase Then SQLMT2 = SQLMT2 & " NRECIBOMB=" & vNumerador Else SQLMT2 = SQLMT2 & " NRECIBOMS=" & vNumerador End If SQLMT2 = SQLMT2 & " WHERE REGID = 1" 'ACTUALIZAR A TABELA DAS CONTAS CONRRENTES SQLCDOC = " UPDATE C_CDOC " SQLCDOC = SQLCDOC & " SET " SQLCDOC = SQLCDOC & " TOTCRMB=" & CInt(vToTaDBMB) SQLCDOC = SQLCDOC & " ,TOTCRMS=" & vToTaDBMS SQLCDOC = SQLCDOC & " ,PERCMULTA=" & vPerMulta SQLCDOC = SQLCDOC & " ,DIASMULTA=" & vDiaMulta SQLCDOC = SQLCDOC & " ,VMULTAMB=" & VMULTAMB SQLCDOC = SQLCDOC & " ,VMULTAMS=" & VMULTAMS SQLCDOC = SQLCDOC & " WHERE NDOC =" & vNdoc SQLCDOC = SQLCDOC & " AND AluId=" & CInt(TxtProc.Text) SQLCDOC = SQLCDOC & " AND MovimentoId=" & vMovId SQLCDOC = SQLCDOC & " AND MES=" & vMes SQLCDOC = SQLCDOC & " AND ANO=" & vAno 'INSERI REGISTO NA TABELA DO CORPO DO RECIBO SQLTMR = "INSERT INTO TABMOVRECIBO" SQLTMR = SQLTMR & "(" SQLTMR = SQLTMR & " RECIID,AluId,NDOC,ANO,TABMOVID,MES,NMOV,DATAMOV, VALORINAL,VALORMB, VALORMS,CAMBIO,CODMB,CODMS, OPER,PERCMULTA,VMULTAMB,VMULTAMS,DIASMULTA," SQLTMR = SQLTMR & " MOEDAID,DIVIDMB,DIVIDMS,PCEMIT, USERLOG,CodOpe, DataCria" SQLTMR = SQLTMR & ")" SQLTMR = SQLTMR & " VALUES (" SQLTMR = SQLTMR & "" & vNumerador & "," & CInt(TxtProc.Text) & "," & vNdoc & "," & vAno & "," & vMovId & ", " & vMes & "," & 0 & ",'" & Trim(devolveAMDHM(vDatMov, 1)) & "'," SQLTMR = SQLTMR & "" & vValorReal & ", " & CInt(vToTaDBMB) & ", " & vToTaDBMS & ", " & vCambio & ",'" & vMBase & "','" & vMSuplementar & "','" & vOperacao & "'," SQLTMR = SQLTMR & "" & vPerMulta & ", " & VMULTAMB & "," & VMULTAMS & ", " & vDiaMulta & "," If RBtnMS.Checked = False Then SQLTMR = SQLTMR & "'" & vMBase & "'," Else SQLTMR = SQLTMR & "'" & vMSuplementar & "'," End If SQLTMR = SQLTMR & "" & vDIVIDMB & ", " & vDIVIDMS & ",'" & Pcnome & "','" & User_Log & "','" & vOperador & "','" & Trim(devolveAMDHM(vData, 0)) SQLTMR = SQLTMR & "')" Try 'todas estas instruçoes podem rolar + de uma vez '########################################################## comando = New OleDbCommand(SQLMT, connOracle, FullTrans) registrosAfectados += comando.ExecuteNonQuery 'ACTUALIZAR A TABELA DE NUMERADORES comando = New OleDbCommand(SQLMT2, connOracle, FullTrans) registrosAfectados += comando.ExecuteNonQuery 'ACTUALIZAR A TABELA DAS CONTAS CONRRENTES comando = New OleDbCommand(SQLCDOC, connOracle, FullTrans) registrosAfectados += comando.ExecuteNonQuery 'INSERI REGISTO NA TABELA DO CORPO DO RECIBO comando = New OleDbCommand(SQLTMR, connOracle, FullTrans) registrosAfectados += comando.ExecuteNonQuery vValor5 = vAno Catch ex As Exception MessageBox.Show("Erro ao efetuar a conexão com a base de dados : " + ex.Message) Finally FullTrans.Rollback() If connOracle.State = ConnectionState.Open Then Module_GESTPED.DesconectaBanco(VTipBDados) End If End Try End If Next FullTrans.Commit()
  15. Função getSingleValue não funciona como esperado

    Olá, @HappyHippyHippo! Obrigado pela sugestão do código. Já tenho o código funcional! Muito obrigado!
  16. Função getSingleValue não funciona como esperado

    $stmt = $pdo->prepare("SELECT `VerificacaoTipoDocumento` FROM `TiposDocumentos` WHERE `NomeTipoDocumento` = :Nome"); $stmt->bindParam(':Nome', $TipoDoc); $stmt->execute(); $resultSet = $stmt->fetchAll(); if (count($resultSet) != 1) { die("unexpected number of rows : " . count($resultSet)); } $ResultadoTipo = reset($resultSet)['VerificacaoTipoDocumento']; deverá ser algo como isto
  17. Função getSingleValue não funciona como esperado

    A variável $TipoDoc recebe o valor de um dos campos do formulário, neste caso, o nome do Tipo de Documento, uma das colunas da tabela TiposDocumentos da BD. Só quero fazer um SELECT para ele identificar a linha desse Tipo de Documento na coluna NomeTipoDocumento e atribuir à variável $ResultadoTipo, o valor do campo da coluna VerificacaoTipoDocumento na mesma linha. Na BD, esta coluna apenas toma valores de Sim ou Não. Desta vez, não segui tutorial, simplesmente fui usar o comando SELECT. Vou ver o tutorial, obrigado. É possível fazer o que descrevi acima?
  18. Última semana
  19. Função getSingleValue não funciona como esperado

    novamente, continuas com referências vindas do céu ... - afinal que variável é $TipoDoc ? - que valor tem essa variável ? - se queres guardar o valor na variável $ResultadoTipo, porque estás a dar essa variável como elemento de entrada/composição do SQL ? afinal que tutorial de PHP/PDO andas a seguir ? onde estás a retirar/estudar esta maneira de fazer as coisas ? este é o primeiro resultado que obtive a pesquisar php pdo tutorial no google, já será um começo se deres uma vista de olhos (como deve ser) http://wiki.hashphp.org/PDO_Tutorial_for_MySQL_Developers
  20. Pseudo-random Number Generators, ou simplesmente PRNGs, são algoritmos para geração de números com propriedades semelhantes à dos números aleatórios (random numbers). Os PRNGs produzem sequências de números aparentemente independentes, normalmente seguindo uma distribuição uniforme, com base numa expressão matemática. São normalmente definidos pelos seguintes aspetos: o seu output é determinístico, periódico e depende de um valor de inicialização, conhecido como seed. Este tipo de algoritmos (os PRNGs) são normalmente mais rápidos que a geração de números realmente aleatórios no /dev/random ou /dev/urandom (por exemplo, disponíveis numa distribuição Linux), uma vez que o SO usa o input de dados de interfaces de hardware, e.g., o rato, tráfego de rede da NIC (Network Interface Controller), etc. Um outro exemplo de um true random number generator é o random.org, onde são usados dados de ruído atmosférico como input de aleatoriedade. Ler mais…
  21. excel Substituir Letra Excel

    Esta a dar erro. A ideia era: tenha por exmplo a coluna C1 ... C15 com várias combinações como por exemplo esta "YAJH" e queria que quando escrevesse alguma destas letras na coluna C1,C2....C15 ele substitui-se estas letras por outras na coluna A1,A2,...A15 por exemplo o Y por B A por V J por E H por M
  22. excel Substituir Letra Excel

    Muito obrigado CFreitas, Vou testar a ver se consigo. depois posto aqui mais algumas dúvidas que surjam.
  23. Função getSingleValue não funciona como esperado

    Olá, @HappyHippyHippo Eu desconfiei que fosse dessa parte do código, porém não sei como proceder. Mas a minha intenção é que ele identifique a linha onde a coluna "NomeTipoDocumento" seja igual à variável "$TipoDoc", depois atribuir o valor da coluna "VerificacaoTipoDocumento" dessa mesma linha à variável "$ResultadoTipo". Isso é possível?
  24. Como dominar o uso de bibliotecas em C?

    certo, mas podes ser mais concreto/específico no que pretendes ? um exemplo, talvez ?
  25. Função getSingleValue não funciona como esperado

    ':TipoDoc' ou ':VerificacaoTipoDocumento' ? olha bem para o código SQL e o nome do parâmetro que pretendes atribuir
  26. AT - questões legais

    Nesta situação não pode haver nota de crédito. O valor retido fica em dívida. O cliente pagará esse valor no final do período de garantia. Ao haver NC a dívida é saldada, o que não é o que se pretende. A retenção a título de garantia é uma mera operação financeira. O procedimento, como já foi dito, é o descrito no ponto 2.2.7. Relativamente às linhas negativas (que não podem ser usadas nesta situação), a regra está descrita no ponto 2.2.6. do mesmo despacho.
  27. Forçar require em display:none

    Gostaria de usar apenas css. Mas a dúvida é outra, é html mesmo. Como coloca require em um campo que está com display:none. Não é questão de validação somente. Entendeu?
  28. excel Substituir Letra Excel

    É com a função SUBST (em inglês SUBSTITUTE) =SUBST(A1;"H";"C")
  29. Função getSingleValue não funciona como esperado

    Olá, yoda! Obrigado pela ajuda! Até que é simples, o único problema que tenho tido é quando tento o PDO, é raro conseguir encontrar casos específicos em PDO (assim como aqueles que tenho vindo a expor), já em mysqli é muito mais fácil. O código que sugeriste para o script, não sei porquê. Decidi fazer uma abordagem mais simples, que estava mais familiarizado. Para simplificar as coisas: "$TipoDoc" recebe do formulário o tipo de documento que o utilizador seleciona Depois, o SELECT vai, supostamente pesquisar na coluna "NomeTipoDocumento" a linha que seja igual a "$TipoDoc". De seguida, o "$stmt" iria atribuir à variável "$ResultadoTipo", os valores "Sim" ou "Não", consoante o que estivesse presente na coluna "VerificacaoTipoDocumento" da mesma linha. $sql= "SELECT NomeTipoDocumento, VerificacaoTipoDocumento FROM TiposDocumentos WHERE NomeTipoDocumento = :TipoDoc"; $stmt = $pdo->prepare($sql); $stmt->bindParam(':VerificacaoTipoDocumento', $ResultadoTipo, PDO::PARAM_INT); $stmt->execute(); if ($ResultadoTipo == "Sim") { $EstadoDoc = "Por Verificar"; } else { $EstadoDoc = "Verificado"; } Infelizmente, na execução, ele apresenta esta mensagem: SQLSTATE[HY093]: Invalid parameter number: parameter was not defined Refere-se ao "$stmt" do "VerificacaoTipoDocumento" mas, pensei que o código funcionaria assim... Falta alguma coisa? Obrigado.
  1. Ver Mais Actividade
×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade