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
Últimos assuntos
Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

COMO ESTÃO DESENVOLVENDO EM WEB?

22/8/2016, 10:48 por AJC

Pessoal, já lí sobre vários topicos aqui no forum sobre desenvolvimento web
mas ainda nada …

Comentários: 2

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

dll pertocheck

15/12/2016, 12:45 por FERNANDOMATRELLA

Alguem teria ja desenvolvido a comunicação com essa dll estou tento muito trabalho aqui e nenhum …

Comentários: 1

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

Os nossos membros postaram um total de 4 mensagens em 2 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