Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
10 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 10 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

Enviar msg para WhatsAPP via VFP

7/2/2017, 10:31 por Eliana

Olá Pessoal!

Alguém sabe se é possível enviar mensagem para o WhatsAPP via VFP?


Grata


Comentários: 0

Tudo dá errado

3/2/2017, 16:50 por Douglas Pascini

Troquei de maquina, achei que seria uma boa, [Você precisa estar registrado e conectado para ver esta imagem.]  pois passei para uma maquina melhor.

Instalei o …

Comentários: 1

URGENTE - Instalação do aplicativo

24/1/2017, 08:51 por Douglas Pascini

Bom dia. Estou com um problema, ao fazer a instalação (colocar os arquivo) do aplicativo na …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 3

Estatísticas
Temos 7018 usuários registrados
O último usuário registrado atende pelo nome de Marcos Souza

Os nossos membros postaram um total de 21 mensagens em 12 assuntos

Ajuda para fazer algoritmo de Nota Fiscal em Pascal

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Em curso Ajuda para fazer algoritmo de Nota Fiscal em Pascal

Mensagem por JOANA em 23/10/2009, 18:11

Amigos, preciso fazer um programa em pascal de uma nota fiscal,
e não consigo terminar..........
Se alguém do fórum puder me ajudar ficarei grata..............




Program notafiscal ;

var
descricao,cliente,uf,endereco:string;
subtotal,total_nota,codigo,valor,frete,saidaentrada,emissao, preco:real;
total,icms,nota,fone:real;
cont,qtde:integer;

Procedure Inicio;
//procedimento para dados do cliente
Begin

textcolor (yellow);
gotoxy (2,1);
writeln(' Supermercado Ideal ' ) ;
gotoxy (56,1);
write(' Nota Fiscal N: ' ) ;
writeln;
gotoxy (1,3);
write(' --------------------------------------------------------------------------- ' ) ;
gotoxy (1,5);
write(' Cliente: ' ) ;
gotoxy (35,5);
write(' Fone: ' ) ;
gotoxy (55,5);
write(' Emissão: ' ) ;
gotoxy (1,7);
write(' Endereço: ' ) ;
gotoxy (35,7);
write(' UF: ' ) ;
gotoxy (55,7);
write(' Entrada/Saída:' ) ;

End;


Procedure Meio ;
// procedimento para criar tabela
Begin
gotoxy(1,12) ;
writeln( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,13);
write( ' | CÓDIGO | DESCRIÇÃO | ICMS | PREÇO | QTDE | TOTAL | ' ) ;
gotoxy (1,14);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,15);
write( ' | | | | | | | ' ) ;

end;

Procedure fim ;
// procedimento para criar parte final da nota

Begin
textcolor(yellow);
gotoxy (1,33);
write (' Valor ICMS: ');
gotoxy (55,33);
write (' Subtotal: ' );
gotoxy (1,35);
write (' Frete: ');
gotoxy (55,35);
total:=frete + subtotal + icms;
write (' Total da Nota: ', total);
gotoxy (25,37);
write (' AGRADECEMOS SUA PREFERÊNCIA! ');

End;

Procedure ler_inicio ;
// procedimento para ler dados do cliente
Begin
textcolor(yellow);
gotoxy (74,1); read (nota );
gotoxy (13,5); read (cliente);
gotoxy (44,5); read (fone);
gotoxy (67,5); read (emissao);
gotoxy (14,7); read (endereco);
gotoxy (42,7); read (uf);
gotoxy (73,7); read (saidaentrada);
End;

Procedure ler_meio;
// procedimento para ler tabela
Begin
gotoxy(1,9);
write(' Qtde Itens:' ) ;
read (qtde);
total_nota:=0;
while(cont<=qtde) do
Gotoxy(6 , cont +15); read(codigo);
Gotoxy( 22, cont +15); read(descricao);
Gotoxy( 32, cont +15); read(icms);
Gotoxy( 41, cont +15); read(preco);
Gotoxy( 54, cont +15); read(qtde);
subtotal:=preco*qtde;
Gotoxy(67 , cont +15); write(subtotal);


End;



Procedure ler_fim ;
// procedimento para criar parte final da nota

Begin
textcolor(red );
gotoxy (16,33);
read (valor);
gotoxy (69,33);
read (subtotal);
gotoxy (11,35);
read (frete);
gotoxy (73,35);
read (total);

End;


Begin

inicio;
ler_inicio;

End.

JOANA
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Em curso Re: Ajuda para fazer algoritmo de Nota Fiscal em Pascal

Mensagem por JOANA em 26/10/2009, 08:56

Program Nota_Fiscal ;

var
descricao,cliente,uf,endereco:string;
subtotal,total_nota,codigo,valor,frete,saidaentrada,emissao, preco:real;
total,total_geral,icms,nota,fone:real;
cont,qtde:integer;

Procedure Escreva_Nota;
//procedimento para dados do cliente
Begin

textcolor (yellow);
writeln ;
gotoxy (2,1);
writeln(' Supermercado Ideal ' ) ;
writeln ;
gotoxy (56,1);
writeln(' Nota Fiscal N: ' ) ;
writeln;
gotoxy (1,3);
write(' --------------------------------------------------------------------------- ' ) ;
gotoxy (1,5);
write(' Cliente: ' ) ;
gotoxy (35,5);
write(' Fone: ' ) ;
gotoxy (55,5);
write(' Emissão: ' ) ;
gotoxy (1,7);
write(' Endereço: ' ) ;
gotoxy (35,7);
write(' UF: ' ) ;
gotoxy (55,7);
write(' Entrada/Saída:' ) ;
gotoxy(1,12) ;
writeln( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,13);
write( ' | CÓDIGO | DESCRIÇÃO | ICMS | PREÇO | QTDE | SUBTOTAL | ' ) ;
gotoxy (1,14);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,15);
write( ' | | | | | | | ' ) ;
gotoxy (1,16);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,17);
write( ' | | | | | | | ' ) ;
gotoxy (1,18);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,19);
write( ' | | | | | | | ' ) ;
gotoxy (1,20);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,21);
write( ' | | | | | | | ' ) ;
gotoxy (1,22);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,23);
write( ' | | | | | | | ' ) ;
gotoxy (1,24);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,28);
write (' Valor ICMS: ');
gotoxy (50,28);
write (' Total: '+ ' R$ ');
gotoxy (1,30);
write (' Frete: ');
gotoxy (50,30);
write (' Total da Nota: ');
gotoxy (25,37);
write (' AGRADECEMOS SUA PREFERÊNCIA! ');
End;

Procedure Ler_Nota;

// procedimento para ler o inicio da nota fiscal
Begin
textcolor(yellow);
gotoxy (74,1); read (nota );
gotoxy (13,5); read (cliente);
gotoxy (44,5); read (fone);
gotoxy (67,5); read (emissao);
gotoxy (14,7); read (endereco);
gotoxy (42,7); read (uf);
gotoxy (73,7); read (saidaentrada);
gotoxy(1,9);
write(' Qtde Itens:' ) ;
read (qtde);
total_nota:=0;
//repete a leitura dos itens até qtde de itens
for cont:= 1 to qtde do
begin
Gotoxy(6 , cont +14); read(codigo);
Gotoxy(20 , cont +14); read(descricao);
Gotoxy(34, cont +14); read(preco);
Gotoxy(46 , cont +14); read (icms);
Gotoxy(56 , cont +14); read(qtde);
subtotal:= (preco + preco*icms/100)*qtde;
Gotoxy(65 , cont +14); write(subtotal :4:2);
total_nota:=total_nota + subtotal;
end;
// ler a parte final da nota
gotoxy (1,28);
read (icms);
gotoxy (50,28);
write(total_nota:4:2);
gotoxy (1,30);
read (frete);
gotoxy (50,30);
total_geral:= (total_nota+frete) + (total_nota+frete)*icms/100;
write(total_geral:4:2);


End;


//programa principal
Begin
Escreva_Nota;



End.

JOANA
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Em curso Re: Ajuda para fazer algoritmo de Nota Fiscal em Pascal

Mensagem por Marcos Guedes em 26/10/2009, 09:06

Olá, Joana!

Primeiramente gostaríamos de agradecer por sua participação!

Quanto a sua dúvida.
Você poderia explicar até chegou e qual o próximo passo que desejas, para que torne-se mais fácil lhe ajudar?

A outra dúvida é a seguinte:
Esta sua segunda mensagem, refere-se a quê?
Uma correção no código da primeira mensagem?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
http://portal.programacaobrasil.com

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Em curso Nota Fiscal Pascal.

Mensagem por Tales Ruan em 26/10/2009, 09:24

Joana,

Qual exatamente o problema com o seu programa em pascal?

Obrigado.

Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Ajuda para fazer algoritmo de Nota Fiscal em Pascal

Mensagem por JOANA em 27/10/2009, 14:37

Boa Tarde,

Pessoal, estou trabalhando no programa e vou mandar uma terceira vez "mais organizado" o problema é que que não consigo alinhar a tabela, quando vou inserir os dados a 2 vez fica em cima da linha e queria corrigir isto, tentei, mas ainda não consegui.
E se tem como ficar mais bonito?
Grata.........



Program Nota_Fiscal ;

var
descricao,cliente,uf,endereco:string;
subtotal,total_nota,codigo,valor,frete,saidaentrada,emissao, preco:real;
total,total_geral,icms,nota,fone:real;
cont,qtde:integer;

Procedure Escreva_Nota;
//procedimento para dados da nota fiscal
Begin

textcolor (yellow);
writeln ;
gotoxy (2,2);
writeln(' Supermercado Ideal ' ) ;
writeln ;
gotoxy (56,2);
writeln(' Nota Fiscal N: ' ) ;
writeln;
gotoxy (1,3);
write(' ------------------------------------------------------------------------- ' ) ;
gotoxy (1,5);
write(' Cliente: ' ) ;
gotoxy (35,5);
write(' Fone: ' ) ;
gotoxy (55,5);
write(' Emissão: ' ) ;
gotoxy (1,7);
write(' Endereço: ' ) ;
gotoxy (35,7);
write(' UF: ' ) ;
gotoxy (55,7);
write(' Entrada/Saída:' ) ;
gotoxy(1,12) ;
writeln( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,13);
write( ' | CÓDIGO | DESCRIÇÃO | ICMS | PREÇO | QTDE | SUBTOTAL | ' ) ;
gotoxy (1,14);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,15);
write( ' | | | | | | | ' ) ;
gotoxy (1,16);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,17);
write( ' | | | | | | | ' ) ;
gotoxy (1,18);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,19);
write( ' | | | | | | | ' ) ;
gotoxy (1,20);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,21);
write( ' | | | | | | | ' ) ;
gotoxy (1,22);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,23);
write( ' | | | | | | | ' ) ;
gotoxy (1,24);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,28);
write (' Valor ICMS: ');
gotoxy (50,28);
write (' Total: ' );
gotoxy (1,30);
write (' Frete: ');
gotoxy (50,30);
write (' Total da Nota: ');
gotoxy (25,37);
write (' AGRADECEMOS SUA PREFERÊNCIA! ');
End;


// procedimento para ler a nota fiscal
Procedure Ler_Nota;

Begin
//ler o inicio da nota
textcolor(yellow);
gotoxy (74,2); read (nota );
gotoxy (13,5); read (cliente);
gotoxy (44,5); read (fone);
gotoxy (67,5); read (emissao);
gotoxy (14,7); read (endereco);
gotoxy (42,7); read (uf);
gotoxy (73,7); read (saidaentrada);
gotoxy(1,9);
write(' Qtde Itens: ' ) ;
read (qtde);
total_nota:=0;
//repete a leitura dos itens até qtde de itens
for cont:= 1 to qtde do
begin
Gotoxy(6 , cont 14); read(codigo);
Gotoxy(20 , cont 14); read(descricao);
Gotoxy(34, cont 14); read(preco);
Gotoxy(46 , cont 14); read (icms);
Gotoxy(56 , cont 14); read(qtde);
subtotal:= (preco preco*icms/100)*qtde;
Gotoxy(65 , cont 14); write(subtotal :4:2);
total_nota:=total_nota subtotal;
end;
// ler a parte final da nota
gotoxy (16,28);
read (icms);
gotoxy (63,28);
write( ' R$ ',total_nota:4:2 );
gotoxy (11,30);
read (frete);
gotoxy (71,30);
total_geral:= (total_nota frete) (total_nota frete)*icms/100;
write(' R$ ',total_geral:4:2 );


End;


//programa principal
Begin

Escreva_Nota;
Ler_Nota;

End.

JOANA
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Em curso Nota fiscal Pascal

Mensagem por Tales Ruan em 30/10/2009, 16:15

Joana, estou sem o Pascal neste computador aqui, mas vou fazer umas correções que eu acho que devem resolver o seu problema. Me baseei no seu terceiro algoritmo:

Código:
 Program Nota_Fiscal ;

var
descricao,cliente,uf,endereco:string;
subtotal,total_nota,codigo,valor,frete,saidaentrada,emissao, preco:real;
total,total_geral,icms,nota,fone:real;
cont,qtde:integer;

Procedure Escreva_Nota;
//procedimento para dados da nota fiscal
Begin

textcolor (yellow);
writeln ;
gotoxy (2,2);
writeln(' Supermercado Ideal ' ) ;
writeln ;
gotoxy (56,2);
writeln(' Nota Fiscal N: ' ) ;
writeln;
gotoxy (1,3);
write(' ------------------------------------------------------------------------- ' ) ;
gotoxy (1,5);
write(' Cliente: ' ) ;
gotoxy (35,5);
write(' Fone: ' ) ;
gotoxy (55,5);
write(' Emissão: ' ) ;
gotoxy (1,7);
write(' Endereço: ' ) ;
gotoxy (35,7);
write(' UF: ' ) ;
gotoxy (55,7);
write(' Entrada/Saída:' ) ;
gotoxy(1,12) ;
writeln( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,13);
write( ' | CÓDIGO | DESCRIÇÃO | ICMS | PREÇO | QTDE | SUBTOTAL | ' ) ;
gotoxy (1,14);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,15);
write( ' | | | | | | | ' ) ;
gotoxy (1,16);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,17);
write( ' | | | | | | | ' ) ;
gotoxy (1,18);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,19);
write( ' | | | | | | | ' ) ;
gotoxy (1,20);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,21);
write( ' | | | | | | | ' ) ;
gotoxy (1,22);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,23);
write( ' | | | | | | | ' ) ;
gotoxy (1,24);
write( ' -------------------------------------------------------------------------- ' ) ;
gotoxy (1,28);
write (' Valor ICMS: ');
gotoxy (50,28);
write (' Total: ' );
gotoxy (1,30);
write (' Frete: ');
gotoxy (50,30);
write (' Total da Nota: ');
gotoxy (25,37);
write (' AGRADECEMOS SUA PREFERÊNCIA! ');
End;


// procedimento para ler a nota fiscal
Procedure Ler_Nota;

Begin
//ler o inicio da nota
textcolor(yellow);
gotoxy (74,2); read (nota );
gotoxy (13,5); read (cliente);
gotoxy (44,5); read (fone);
gotoxy (67,5); read (emissao);
gotoxy (14,7); read (endereco);
gotoxy (42,7);    read (uf);
gotoxy (73,7);    read (saidaentrada);
gotoxy(1,9);
write(' Qtde Itens: ' ) ;
read (qtde);
total_nota:=0;
//repete a leitura dos itens até qtde de itens
for cont:= 1 to qtde do
begin
Gotoxy(6 , cont+7); read(codigo);
Gotoxy(20 , cont+7 ); read(descricao);
Gotoxy(34, cont+7); read(preco);
Gotoxy(46 , cont+7); read (icms);
Gotoxy(56 , cont+7); read(qtde);
subtotal:= (preco preco*icms/100)*qtde;
Gotoxy(65 , cont 14); write(subtotal :4:2);
total_nota:=total_nota subtotal;
end;
// ler a parte final da nota
gotoxy (16,28);
read (icms);
gotoxy (63,28);
write( ' R$ ',total_nota:4:2 );
gotoxy (11,30);
read (frete);
gotoxy (71,30);
total_geral:= (total_nota frete) (total_nota frete)*icms/100;
write(' R$ ',total_geral:4:2 );


End;


//programa principal
Begin

Escreva_Nota;
Ler_Nota;   

End.

Não deixe de me avisar se funcionar, ou não Smile
Valeu!

Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Ajuda para fazer algoritmo de Nota Fiscal em Pascal

Mensagem por JOANA em 3/11/2009, 21:05

Olá amigo , olha não deu certo o programa não executou, como já falei o problema é quando o programa vai ler os itens da tabela : codigo, descricao,icms, e etc , qdo coloco a qtd itens: 2 por exemplo, entao qdo vou para o 2 ele fica em cima da linha............queria resolver este problema?
Abraços................

JOANA
Participa Pouco
Participa Pouco


Voltar ao Topo Ir em baixo

Em curso Re: Ajuda para fazer algoritmo de Nota Fiscal em Pascal

Mensagem por Tales Ruan em 14/11/2009, 11:26

Joana.. Acho que sei onde você está errando..

É nas posições das palavras.. nas funções GOTOXY()..

Os parâmetros são: GOTOXY(<COLUNA>,<LINHA>);

A coluna vai de 1 a 80 e a linha de 1 a 25.. Tem lugares no código que você fala em linha 30, 35.. nesse caso ele vai para a última linha existente, a 25, aí acaba escrevendo por cima de outras coisas..

Verifique isto no seu código que acho que você vai conseguir.. Qualquer coisa só postar.

(Obs: Já estou com o Pascal, vou responder mais rápido Very Happy)

Tales Ruan
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Em curso Re: Ajuda para fazer algoritmo de Nota Fiscal em Pascal

Mensagem por Marcos Guedes em 6/5/2010, 23:29

Conseguiu resolver o problema, Joana?

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
http://portal.programacaobrasil.com

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum