Boas pessoal,

estou a desenvolver um programa que vai certificar um pdf  "reportviewer" estava a utilizar este código

            Dim store As X509Store = New X509Store(StoreName.My, StoreLocation.CurrentUser)
            store.Open(OpenFlags.ReadOnly)

            Dim certsToShow As X509Certificate2Collection = store.Certificates.Find(X509FindType.FindByTimeValid, DateTime.Now, False)
            Dim certs As X509Certificate2Collection = certsToShow.Find(X509FindType.FindBySerialNumber, serialNumberDigitalCert, False)

                .....

só que isto só resulta se for em windows forms ou algo que corra no pc. em asp não funciona não consegue detetar o certificado porque esta no lado do servidor.

alguem ja fez algo do genero?

@vinicius,

Consegues ser mais explícito no que diz respeito à dificuldade que estás a ter? O que fizeste para já e que obstáculos encontraste?

Preciso de criar um programa mas estou com dificuldades em faze lo!!

O programa é o seguinte,

Crie um programa em c++ que mantenha as suas notas nos vários módulos das diferentes disciplinas com as seguintes características:

- Peça a utilizador o nome de 5 disciplinas e quantos módulos tem cada disciplina e a respectiva classificação de cada módulo;

- Guarde a informação num ficheiro (texto ou binário);

- Crie uma função que calcule a média de cada disciplina (tendo em conta o número de módulos) e a média total do curso com os dados fornecidos;

- Escreva no ecrã de saída uma tabela com as disciplinas, classificações e respectivas médias, no fim da tabela deverá aparecer um nome, numero e curso e a respectiva média.

Agradecia toda a ajuda possível porque eu nunca fui muito boa a programar e este programa esta a dar cabe de mim!! Fico a aguardar as vossas ajudas, obrigada!

ola,

Será que é porque estas  ler um codigo de barras que tem 2 linhas ? porque o chr(13) + (chr10)   ?

Parabéns a toda a comunidade!

Estou com dificuldade para converter este script em C para Python. Alguém me ajuda por favor

int main() {
    int i, j;
    int n;
    int soma=0;
    int a, b;
    int pilha[PMAX];
    int moves=0;
    int movimentos=0;

    scanf("%d", &n);
    for (i=0; i<n; i++) {
        scanf("%d", &pilha[ i ]);
        soma+=pilha[ i ];
    }

    b=(((2*soma)/n)+(n-1))/2;
    a=1+b-n;

    for (i=0; i<n; i++) {
        moves+=(pilha[ i ]-(i+a));
        if (pilha[ i ]>i+a) {
            movimentos+=(pilha[ i ]-(i+a));
        }
    }

    if (moves!=0) {
        printf("-1\n");
    } else {
        printf("%d\n", movimentos);
    }

    return 0;
}

16 minutos atrás, iznougudpt disse:

O checkDigit deve manter o mesmo cálculo, é só questão de permitir que o NIF comece por 3 (no meu caso dava logo erro caso começasse por 3, 4 ou 0)

Correto e afirmativo.

Já tive oportunidade de ensaiar e resulta OK.

O algoritmo é o mesmo, simplesmente basta adicionar a precisão para os NIFs começados por 3

vou ver e te falo

mas isso eu coloco no 
Sub Computer() 

certo?

Bem, tomando o teu exemplo e acho que não me enganei nos nomes das variáveis, faz o seguinte no evento do Button_Click onde vais chamar o Sub Compute() chama antes este:

Sub teste_conversao()
        Dim SubTotal, TaxPer, TaxAmount, ValorTotal As Double
        SubTotal = CDbl(Val(txtSubTotal.Text))
        TaxPer = CDbl(Val(txtTaxPer.Text))
        TaxAmount = CDbl(Val(txtTaxAmount.Text))
        ValorTotal = SubTotal + (SubTotal * TaxPer / 100)
        txtGrandTotal.Text = FormatNumber(ValorTotal, 2)
    End Sub

e vê lá se não vai dar o que pretendes

p.s confere se os nomes das textbox estão certos

Em 12/04/2019 às 16:13, Pedro Alex disse:

Boa tarde,

A AT vai passar a emitir novos NIFs a começar por 3.

Alguém sabe se este facto poderá afetar a formula de calculo para validar o checkdigit e assegurar que o NIF é valido?

http://info.portaldasfinancas.gov.pt/pt/destaques/Paginas/Atribuicao_Nova_Gama_de_NIF_a_Pessoas_Singulares.aspx

Obrigado

Pedro

O checkDigit deve manter o mesmo cálculo, é só questão de permitir que o NIF comece por 3 (no meu caso dava logo erro caso começasse por 3, 4 ou 0)

voce tem o compilador vs2017?

Viva,

Não estás a tentar fazer "Val" de caixas de texto, com valores "já formatados" com separadores decimais (idioma/região) do sistema?

	Public Sub Main()
		Dim subTotal As Double = 0
		subTotal = Val("123.45")
        System.Console.WriteLine("subTotal 1 = " & subTotal)
		subTotal = Val("123,45")
        System.Console.WriteLine("subTotal 2 = " & subTotal)
	End Sub

OUTPUT:
subTotal 1 = 123.45
subTotal 2 = 123

No exemplo acima, dependendo da região/país onde corres a tua aplicação, tanto poderia ler "123.45" ou apenas "123".
Nas tuas caixas de texto, tens o separador decimal com "." ou "," ?