Ir para o conteúdo
  1. Re: SAFT-PT: debate de dúvidas e ideias

    nunopicado
    Por nunopicado,

    Ainda nada... :)

    • 6137 respostas
  2. Re: [Resolvido] Adicionar função no botão criado por tempo de execução

    andreycolli
    Por andreycolli,
    1 hora atrás, Retsu9 disse:

    Boas,

    Penso que isto resolve o teu problema:

    
    Private Sub carregadados()
    
            Dim dr As OleDbDataReader = Nothing
            Using con As OleDbConnection = getconnection()
                Try
                    con.Open()
                    Dim sql As String = "SELECT * FROM complemento"
                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                    dr = cmd.ExecuteReader
                    i = 1
                    While (dr.Read())
    
                        Dim labl As New Label
                        With labl
                            .Text = dr.Item("nome")
                            .AutoSize() = True
                            .Location = New System.Drawing.Point(100, (i * 20))
                        End With
    
                        Me.Controls.Add(labl)
    
                        Dim txtqnt As New TextBox
    
                        With txtqnt
                            .Text = 0
                            .Name = "txtid" & i
                            .Size() = New System.Drawing.Size(20, 20)
                            .Location = New System.Drawing.Point(200, (i * 20))
                        End With
    
                        Me.Controls.Add(txtqnt)
    
                        Dim botaoAcres As New Button
                        With botaoAcres
                            .Text = "+"
                            .Name = "btnacrescid" & i
                            .Size() = New System.Drawing.Size(20, 20)
                            .Location = New System.Drawing.Point(220, (i * 20))
                            .Tag = txtqnt.Name
                            AddHandler .Click, AddressOf botao_click
                        End With
    
                        Me.Controls.Add(botaoAcres)
    
                        Dim botaosu As New Button
                        botaosu.Text = "-"
                        botaosu.Name = "btnsubid" & i
                        botaosu.Size() = New System.Drawing.Size(20, 20)
                        botaosu.Location = New System.Drawing.Point(180, (i * 20))
                        Me.Controls.Add(botaosu)
                        i = i + 1
                    End While
    
                Catch ex As Exception
                    MsgBox("Ocorreu um erro ao tentar carregar dados!", MsgBoxStyle.Information)
                Finally
                    con.Close()
                End Try
            End Using
    
        End Sub
    
    
        Private Sub botao_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
            Dim s As String = sender.name ' nome do botão
            s = s(s.Length - 1) ' identificar o último caracter do nome do botão, para retirar o valor de i
                    Dim A = CType(Me.Controls("txtid" & s), TextBox)
            A.Text += 1
        End Sub

     

     

    1 hora atrás, Retsu9 disse:

    Boas,

    Penso que isto resolve o teu problema:

    
    Private Sub carregadados()
    
            Dim dr As OleDbDataReader = Nothing
            Using con As OleDbConnection = getconnection()
                Try
                    con.Open()
                    Dim sql As String = "SELECT * FROM complemento"
                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                    dr = cmd.ExecuteReader
                    i = 1
                    While (dr.Read())
    
                        Dim labl As New Label
                        With labl
                            .Text = dr.Item("nome")
                            .AutoSize() = True
                            .Location = New System.Drawing.Point(100, (i * 20))
                        End With
    
                        Me.Controls.Add(labl)
    
                        Dim txtqnt As New TextBox
    
                        With txtqnt
                            .Text = 0
                            .Name = "txtid" & i
                            .Size() = New System.Drawing.Size(20, 20)
                            .Location = New System.Drawing.Point(200, (i * 20))
                        End With
    
                        Me.Controls.Add(txtqnt)
    
                        Dim botaoAcres As New Button
                        With botaoAcres
                            .Text = "+"
                            .Name = "btnacrescid" & i
                            .Size() = New System.Drawing.Size(20, 20)
                            .Location = New System.Drawing.Point(220, (i * 20))
                            .Tag = txtqnt.Name
                            AddHandler .Click, AddressOf botao_click
                        End With
    
                        Me.Controls.Add(botaoAcres)
    
                        Dim botaosu As New Button
                        botaosu.Text = "-"
                        botaosu.Name = "btnsubid" & i
                        botaosu.Size() = New System.Drawing.Size(20, 20)
                        botaosu.Location = New System.Drawing.Point(180, (i * 20))
                        Me.Controls.Add(botaosu)
                        i = i + 1
                    End While
    
                Catch ex As Exception
                    MsgBox("Ocorreu um erro ao tentar carregar dados!", MsgBoxStyle.Information)
                Finally
                    con.Close()
                End Try
            End Using
    
        End Sub
    
    
        Private Sub botao_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
            Dim s As String = sender.name ' nome do botão
            s = s(s.Length - 1) ' identificar o último caracter do nome do botão, para retirar o valor de i
                    Dim A = CType(Me.Controls("txtid" & s), TextBox)
            A.Text += 1
        End Sub

     

    Obrigado Retsu9, é exatamente isso que eu precisava, muito obrigado

    • 6 respostas
  3. Re: SAFT-PT: debate de dúvidas e ideias

    jasb
    Por jasb,
    Em 11/13/2017 às 15:26, nunopicado disse:

    Estou oficialmente a brincar... :D
    Mas oficiosamente, acho que não me engano muito!

    Nestas coisas conto sempre 15 dias antes de entrar em vigor, que é ao que nos têm habituado.
    (claro, estou a assumir que o ATCud entrará em vigor em Janeiro, mas posso estar errado)

    Olá!

    Será que há novidades deste novo campo, sabes algo?!
    Eu pelo menos não encontro nada...

    • 6137 respostas
  4. ERP Primavera + vba

    carlosAl
    Por carlosAl,

    Bom dia
    TEnho alguma experiencia em VBA e gostaria de saber se é dificil fazer o interface com o ERP Primavera Express, que acho que é a versao gratuita. a minha duvida é se existe algum tipo de limitaçao ness versao do Primavera  no que diz respeito á utilizaçao de VBA ?

    Caso algum colega trabalhe com o Primavera, e tenha interesse em criar algumas rotinas de codigo para implementar no seu sistema, gostaria de participar, para dessa forma saber se é dificil esta tarefa

    Obrigado

    • 0 respostas
  5. Re: Streaming de Musica

    ribeiro55
    Por ribeiro55,

    Não é bem assim. O Spotify despeja muito, MUITO lixo até. Normalmente é feito um cache de algumas músicas para a frente e para trás. A pasta que ele usa para guardar dados chega-me a ocupar 5GB. Vê por ti na Users\teu_user\Appdata\Local\Spotify

    Não há truques de magia. Streaming não é nada mais do que um download assíncrono e leitura parcial, mas download de qualquer maneira.
    O que quis dizer é que não precisas de fazer streaming "per se" para que a PAP tenha valor. O teu cliente pode empregar algumas técnicas como o download de duas ou três músicas para a frente e para trás, que vai apagando, para que consigas melhor performance nas ações previsíveis (andar uma música para trás e outra para a frente).
    No caso de uma ação impossível de prever, como o user selecionar uma música da lista ao acaso, fazes simplesmente o download antes de a começar a bombar, e novamente o cache assíncrono de duas ou três para a frente ou para trás.

    Alternativamente, se servires os teus ficheiros via HTTP, por exemplo, podes usar o endereço diretamente no COM Windows Media Player, propriedade URL, que acho que faz streaming (mesmo streaming) sem que te tenhas de chatear.

    • 3 respostas
  6. Re: [Resolvido] Adicionar função no botão criado por tempo de execução

    Retsu9
    Por Retsu9,

    Boas,

    Penso que isto resolve o teu problema:

    Private Sub carregadados()
    
            Dim dr As OleDbDataReader = Nothing
            Using con As OleDbConnection = getconnection()
                Try
                    con.Open()
                    Dim sql As String = "SELECT * FROM complemento"
                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                    dr = cmd.ExecuteReader
                    i = 1
                    While (dr.Read())
    
                        Dim labl As New Label
                        With labl
                            .Text = dr.Item("nome")
                            .AutoSize() = True
                            .Location = New System.Drawing.Point(100, (i * 20))
                        End With
    
                        Me.Controls.Add(labl)
    
                        Dim txtqnt As New TextBox
    
                        With txtqnt
                            .Text = 0
                            .Name = "txtid" & i
                            .Size() = New System.Drawing.Size(20, 20)
                            .Location = New System.Drawing.Point(200, (i * 20))
                        End With
    
                        Me.Controls.Add(txtqnt)
    
                        Dim botaoAcres As New Button
                        With botaoAcres
                            .Text = "+"
                            .Name = "btnacrescid" & i
                            .Size() = New System.Drawing.Size(20, 20)
                            .Location = New System.Drawing.Point(220, (i * 20))
                            .Tag = txtqnt.Name
                            AddHandler .Click, AddressOf botao_click
                        End With
    
                        Me.Controls.Add(botaoAcres)
    
                        Dim botaosu As New Button
                        botaosu.Text = "-"
                        botaosu.Name = "btnsubid" & i
                        botaosu.Size() = New System.Drawing.Size(20, 20)
                        botaosu.Location = New System.Drawing.Point(180, (i * 20))
                        Me.Controls.Add(botaosu)
                        i = i + 1
                    End While
    
                Catch ex As Exception
                    MsgBox("Ocorreu um erro ao tentar carregar dados!", MsgBoxStyle.Information)
                Finally
                    con.Close()
                End Try
            End Using
    
        End Sub
    
    
        Private Sub botao_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
            Dim s As String = sender.name ' nome do botão
            s = s(s.Length - 1) ' identificar o último caracter do nome do botão, para retirar o valor de i
                    Dim A = CType(Me.Controls("txtid" & s), TextBox)
            A.Text += 1
        End Sub

     

    • 6 respostas
  7. Re: [Resolvido] Adicionar função no botão criado por tempo de execução

    andreycolli
    Por andreycolli,
    1 hora atrás, Rechousa disse:

    Eu não domino VB.Net mas será algo do género:

    
    Dim botaoAcres As New Button
    botaoAcres.Text = "+"
    botaoAcres.Name = "btnacrescid" & i
    botaoAcres.Size() = New System.Drawing.Size(20, 20)
    botaoAcres.Location = New System.Drawing.Point(220, (i * 20))
    ' Acrescentar o AddHandler a um botão:
    AddHandler botaoAcres.Click, AddressOf Me.botaoAcres_Click
    Me.Controls.Add(botaoAcres)
    
    
    Dim botaosu As New Button
    botaosu.Text = "-"
    botaosu.Name = "btnsubid" & i
    botaosu.Size() = New System.Drawing.Size(20, 20)
    botaosu.Location = New System.Drawing.Point(180, (i * 20))
    ' Acrescentar o AddHandler ao outro botão:
    AddHandler botaosu.Click, AddressOf Me.botaosu_Click
    Me.Controls.Add(botaosu)
    
    Private Sub botaoAcres_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim selectedBtn As Button = sender
        MsgBox("you have clicked button " & selectedBtn.Name)
    End Sub
    
    Private Sub botaosu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim selectedBtn As Button = sender
        MsgBox("you have clicked button " & selectedBtn.Name)
    End Sub

     

    Eu tentei mais sem sucesso, é o seguinte, vai ter "n" botoes, labl e txt, vai depender da quantidade de complementos que estiverem cadastrados, eu quero que quando eu click no btn1 ele mude o valor dentro do txt1 que corresponde ao complemento, exemplo: complemento1 tem labl1,  bntacres1, txt1 e bntsub1, complemento2 tem lbl2 etc... Eu quero que quando eu click no bntacres1  acrescentar no txt1 +1, se click no btnacres2 acrescenta no txt2+1 assim por diante todos os txts vai vim com valor padrao 0 e quando acrescentar ele vai somando......

    • 6 respostas
  8. Re: [Resolvido] Adicionar função no botão criado por tempo de execução

    Rechousa
    Por Rechousa,

    Eu não domino VB.Net mas será algo do género:

    Dim botaoAcres As New Button
    botaoAcres.Text = "+"
    botaoAcres.Name = "btnacrescid" & i
    botaoAcres.Size() = New System.Drawing.Size(20, 20)
    botaoAcres.Location = New System.Drawing.Point(220, (i * 20))
    ' Acrescentar o AddHandler a um botão:
    AddHandler botaoAcres.Click, AddressOf Me.botaoAcres_Click
    Me.Controls.Add(botaoAcres)
    
    
    Dim botaosu As New Button
    botaosu.Text = "-"
    botaosu.Name = "btnsubid" & i
    botaosu.Size() = New System.Drawing.Size(20, 20)
    botaosu.Location = New System.Drawing.Point(180, (i * 20))
    ' Acrescentar o AddHandler ao outro botão:
    AddHandler botaosu.Click, AddressOf Me.botaosu_Click
    Me.Controls.Add(botaosu)
    
    Private Sub botaoAcres_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim selectedBtn As Button = sender
        MsgBox("you have clicked button " & selectedBtn.Name)
    End Sub
    
    Private Sub botaosu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim selectedBtn As Button = sender
        MsgBox("you have clicked button " & selectedBtn.Name)
    End Sub

     

    • 6 respostas
  9. Re: [Resolvido] Adicionar função no botão criado por tempo de execução

    andreycolli
    Por andreycolli,
    1 hora atrás, Rechousa disse:

    Viva,

    Pelo que percebi, o objetivo é: quando clicares nos botões com o texto "+" ou "-", que seja executada determinada ação, certo?

    Vê o statement AddHandler:

    https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/statements/addhandler-statement

    Tens de criar um evento para o botão. Nesse evento, é que irás alterar o valor que precisas.

    Espero ter ajudado,

    Eu tentei aqui mais nao consegui, nao sou muito bom em programação, estou aprendendo ainda kkkkk, voce poderia me passar o código se nao for pedir muito, desde ja agradeço

    • 6 respostas
  10. Re: [Resolvido] Adicionar função no botão criado por tempo de execução

    Rechousa
    Por Rechousa,

    Viva,

    Pelo que percebi, o objetivo é: quando clicares nos botões com o texto "+" ou "-", que seja executada determinada ação, certo?

    Vê o statement AddHandler:

    https://docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/statements/addhandler-statement

    Tens de criar um evento para o botão. Nesse evento, é que irás alterar o valor que precisas.

    Espero ter ajudado,

    • 6 respostas
  11. Re: [Resolvido] Adicionar função no botão criado por tempo de execução

    andreycolli
    Por andreycolli,

    Eu queria dar um comando pro botao para diminuir ou aumentar um valor dentro de um textbox, como eu faço isso??? Segue o código. Ele gerou os botoes os nomes dos complementos e o txt normal, a unica coisa que preciso eh fazer ele aumentar ou diminuir o valor do txt, grato

    Private Sub carregadados()
    
            Dim dr As OleDbDataReader = Nothing
            Using con As OleDbConnection = getconnection()
                Try
                    con.Open()
                    Dim sql As String = "SELECT * FROM complemento"
                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)
                    dr = cmd.ExecuteReader
                    i = 1
                    While (dr.Read())
                        Dim labl As New Label
                        labl.Text = dr.Item("nome")
                        labl.AutoSize() = True
                        labl.Location = New System.Drawing.Point(100, (i * 20))
                        Me.Controls.Add(labl)
    
                        Dim txtqnt As New TextBox
                        txtqnt.Text = 0
                        txtqnt.Name = "txtid" & i
                        txtqnt.Size() = New System.Drawing.Size(20, 20)
                        txtqnt.Location = New System.Drawing.Point(200, (i * 20))
                        Me.Controls.Add(txtqnt)
    
                        Dim botaoAcres As New Button
                        botaoAcres.Text = "+"
                        botaoAcres.Name = "btnacrescid" & i
                        botaoAcres.Size() = New System.Drawing.Size(20, 20)
                        botaoAcres.Location = New System.Drawing.Point(220, (i * 20))
                        Me.Controls.Add(botaoAcres)
    
                        Dim botaosu As New Button
                        botaosu.Text = "-"
                        botaosu.Name = "btnsubid" & i
                        botaosu.Size() = New System.Drawing.Size(20, 20)
                        botaosu.Location = New System.Drawing.Point(180, (i * 20))
                        Me.Controls.Add(botaosu)                    
                        i = i + 1
                    End While
    
                Catch ex As Exception
                    MsgBox("Ocorreu um erro ao tentar carregar dados!", MsgBoxStyle.Information)
                Finally
                    con.Close()
                End Try
            End Using
    
        End Sub

     

    • 6 respostas
  12. Re: SPA em aplicações empresariais

    Rui Carlos
    Por Rui Carlos,
    13 horas atrás, AJBM disse:

    Discordo contigo na parte da usabilidade, penso que uma das vantagens deste tipo de aplicações é sua usabilidade. Com SPA consegues tens uma navegação mais clean, não existem realoads constantes.

    O termo que queria usar era mais acessibilidade, mas mesmo do ponto de vista da usabilidade as SPAs têm habitualmente vários problemas.  Sobretudo por não terem o comportamento esperado para certas acções do utilizador (exemplo de problemas que já vi: abrir links em background não funciona correctamente, o scroll tem movimentos que não fazem match com a interacção do utilizador, o histórico não funciona correctamente, a pesquisa não funciona correctamente, etc.).  Admito que em geral isto seja o resultado de más implementações de SPAs, e de certa forma é uma consequência da complexidade de implementar uma SPA como deve ser.

    Quanto aos reloads constantes, numa página eficiente a minha percepção do reload é equivalente à de uma SPA (fiz primeiro um teste num site em que o carregamento de uma página demorava cerca de 200~300ms, mas mesmo num outro site com vídeos o header e o sidebar pareciam ficar fixos nos reloads, por exemplo).  Infelizmente páginas eficientes são cada vez mais uma raridade, e em páginas mais complexas uma SPA permite optimizações.  Ainda assim, pessoalmente irritam-me aquelas páginas que são carregadas em milisegundos, mas que depois ficam 5 segundos a mostrar um ícone em movimento enquanto carregam os conteúdos propriamente ditos.

    • 3 respostas
  13. Re: SAFT-PT: debate de dúvidas e ideias

    nunopicado
    Por nunopicado,
    6 horas atrás, MJanko disse:

    Tão rapido a reponder, obrigado!

    Vou procurar por isso.

    O mais estranho para mim é o facto da validação falhar 20 segundos depois de começar, antes quando o Cliente conseguia entrar o SAFT demorava na boa umas 3 horas entre validar e enviar.

    Formas diferentes de validar, entre a app e o portal das finanças.

     

    5 horas atrás, edith disse:

    Muito obrigado Americo,

    Realmente esses clientes foram criados com ES, nem sei como fizeram isso. Porque por 'defaul' vai sempre para PT

    Os users conseguem fazer o que o programador nunca imaginou. :D
    Eles são terríveis.

     

    • 6137 respostas
  14. Re: Streaming de Musica

    nunomonteiro123
    Por nunomonteiro123,
    19 horas atrás, ribeiro55 disse:

    Olá nunomonteiro123,

    O que é que não estás a conseguir ao certo na adição de dados à base de dados?
    Para o que a PAP representa, não precisas de implementar o conceito de "stream", propriamente dito.
    Algo tão simples como a tua aplicação fazer download do ficheiro todo antes de a tocar já serve o propósito e torna-se muito mais simples.

    Vou assumir que por Windows Media Player te estás a referir ao controlo COM do Windows Media Player que podes adicionar ao teu form.
    Mesmo adicionando ao forma através da Toolbox é possível retirar a interface com uiMode = "invisible", e ficas sem rigorosamente nada na parte visual.

    Também podes fazê-lo sem adicionar nada por a toolbox:

    
    WMPLib.WindowsMediaPlayer wmp = new WMPLib.WindowsMediaPlayer();
    wmp.URL = @"C:\Windows\media\Ring05.wav";
    wmp.controls.play();

    É possível usar todos os controlos do player programáticamente, e até te permite colocar caminhos no protocolo HTTP no URL, o que acrescenta mais possibilidades à tua solução. Terás de pensar antes em como vais "alojar" as músicas, para depois decidir como as servir.

    Explora essa parte e partimos daí para o resto.

    Bem visto e obrigado pela ajuda na parte do player. Na questão da musica eu queria fazer streaming da musica onde esta está numa "base de dados" isto , se é assim que funciona para multimédia, No fundo nao queria acrescentar muito "peso" ou "lixo"(Ficheiros de musica no pc). Como exemplo posso dar o spotify que nao tem musicas nos ficheiros, anao ser que cliques para download.

     

    • 3 respostas
  15. Re: SPA em aplicações empresariais

    AJBM
    Por AJBM,

    Obrigado pela resposta.

    1 hora atrás, Rui Carlos disse:

    Tendem a ser pesadas (nomeadamente ao nível da RAM), e a ter problemas de usabilidade e segurança (fruto da maior dependência do JS).

    Concordo contigo no que diz respeito à segurança, aplicação fica na verdade mais exposta.
    Discordo contigo na parte da usabilidade, penso que uma das vantagens deste tipo de aplicações é sua usabilidade. Com SPA consegues tens uma navegação mais clean, não existem realoads constantes.
    A nível de manutenção também penso que seja mais difícil e trabalhosa. Com este tipo de aplicações, também não podemos efetuar logs, o que dificulta o processo de deteção e correção de erros.

    • 3 respostas
  16. Re: SPA em aplicações empresariais

    Rui Carlos
    Por Rui Carlos,

    Pessoalmente não sou grande adepto de SPAs do ponto de vista do utilizador.  Tendem a ser pesadas (nomeadamente ao nível da RAM), e a ter problemas de usabilidade e segurança (fruto da maior dependência do JS).

    Do ponto de vista do desenvolvimento e manutenção, mesmo não sendo a minha área, diria que a SPA vai dar mais trabalho (ter mais custos).  Vais ter mais código a correr em ambientes que tu não controlas (com diferentes versões de browsers, que suportam diferentes funcionalidades de JS, e com diferentes características de desempenho, e em que é mais difícil registar e reproduzir erros), e vais ter que implementar uma série de funcionalidades que os browsers já disponibilizam para páginas normais (e.g., actualização do URL).

    Assim, tirando casos é que se pretende uma aplicação que funcione offline e/ou se está a tentar imitar uma aplicação nativa, acho que as SPAs não são a melhor opção (mesmo nestes casos a melhor solução era... uma aplicação nativa :D).

    • 3 respostas
  17. Re: [Resolvido] Executar Macro no Access, através do C#

    AAJr
    Por AAJr,

    Muito Obrigado.

    • 2 respostas
  18. Re: Limpar filtro datagride

    AAJr
    Por AAJr,

    Olá, tente utilizar:

     

    StockDataGridView.ClearSelection();

    • 1 resposta
  19. Re: [Resolvido] Recuperar chave primária por GetSchema

    samesdavis
    Por samesdavis,

    Muito obrigado, problema resolvido.

    • 2 respostas
  20. Re: SAFT-PT: debate de dúvidas e ideias

    edith
    Por edith,
    1 hora atrás, americob disse:

    Ela aparece do lado do comerciante? e o NIF do consumidor está correto e com o prefrixo "PT"? e mesmo assim não aparece do lado do consumidor? estranho!

    Já vi alguns casos, mas com prefixo "PG", "PR", "PY", etc, é as pressas ao abrir o cliente!

    A partir do momento que está do lado do comerciante, também está do lado do consumidor. Aposto que a Database é a mesma!

     

     

    Muito obrigado Americo,

    Realmente esses clientes foram criados com ES, nem sei como fizeram isso. Porque por 'defaul' vai sempre para PT

    • 6137 respostas
  1. Ver Mais Actividade
×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.