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

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).

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?

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. 

Em ‎13‎/‎09‎/‎2017 às 20:33, Santoli disse:

Em ‎13‎/‎09‎/‎2017 às 10:11, edsudani disse:

 

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

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?

Vê este tópico: https://www.portugal-a-programar.pt/forums/topic/74955-prova-de-aptidão-profissional-pap-ideias/

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

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

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

Já resolvi minha questão, obrigado pela dica!

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) 

Em Saturday, January 14, 2017 às 12:22, tiagomsmslb disse:

Bom dia, foi-me proposto um trabalho em assembly, o qual tem que percorrer um texto e no fim apresentar o número total de caracteres que compõem esse texto; número de letras minúsculas (sem acentos, ASCII puro); e por fim, número total de caracteres ASCII não representáveis. Agradeço desde já quem puder ajudar.

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 

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.

Em 22/09/2017 às 14:07, M6 disse:

Tens aqui dois exemplos "crús":

• https://www.w3schools.com/php/php_ajax_database.asp
• https://www.w3schools.com/PhP/php_ajax_livesearch.asp

e aqui um exemplo com JQuery (que recomendo mas que requer que já saibas alguma coisa de JQuery):

• http://phppot.com/jquery/jquery-ajax-autocomplete-country-example/

Ok! Obrigado!

Olá estou querendo fazer a mesma coisa me chama no email ou no whatsapp

email: matheusmilitao@winfit.com.br

whatsapp: 31996508625

Isto é muito interessante.

Citação

This study aims to answer the following two main research questions:

1. How do online copyright infringements affect sales of copyrighted content?

2. How much are online copyright infringers willing to pay for copyrighted content?

 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:

Citação

In general, the results do not show robust statistical evidence of displacement of sales by online copyright infringements. That does not necessarily mean that piracy has no effect but only that the statistical analysis does not prove with sufficient reliability that there is an effect.

Q 2:

Citação

Overall, the analysis indicates that for films and TV-series current prices are higher than 80 per cent of the illegal downloaders and streamers are willing to pay.

For books, music and games prices are at a level broadly corresponding to the willingness to pay of illegal downloaders and streamers. This suggests that a decrease in the price level would not change piracy rates for books, music and games but that prices can have an effect on displacement rates for films and TV-series.

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

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.

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

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.