Ir para o conteúdo
  1. Re: Listbox

    Gnrtuga
    Por Gnrtuga,

    Boas, experimenta qualquer coisa deste género:

    Lista = ListBox7.ListIndex

    If Lista = 0 Then

    Código a executar

    End If

     

    Boa sorte

     

     

    • 1 resposta
  2. Re: PHC - Programação em XBASE

    camexavi
    Por camexavi,
    4 minutos atrás, pc.cesar disse:

    BOAS

     

    Pelo codigo acima apenas necessita de acrescentar

     

     

            Replace ft.Nome With curCL.Nome
            Replace ft.no With curCL.No
            Replace ft.estab With curCL.estab
            ftclact()

    Replace ft.Nome With curCL.Nome
            Replace ft.no With curCL.No
            Replace ft.estab With curCL.estab
            ftclact()

    Viva @pc.cesar

    Quando acrescento ftclact(), em vez de passar os dados do cliente selecionado na  Browlist, está a passar os dados do cabeçalho da ultima fatura gravada.

    Porquê?

    Obrigado

     

    • 128 respostas
  3. Re: PHC - Programação em XBASE

    pc.cesar
    Por pc.cesar,

    BOAS

     

    Pelo codigo acima apenas necessita de acrescentar

     

     

            Replace ft.Nome With curCL.Nome
            Replace ft.no With curCL.No
            Replace ft.estab With curCL.estab
            ftclact()

    Replace ft.Nome With curCL.Nome
            Replace ft.no With curCL.No
            Replace ft.estab With curCL.estab
            ftclact()

    • 128 respostas
  4. Re: API NIF Empresas

    Brunoss
    Por Brunoss,
    Em 15/11/2017 às 13:45, M6 disse:

    Se não estou em erro, o VIES é para NIFs de empresas registadas para comércio internacional/UE, razão pela qual não encontras ai a informação toda.

    Quanto à parte do sem ter "custos", creio que deste a resposta à tua própria questão...

    Eu perguntei porque não tinha conhecimento de mais nenhuma, mas com custos existem?Se sim quais?

    Obrigado

    • 2 respostas
  5. Re: Erro C# Invoke SetPassword Active Directory

    charparodar
    Por charparodar,
    • 1 resposta
  6. Re: Listbox

    mitrax
    Por mitrax,

    Boa tarde ppl,

    O que aqui me trás é uma duvida basica, mas já dei voltas e voltas e não estou a conseguir resolver. Basicamente quero implemetar uma listbox que mediante a selecção do seu conteudo preencha um array com diferente conteudo. No exemplo que ponha seria suposto aparecer uma caixa de texto no entanto obtenho o erro "Run-time error '424': object required" 

    Sub ListBox7_Change()
        
        With Listbox7
            If .Selected(0) Then
                MsgBox ("ZeZeZeZe")
            End If
        End With
        
    End Sub

    • 1 resposta
  7. Datagrid com dataset de csv

    Kn0xx
    Por Kn0xx,

    Boas,

    Peço a vossa ajuda experiente ! Sou muito verde nestas coisas da programação, e ando a aprender á base de exemplos que vejo o código.

    Eu não sei, exactamente como fazer a coisa acontecer, ando a pesquisar por guias e informações que mostrem um exemplo a funcionar . Mas basicamente o conceito base será este.

    Utilizar o datagrid que tera acesso a uma base dados access, com 2 campos.
    Artigo | Valor

    1; 1000

    2; 500

    3: 20

    4; 100

     

    A esse datagrid/form quero adicionar uma função de importar um ficheiro CSV, que tem os dados:

    1; 1200

    3; 50

    No data grid apenas vai aparecer as colunas com os dados:

    Artigo | Valor(em base dados) | Valor 2 (do CSV) | Diferença

    1; 1000; 1200; 200

    3;20;50; 30

     

    e e depois a função de salvar os dados das colunas Valor2 na base dados acces.

    Podem indicar o caminho certo, ou algo em que eu veja o funcionamento ?

    Obrigado,

     

    Cumprimentos,

     

     

     

     

    • 0 respostas
  8. Re: Utilizar Webservices da AT

    Cu5co
    Por Cu5co,
    12 horas atrás, nunopicado disse:

    Estive a dar uma olhada a isto...
    Há um projecto em Delphi para comunicar com Smart Cards. É um bocado antigo, feito em D2007.
    Fiz um fork e converti para unicode, e parece que está a funcionar OK.

    No entanto, para receberes os dados, precisas de enviar o pedido ao cartão, enviando um APdu (uma string hexadecimal com o pedido), e recebendo a resposta de volta.
    A questão está mesmo aí: Não faço a mínima ideia de quais APdu se deve enviar para receber o NIF (ou qualquer outro dado).
    Mas se quiseres dar uma olhada, tens aqui a minha versão para testares:

    https://github.com/nunopicado/PCSCSmartCardComponent

    Obrigado Nuno. Deparei-me exatamente com esse projeto, antigo como dizes e parei precisamente onde dizes, saber qual o comando a enviar para receber o NIF ou qualquer outro dado. Vou continuar a ver se descubro alguma coisa. Se descobrir partilharei. Obrigado.

    • 7321 respostas
  9. Re: Utilizar Webservices da AT

    Cu5co
    Por Cu5co,
    17 horas atrás, americob disse:

     

    Se me queres citar, usa uma frase que eu tenha dito (escrito)! :)

    Sorry, my bad ;)

    • 7321 respostas
  10. Re: SILiAMB e e-GAR: registo eletrónico de guias eletrónicas de acompanhamento de resíduos (e-GAR)

    arturm
    Por arturm,
    1 hora atrás, ftuc disse:

    No teu caso estas a usar Basic Auth certo?

    Correcto, tal como no SOAP UI.

    • 14 respostas
  11. Re: SILiAMB e e-GAR: registo eletrónico de guias eletrónicas de acompanhamento de resíduos (e-GAR)

    ftuc
    Por ftuc,
    1 hora atrás, arturm disse:

    Bom dia,

    Estou a enviar os pedidos desta forma:

    
        With xmlHtp
            .Open "post", sURL, False
            .setRequestHeader "Content-Type", "text/xml; charset=utf-8"
            .setRequestHeader "Authorization", "Basic ValueBase64Format"
            .send sEnv
            xmlDoc.LoadXML .responseText
        End With

    ValueBase64Format será NIF:Password em Base64
    sURL = "https://qualsiliamb.apambiente.pt/egar/services/GuiaAcompanhamentoWs"
    sEnv o conteúdo a enviar, sem indentações (com indentações dá erro). 

    Algo como isto:

    
        sEnv = ""
        sEnv = sEnv & "<?xml version=""1.0"" encoding=""utf-8""?>"
        sEnv = sEnv & "<soap:Envelope xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:tns=""http://pt.apa.guiaacompanhamento/"">"
        sEnv = sEnv & "<soap:Body>"
        sEnv = sEnv & "<tns:aceitarGuia>"
    	...

     

    O Token vai dentro do pacote : sEnv = sEnv & "<tokenCertificacao>Token</tokenCertificacao>"

    Espero que ajude. :thumbsup:

    No teu caso estas a usar Basic Auth certo?

    • 14 respostas
  12. Re: SILiAMB e e-GAR: registo eletrónico de guias eletrónicas de acompanhamento de resíduos (e-GAR)

    arturm
    Por arturm,
    1 hora atrás, ftuc disse:

    Sim pelo menos tento "traduzir"

    Obrigado ;)

    Bom dia,

    Estou a enviar os pedidos desta forma:

        With xmlHtp
            .Open "post", sURL, False
            .setRequestHeader "Content-Type", "text/xml; charset=utf-8"
            .setRequestHeader "Authorization", "Basic ValueBase64Format"
            .send sEnv
            xmlDoc.LoadXML .responseText
        End With

    ValueBase64Format será NIF:Password em Base64
    sURL = "https://qualsiliamb.apambiente.pt/egar/services/GuiaAcompanhamentoWs"
    sEnv o conteúdo a enviar, sem indentações (com indentações dá erro). 

    Algo como isto:

        sEnv = ""
        sEnv = sEnv & "<?xml version=""1.0"" encoding=""utf-8""?>"
        sEnv = sEnv & "<soap:Envelope xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:tns=""http://pt.apa.guiaacompanhamento/"">"
        sEnv = sEnv & "<soap:Body>"
        sEnv = sEnv & "<tns:aceitarGuia>"
    	...

     

    O Token vai dentro do pacote : sEnv = sEnv & "<tokenCertificacao>Token</tokenCertificacao>"

    Espero que ajude. :thumbsup:

    • 14 respostas
  13. Re: SILiAMB e e-GAR: registo eletrónico de guias eletrónicas de acompanhamento de resíduos (e-GAR)

    ftuc
    Por ftuc,
    10 horas atrás, arturm disse:

    Posso colocar em vb a forma como o estou a fazer. Achas que ajuda?

    Sim pelo menos tento "traduzir"

    Obrigado ;)

    • 14 respostas
  14. Subformulário

    kakalo
    Por kakalo,

    Oi

    Tenho uma tabela com campos:

    Tbl_Produtos
    IdProduto - autonum
    NomeProduto - txt
    ValorProduto - moeda
    CustoFixo - s/n

    Tbl_PlanilhaCalculo
    idCalculo - autonum
    SubTotal - moeda
    Total - moeda

    Tbl_Custos
    idCustos - autonum
    NomeProdutoCustoFixo - txt
    ValorProdutoCustoFixo - moeda
    NomeProdutoCustoVariado - txt
    ValorProdutoCustoVariado - moeda

    Estou criando um formulário de cálculo de custos onde penso em criar dois subformulário: um, Somente com Custo Fixo e outro só com Custo Variável.

    A minha pergunta é:
    1 - Preciso relacionar esta tabela de produtos na tabela de cálculo?
    2 - Posso usar a mesma tabela para criar dois subformulários?
    3 - Para separar os registros de custos eu uso fonte de controle: CustoFixo = false esta correto?
    4 - Ou seria melhor criar duas tabelas: tbl_CustoFixo e tbl_CustoVariavel?

    Qualquer ajuda será bem vinda.

    kklo

    • 0 respostas
  15. Re: retirar valores da list box

    nunopicado
    Por nunopicado,
    • Antes de o remover, atribui-o a uma variável. 
    • Removes o item da listbox
    • Multiplicas a variável por 3
    • Adicionas o resultado à lista
    • 3 respostas
  16. Re: retirar valores da list box

    Sérgio Manuel Monteiro Oli
    Por Sérgio Manuel Monteiro Oli,

    eu tenho um exercicio onde tenho uma duvida que é :

     

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
            If ListBox1.SelectedIndex <> -1 Then
                ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
            End If
        End Sub

    como faço quando elemino um valor da listbox faço com que ele apareça  vezes 3 (triplo)

     

    • 3 respostas
  17. Re: Utilizar Webservices da AT

    nunopicado
    Por nunopicado,
    8 horas atrás, Cu5co disse:

    Pessoal, sei que é fora de tópico mas alguém tem alguma coisa para ler o NIF do cartão de cidadão usando um leitor dos cartões?

    Estive a dar uma olhada a isto...
    Há um projecto em Delphi para comunicar com Smart Cards. É um bocado antigo, feito em D2007.
    Fiz um fork e converti para unicode, e parece que está a funcionar OK.

    No entanto, para receberes os dados, precisas de enviar o pedido ao cartão, enviando um APdu (uma string hexadecimal com o pedido), e recebendo a resposta de volta.
    A questão está mesmo aí: Não faço a mínima ideia de quais APdu se deve enviar para receber o NIF (ou qualquer outro dado).
    Mas se quiseres dar uma olhada, tens aqui a minha versão para testares:

    https://github.com/nunopicado/PCSCSmartCardComponent

    • 7321 respostas
  18. Re: retirar valores da list box

    nunopicado
    Por nunopicado,

    Pedir trabalhos feitos é contra as regras do forum.
    Reformula a tua pergunta explicando claramente o que já tentaste fazer e quais os pontos concretos em que tens duvidas, caso contrário o tópico será bloqueado.

    E lembra-te, um trabalho feito por outra pessoa hoje não te ajudar a fazer o teste de amanhã! ;)

    • 3 respostas
  19. Re: SILiAMB e e-GAR: registo eletrónico de guias eletrónicas de acompanhamento de resíduos (e-GAR)

    arturm
    Por arturm,
    49 minutos atrás, ftuc disse:

    Estou a ter dificuldades na parte de autenticação, no SoapUI já consegui. Em código não estou a encontrar documentação para colocar no cabeçalho

    Posso colocar em vb a forma como o estou a fazer. Achas que ajuda?

    • 14 respostas
  20. Re: SILiAMB e e-GAR: registo eletrónico de guias eletrónicas de acompanhamento de resíduos (e-GAR)

    ftuc
    Por ftuc,
    42 minutos atrás, arturm disse:

    ftuc,

    Não sei PHP, mas qual é a tua dúvida em relação ao WS? É a forma como passas a autenticação?

    Artur

    Estou a ter dificuldades na parte de autenticação, no SoapUI já consegui. Em código não estou a encontrar documentação para colocar no cabeçalho

    • 14 respostas
  1. Ver Mais Actividade
×

Aviso Sobre Cookies

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