Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
11 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 11 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
Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

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: 4

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

Estatísticas
Temos 7038 usuários registrados
O último usuário registrado atende pelo nome de CASTROCV

Os nossos membros postaram um total de 31 mensagens em 17 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.
avatar
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!
avatar
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)
avatar
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