Ir para o conteúdo

Actividade Recente

Esta stream actualiza-se automaticamente     

  1. Última Hora
  2. SAFT-PT: debate de dúvidas e ideias

    Boas, Penso que já se falou disso, mas não encontro link do tópico. Um bar regista quatro cafés num talão, mas cada café uma linha de registo. Cada café custa 0.65 com IVA incluído e o total é de 2.60. Sendo a base 2.30 e 0.30 o valor do IVA a 13%, Mas quando se gera o saft: ... <Line> <LineNumber>4</LineNumber> <ProductCode>28</ProductCode> <ProductDescription>Descafeinado</ProductDescription> <Quantity>1</Quantity> <UnitOfMeasure>UN</UnitOfMeasure> <UnitPrice>0.5752</UnitPrice> <TaxPointDate>2017-09-25</TaxPointDate> <Description>Descafeinado</Description> <CreditAmount>0.58</CreditAmount> <Tax> <TaxType>IVA</TaxType> <TaxCountryRegion>PT</TaxCountryRegion> <TaxCode>NOR</TaxCode> <TaxPercentage>13</TaxPercentage> </Tax> </Line> <DocumentTotals> <TaxPayable>0.30</TaxPayable> <NetTotal>2.30</NetTotal> <GrossTotal>2.60</GrossTotal> ... Cria as quatro linhas e no campo "CreditAmount>" coloca 0.58. Só que 0.58 x 4 = 2.32 surge uma diferença de 2 cêntimos e ao fim do mês são dezenas de euros... É que a base é diferente e os mapas que os contabilistas enviam para a AT pode ser outra em relação aos dados do SAFT. Como contornaram esta questão? Obrigado
  3. SAFT-PT: debate de dúvidas e ideias

    Pessoal como tratam - na fatura e no saft - os casos de regime de iva de bens em segunda mão ? Apareceu-me um potencial cliente que trabalha nessa área (stand de automóveis usados).
  4. Hoje
  5. SAFT-PT: debate de dúvidas e ideias

    na minha tabela de artigos, o ArtigoID não inclui a cor (tenho a cor numa tabela de variante), no entanto quando emito a factura simplificada descrimino a cor, os seja artigo: xpto cor: branca. nesta situação, no campo ProductCode do saft devo passar o valor: xpto?
  6. Ontem
  7. Boa tarde Santoli. Aqui tens um tutorial que informa o uso da ferramenta de Backup do Windows10: https://support.microsoft.com/pt-br/help/17127/windows-back-up-restore Quando selecionamos manualmente o local do BKP, o programa copia os dados para um local previamente selecionado. Quando precisamos restaurá-los o mesmo programa pode solicitar o local correto (arquivo de origem) ou dependendo das configurações, realizar em modo automático. Oi Edison, obrigado pela resposta, não entendi como é esse BKP, deixo aqui uns prints da estrutura e do conteúdo da pasta depois de instalar a aplicação, a duvida continua a ser como copio os dados e reinstalar a aplicação. Mais uma vez Salve seu aplicativo criado em VBA com um nome e "guarde-o" em uma pasta. Toda vez que necessitares reinstalar o aplicativo basta copiar e colar. É assim que resolvo pequenos problemas como corrupção do aplicativo. Edison
  8. Utilizar Webservices da AT

    Guias dos Açores. Desde a mudança de hora quer tive que fazer uma mudança na hora de saída das Guias, tive que acrescentar uma hora para conseguir obter código caso contrário daa sempre hora de saída já passou será apenas considerada uma mera comunicação à AT. Eu estou a enviar a hora no Formato ToUniversalTime(). Já vi aqui no forum que passaram pela mesma situação como resolveram?
  9. Apesar de possivelmente controverso o título deste editorial, não é para controvérsias o meu objectivo, na sua escrita. A verdade é que possivelmente muitos dos leitores, se identificam como “geeks”! Como pessoas curiosas, dedicadas, ávidas de conhecimento, dispostas a caminhar as outras milhas, mesmo na adversidade! Pessoas extraordinárias! Com este Verão já em curso, quente, até por vezes demasiado quente, sonolento e complexo, entre o calor, a praia, montes de festivais, livros e notícias que dão vontade de não as ver, muitas vezes me lembro da música, que serve de título a esta edição! “Os geeks herdarão a terra”! No passado mês de Junho, tive a oportunidade de ver como um conjunto de geeks (developers, makers, arquitectos, engenheiros, gente das mais diversas áreas), começou a organizar-se numa rede social, para usar os seus conhecimentos e talentos, para fazer tentar fazer a diferença que ´”nós geeks” podemos fazer, para mudar o mundo fazendo-o um pouco melhor! Esta edição, gostava de a dedicar a todos os que fazem diferença, não ficando a ver “o tempo passar”, mas se inquietam todos os dias, para fazer a diferença nas mais diversas áreas , nos mais diversos sectores, nas mais diversas situações! Aqueles que independentemente de tudo, decidem estar inquietos e fazer algo! A todos esses, dedico-vos a revista e deixo-vos o muito obrigado por serem inquietos! Pois como tive oportunidade de ler, “Muda uma vida, muda o Mundo”, obrigado por mudarem o Mundo! Até à próxima edição, boas leituras! António Santos
  10. Ideias PAP 12ºAno

    Vê este tópico: https://www.portugal-a-programar.pt/forums/topic/74955-prova-de-aptidão-profissional-pap-ideias/
  11. Última semana
  12. Ideias PAP 12ºAno

    Boa noite. Tenho que apresentar até ao final do mês uma ideia para fazer na PAP (Prova de Aptidão Profissional). A PAP consiste em fazer algo (neste caso um programa) e depois apresenta-la a um conjunto de professores. Estou no último ano de um curso de Gestão e Programação em Sistemas Informáticos, sendo que a minha nota na disciplina de programação é 19, mas encontro-me sem ideias para realizar o projeto. Estou extremamente à vontade com o Visual Basic, mas tenho conhecimentos em c++, c# e HTML, sendo que preferia fazer um programa para o projeto. Posso realizar qualquer tipo de projeto, sendo que se quer preferencialmente um programa que tenha utilidade. Obrigado
  13. Separ números recebidos da serial

    Bom dia, Para duas casas decimais: Int ( numero_a_truncar* 100 ) / 100 Exemplo int(0,140*100)/100=0,14 Se o tratamento é apenas da string no text1.text, colaca os nºs numa listbox Dim aux As String Dim pos, nVirg As Integer Do aux = "" pos = 1 nVirg = 0 If Len(Text1.Text) >= 5 Then Do aux = aux + Mid(Text1.Text, pos, 1) If Mid(aux, pos, 1) = "," Then nVirg = nVirg + 1 pos = pos + 1 Loop Until nVirg = 2 Text1.Text = Mid(Text1.Text, pos - 2, Len(Text1.Text)) aux = Mid(aux, 1, Len(aux) - 2) List1.AddItem (aux) Else List1.AddItem (Text1.Text) Exit Do End If Loop Um abraço
  14. Boa noite! Estou utilizando vb6 em uma aplicação recebendo dados da serial,os dados estáo recebendo pelo text1.text o seguinte formato: 0,140,450,780,890,560,450,560,250,410,780,620,950,260,150,490,150,460,29 E preciso separar e mostrar no text2.text apenas no formato 0,14. agradecido
  15. For Usado Em Assign

    Já resolvi minha questão, obrigado pela dica!
  16. Como imprimir algo em Pascal

    Observação: Variáveis não declaradas nesta procedures estão declaradas em outra parte do programa. Estou com uma dúvida sobre como imprimir algo em Pascal, utilizei o seguinte código para um programa que estou fazendo mas a impressora nem deu sinal de que iria imprimir, o código compilou sem nenhum erro. A impressora utilizada era EPSON e era USB. código usado: O objetivo era imprimira dados de um cliente que iria fazer uma viagem. procedure impressaoDeDados; var R : string; begin clrscr; gotoxy(2,2); write('Tem certeza que deseja imprimir as informa'#135#228'es do cliente ', cliente.escolha, '?'); // Cliente.escolha é a variável que diz o número do cliente. writeln; write('S/N: '); readln(R); if (R = 'S') or (R = 's') or (R = 'SIM') or (R = 'Sim') or (R = 'sim') then begin writeln; write('Imprimindo os dados...'); // Só aparecia a mensagem até aqui, o programa não fechava nem nada. writeln; PRINTCENTER('Impress'#198'o de informa'#135#228'es do cliente | GDV'); write(LST, 'Dados do cliente', cliente.escolha, ' da se'#135#198'o/ viagem ', identificacao_ADD_DEL2, '...'); writeln(LST); write(LST, 'Nome do cliente: ', cliente.nome); writeln(LST); write(LST, 'Telefone do cliente: ', cliente.tel); writeln(LST); write(LST, 'Data de anivers'#160'rio do cliente: ', cliente.dataAniv); writeln(LST); write(LST, 'Identidade/CPF do cliente: ', cliente.Ident); writeln(LST); write(LST, 'Data de ida do cliente: ', cliente.datIda); writeln(LST); write(LST, 'Data de volta do cliente: ', cliente.DatVLT); writeln(LST); write(LST, 'Tipo de pagamento efetuado pelo cliente: ', cliente.PagType); writeln(LST); write(LST, 'Valor do pagamento efetuado pelo cliente: ', cliente.PagVal); writeln(LST); write(LST, 'Finalizado. GDV ( Gerenciamento de Viagens ).'); write(LST, #12); writeln; write('Finalizado. Tecle ENTER.'); readln; clrscr; tela_inicial; end else begin if (R = 'N') or (R = 'n') or (R = 'NAO') or (R = 'Nao') or (R = 'nao') or (R = 'N'#199'O') or (R = 'N'#198'o') or (R = 'n'#198'o') then begin end else begin end; end; end; procedure PRINTCENTER (MENSAGEM : string); var posicao : BYTE; begin posicao := 40 + length(MENSAGEM) div 2; writeln(LST, MENSAGEM:posicao); end;z Espero uma ajuda, obrigado desde já! Brasil, 21:07 | 23/09/2017 (Horário de Brasília)
  17. Criação de um programa

    Boa noite a todos. Nao sei se esse é o sitio certo. Sera que algum colega tem o disquete que acompanha o livro -- assembly puro e simples de vasco correia veloso. Qual o conteudo desse disco ?? Julio praiaclube@msn.com
  18. Criar tabelas

    Na tabela produtos registas os produtos, as batatas, feijões, etc.. Na tabela produtos_armazem registas o id do armazém, o id do produto e a quantidade que existe desse produto nesse armazém. Um modelo desses pode funcionar de duas formas, ou tens apenas a quantidade atual existente do produto no armazém na tabelas produto_armazem, ou registas os movimentos de entrada e saída, situação na qual obténs um histórico de movimentos e fazendo um SUM obténs a quantidade atual. Também podes ter esta segunda opção tendo um desdobramento da solução com mais uma tabela onde registas os movimentos.
  19. Formulário autocomplete com PDO

    Ok! Obrigado!
  20. Como fazer stream de um filme por torrent em C#?

    Olá estou querendo fazer a mesma coisa me chama no email ou no whatsapp email: matheusmilitao@winfit.com.br whatsapp: 31996508625
  21. Isto é muito interessante. Embora das questões do estudo a resposta à primeira seja algo surpreendente (se bem que não li as 300 páginas)... já a resposta à segunda questão parece-me óbvia. :-) Q 1: Q 2:
  22. Criar tabelas

    Obrigado yoda É igual ao meu último exemplo que por acaso falta la o id do armazém. Poďerias dar um exemplo dos registos nas tabelas produtos e produtos_armazém. Cumpts Acao
  23. Criar tabelas

    Portanto um armazém pode ter vários produtos, e um produto pode ter vários armazéns. Precisas de 3 tabelas. Tabela Produtos Tabela Produtos_Armazéns Tabela Armazéns Na tabela do meio ter os ID's das outras duas tabelas apenas, só assim resolves o problema. Chama-se many to many relationship.
  24. Criar tabelas

    boa noite tenho como objetivo criar tabelas de produtos para gerenciar vários armazéns. os produtos saltam de armazém em armazém em qtds diversas. ex1: tabProdutos: idProduto, idArmazem, nome, qtd (acho que não funciona porque, fico preso a não poder aumentar a qtd de armazens e é necessário criar registos por produto e armazéns: exemplo: 1 armazem1, batatas, 200 . 2 armazem3, batatas 0. 3 armazem2, batatas, 0 e depois ir tirando do armazém 1 para os necessários. as pesquisas apenas seriam filtradas pelo nome que não é muito consistente. ou: efetuar o registo normal exemplo: 1 armazem1, batatas, 200 quando quero transferir os produtos efetuar novo registo com id do novo armazem e subtrair à qtd do primeiro registo o valor qtd da transferência. ficaria assim: exemplo: 1 armazem1, batatas, 150 2 armazem2, batatas 50 penso que funciona mas não o acho muito consistente. ex2: tabProdutosArmazemVirtual: idProdutoArmazemVirtual , nome, qtd tabProdutosPorArmazem: IdPodutosPorArmazem, IdProdutoArmazemVirtual, nome, qtd (esta opção acho que funciona, é consistente, mas duplico registos. quando registo no armazémvirtual tenho logo que dar-lhe um destino, 1 registo na tabProdutosArmazemVirtual e 1 registo na tabProdutosPorArmazem.) o que acham, alguém tem opção melhor? cumpts acao
  25. Putty (Network error: connection refused)

    Obrigado Dr_Lion. Não cheguei a fazer permissão fazer login pelo o root, mas vi essa opção. E sim concordo que não seja boa politica.
  26. Fonte: https://juliareda.eu/2017/09/secret-copyright-infringement-study/
  27. Fonte: https://juliareda.eu/2017/09/secret-copyright-infringement-study/
  28. excel Email vs Excel

    Andava por entre as minhas folhas excell, a preencher dados referentes a resultados que os meus alunos vão obtendo nas aulas de Educação Física e lembrei-me: Era ótimo se os pais pudessem receber, em tempo real, "alguma" informação que vou produzindo nas aulas (como por exemplo peso, altura, IMC, tempos de corridas, etc). de forma a poderem acompanhar a evolução dos seus filhos ao longo do tempo. Pois muita desta informação fica na escola, para tratamentos internos, e eu (como pai também) gostaria de poder acompanhar o meu filho nessas (in)evoluções. Há dados, por exemplo o PESO, que no caso de haver necessidade dos enc. de educação acompanharem mais de perto, a forma ideal e mais rápida de o fazerem seria receberem um email sempre que eu fizesse esse registo. Não sendo desta forma, tenho que criar um documento especifico para esse aluno, retirar apenas a informação desse aluno, gravar o documento, abrir email, anexar e enviar...... caminho longo!! Sei que tem forma de tornarr este processo mais rápido. Mas o que tenho visto, para mim, é demasiado complexo. Há forma de eu conseguir uma solução para a minha intenção?
  29. Olá. Com 16 redes e 16 computadores, quantos IP's é preciso? Como é que eu faço para os PC's não conseguirem ver as outras redes?
  1. Ver Mais Actividade
×

Aviso Sobre Cookies

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