Tela de digitação de pedidos

[Manoel]

Dia !!!!
Alguém poderia me dar umas dicas de como é que poderia fazer uma tela de digitação de pedidos
Atenciosamente.

[marbio]

Boa Noite!!! Use esta aqui vc tem que criar os banco de dados etc... e as funcoes so um Ex:

close all
*********************************
maquina=netname()
if netuse("&maquina",.t.,10)
*set index to pro002,pro001
zap
else
msgab()
return
endif

box3dr1(00,24,01,78);box3dr2(02,04,01,78)
*****box3dr2(07,18,03,21)
box3dr2(18,24,01,78)
box3dr2(22,24,01,78)

L=7
do while .t.
select 1
if netuse("produto",.f.,10)
set index to pro002, pro001, pro003
*********** nome codigo barra
else
msgab()
return
endif

select 2
if netuse("&maquina",.t.,10)
*set index to pro002,pro001
else
msgab()
return
endif

select 3
if netuse("credito",.f.,10)
set index to cre002,cre001
else
msgab()
return
endif

select 4
if netuse("comissao",.f.,10)
set index to com001
else
msgab()
return
endif

select 5
if netuse("banco",.f.,10)
set index to ban002, ban001
else
msgab()
return
endif

select 6
if netuse("cliente",.f.,10)
set index to cli002,cli001
else
msgab()
return
endif

select 7
if netuse("orden",.f.,10)
*set index to cli002,cli001
else
msgab()
return
endif



select 1
setcolor(cor3)
@23,15 say 'F2 e F3 - Pesquisa | F5-Alteracao | F9-Fecha Orcamento'
setcolor(cor2)

xtotalv=0
xtotalp=0
xtotalpv=0
xporc=0
xdin=0

*****************************************************
do while .t.
set key -1 to letraorca
set key -4 to alterorca
set key -8 to fechaorca


select 1
nbarra='!!!!! '
nVar=0
xlab=space(30)
xprod=space(30)
xest=0
xqtd=1
xvalor=0
xdes=0
ximp=' '
passou_pes=.f.
fim=.f.
setcolor(cor4)
@01,05 say 'Usuario.: ' +user
@03,06 say 'A vista R$:'
@03,50 say 'A prazo R$:'
@05,03 say 'Descricao Produto Quantidade Vr. Unit. Total R$'

@19,03 say 'Barra.....:' get nbarra pict '@!' valid nbarra <> space(13)
@19,30 say 'Laborat...:' +xlab pict '@!'
@20,03 say 'Descricao.:' +xprod
@20,60 say 'Estoque...:' +trans(xest,"9999")
@21,03 say 'Quantidade:' +trans(xqtd,'999999')
@21,30 say 'Valor R$..:' +trans(xvalor,'@E 9,999.99')
@21,60 say 'Desconto..:' +trans(xdes,'999999')
read

if fim=.t.
fim=.f.
exit
* do principa
endif

if lastkey()=27
if passou_pes=.t.
loop
else
fim=.t.
* exit
do principa
endif
endif

********** CODIGO ************************
if nbarra='NAO TEM'
select 1
set order to 2
seek nVar
if found()
nvar=codigo
xlab=labora
xprod=nome
xest=estoque
xvalor=venda
xdes=desconto
xpor=bonificado
*xcusto=custo
else
*alert("Atencao!!!;Produto nao Cadastro!!!")
loop
endif
*****************************************
else
********* BARRA **************************
select 1
set order to 3
seek nbarra
if found()
nvar=codigo
xlab=labora
xprod=nome
xest=estoque
xvalor=venda
xdes=desconto
xpor=bonificado
xcusto=custo
else
* alert("Atencao!!!;Produto nao Cadastro!!!")
loop
endif
endif
**********************************************

@19,03 say 'Codigo....:'
@19,30 say 'Laborat...:' + xlab pict '@!'
@20,03 say 'Descricao.:' + xprod
@20,60 say 'Estoque...:'+ trans(xest,"9999")
@21,03 say 'Quantidade:' get xqtd pict '99999' valid xqtd <> 0
@21,30 say 'Valor R$..:'+ trans(xvalor,'@E 9,999.99')
@21,60 say 'Desconto..:' get xdes pict '99999'
read
if lastkey()=27
* do principa
* restore screen
exit
endif

xsoma=xqtd*xvalor

select 2
append blank
replace codigo with nvar
replace labora with xlab
replace nome with xprod
replace unit with xvalor
replace venda with xsoma
*replace custo with xcusto
replace desconto with xdes
replace qtd with xqtd
replace bonificado with xpor
commit

@ l, 5 say xprod
@ l,35 say + trans(xqtd,"9999")
@ l,50 say + trans(xvalor,"@E 9,999.99")
@ l,68 say + trans(xsoma,"@E 9,999.99")
l++
*xsoma=xqtd*xsoma
xtotalp+=xsoma
xtotalm=xsoma-(xsoma*xdes/100)
xtotalv+=xtotalm

if (l>=18)
scroll(7,5,17,77,1)
l:=17
endif

setcolor(cor3)
@03,20 say xtotalv pict'@e 99,999.99'
@03,61 say xtotalp pict'@e 99,999.99'
setcolor(cor2)
enddo

if fim=.f.
loop
else
* do principa
alert("4")
exit
endif

enddo
return

********************************************************
function fechaorca()

select 2
*xver=venda
xver=xtotalv
if xver=0
return
endif
save screen

box3dr2(10,16,20,55)
setcolor(cor3)
@10,30 say 'Fecha Orcamento'
setcolor(cor2)
@12,25 say 'Tipo...: '
x=1
@12,35 prompt 'A Vista '
@13,35 prompt 'Cheque '
@14,35 prompt 'Convenio '
@15,35 prompt 'Orcamento '
menu to x
do case
case x=1
avista()
case x=2
cheque()
case x=3
orcamento()
case x=4
orcaimp()
endcase
restore screen