Ir para o conteúdo

Actividade Recente

Esta stream actualiza-se automaticamente     

  1. Hoje
  2. Certificado SSL

    Boas Preciso de instalar um certificado ssl no meu servidor iis alguem sabe como se faz este processo? Ouvi falar deste letsencrypt mas nao encontro o exe
  3. SAFT-PT: debate de dúvidas e ideias

    Oki, ufa. Isso é que andava a dar cabo do juízo. Muito mais fácil de implementar então.
  4. SAFT-PT: debate de dúvidas e ideias

    O valor do IVA no SAF-T da faturação é zero. Daí termos de indicar o motivo da "isenção".
  5. SAFT-PT: debate de dúvidas e ideias

    Perguntei mal. No SAF-T da faturação, referente a essa fatura comunicas valor de iva ou não ? Nesse caso os tais 94.5 Ou só é comunicado pelo SAF-T da contabilidade - e o de faturação manda 0.00 ?
  6. SAFT-PT: debate de dúvidas e ideias

    O IVA dos bens em segunda mão é cobrado sobre a margem. Por exemplo. Compro um carro por 1000. Vendo por 1500. O IVA está incluído na margem de 500, será 500-500/1.23=94.5. O valor do IVA no regime da margem é "oculto". O cliente nunca fica a saber quanto foi a margem. Este IVA nunca é dedutível pelo cliente. O valor do IVA é apurado na contabilidade. O comerciante, por cada produto, deve manter um registo dos custos de aquisição e preparação para a venda (reparações, etc), de modo a poder apurar a margem. Se a margem for negativa ou nula, nem sequer há IVA.
  7. SAFT-PT: debate de dúvidas e ideias

    Isso quer dizer que não pões valor de iva no SAF-T ? e se pões, como sabes qual é ?
  8. SAFT-PT: debate de dúvidas e ideias

    Podes manter o mesmo ProductCode. No SAF-T colocas a cor, no campo Description (4.1.4.19.11.) Conforme FAQ:
  9. SAFT-PT: debate de dúvidas e ideias

    Obrigado Now, trabalhinho de implementar essas coisinhas.... (teclando afincadamente).
  10. SAFT-PT: debate de dúvidas e ideias

    Na fatura não mencionas IVA. Os valores têm o IVA incluído, mas não é descriminado. A fatura deverá conter a menção "Regime da margem de lucro – Bens em segunda mão". No SAF-T o TaxCode deverá ser "OUT", o TaxPercentage "0.00" e o Motivo M13 - Regime da margem de lucro – Bens em segunda mão.
  11. 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
  12. 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).
  13. 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?
  14. Ontem
  15. 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
  16. 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?
  17. 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
  18. Ideias PAP 12ºAno

    Vê este tópico: https://www.portugal-a-programar.pt/forums/topic/74955-prova-de-aptidão-profissional-pap-ideias/
  19. Última semana
  20. 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
  21. 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
  22. 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
  23. For Usado Em Assign

    Já resolvi minha questão, obrigado pela dica!
  24. 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)
  25. 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
  26. 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.
  27. Formulário autocomplete com PDO

    Ok! Obrigado!
  28. 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
  1. Ver Mais Actividade
×

Aviso Sobre Cookies

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