Error F0002 Redefinition of procedure or function: 'M2'
Enviado: 18 Mai 2010 08:49
qdo eu compilo da isso:
restt.prg(426) Error F0002 Redefinition of procedure or function: 'M2' (m2= mesa2)
olhem o codigo do programa e me digam porque da isso. obrigado.
restt.prg(426) Error F0002 Redefinition of procedure or function: 'M2' (m2= mesa2)
olhem o codigo do programa e me digam porque da isso. obrigado.
Código: Selecionar todos
procedure main()
local opcao := 0
contadorbuf:=0
valorbuf:=0
contadoresp:=0
valoresp:=0
contadorcoca:=0
valorcoca:=0
tottot:=0
totcontadorbuf:=0
totcontadorcoca:=0
totcontadoresp:=0
//--------------------
contadorrefrigarrafa:=0
valorrefrigarrafa:=0
contadorrefri2l:=0
valorrefri2l:=0
contadorrefri600:=0
valorrefri600:=0
contadorskolgarrafa600:=0
valorskolgarrafa600:=0
contadorskolgarrafa1l:=0
valorskolgarrafa1l:=0
contadorskollata:=0
valorskollata:=0
contadorbrahmagarrafa:=0
valorbrahmagarrafa:=0
contadorbrahmalata:=0
valorbrahmalata:=0
contadorkaisergarrafa:=0
valorkaisergarrafa:=0
contadorkaiserlata:=0
valorkaiserlata:=0
contadorbohemiagarrafa:=0
valorbohemiagarrafa:=0
contadorbohemialata:=0
valorbohemialata:=0
contadorboagarrafa:=0
valorboagarrafa:=0
contadorboalata:=0
valorboalata:=0
contadorbabaloo:=0
valorbabaloo:=0
contadortrident:=0
valortrident:=0
contadorhalls:=0
valorhalls:=0
resposta := " "
// MENU PRINCIPAL <---------------------------------------------------------------------
cls
do while .t.
@ 3,29 say "Escolha qual mesa deseja Add um item"
set message to 23 center
@ 10,32 prompt "MESA 1" message "Adiciona itens a mesa 1"
@ 11,32 prompt "MESA 2" message "Adiciona itens a mesa 2"
@ 12,32 prompt "MESA 3" message "Adiciona itens a mesa 3"
@ 13,32 prompt "MESA 4" message "Adiciona itens a mesa 4"
@ 14,32 prompt "MESA 5" message "Adiciona itens a mesa 5"
@ 15,32 prompt "MESA 6" message "Adiciona itens a mesa 6"
@ 16,32 prompt "MESA 7" message "Adiciona itens a mesa 7"
@ 17,32 prompt "MESA 8" message "Adiciona itens a mesa 8"
@ 18,32 prompt "MESA 9" message "Adiciona itens a mesa 9"
@ 19,32 prompt "MESA 10" message "Adiciona itens a mesa 10"
@ 24,55 prompt "SAIR" message "Sai do programa"
menu to opc
do case
case opc = 1
m1()
case opc=2
m2()
case opc=3
m3()
case opc=4
m4()
case opc=5
m5()
case opc=6
m6()
case opc=7
m7()
case opc=8
m8()
case opc = 9
m9()
case opc=10
m10()
case opc=11
cls
cancel
cls
endcase
enddo
return
cls
// FIM MENU PRINCIPAL <----------------------------------------------------------------------
// INICIO MESA 1 <--------------------------------------------------------------------------
procedure m1()
alert(" VC ESTA NA MESA 1")
cls
set message to 23 center
@ 3,33 say "VOCE ESTA NA MESA 1"
@ 5,33 say "Escolha o que deseja Add a mesa"
do while .t.
@ 10,10 prompt "Bebidas" message "Coca,Skol,Brahma,Sprite,etc..."
@ 11,10 prompt "Prato" message "Espeto ou buffet?"
@ 12,10 prompt "Goma de mascar" message "Trident,Halls,etc..."
@ 14,10 prompt "Fechar mesa" message "Finalizar compra"
@ 17,50 prompt "Voltar" message "VOLTAR AO MENU"
read
menu to opc
do case
case opc = 1
bebidas()
case opc = 2
prato()
case opc = 3
goma()
case opc=4
fim()
case opc = 5
cls
return
cls
endcase
enddo
return
//FIM MESA 1 E INICIO PROCEDURE BEBIDAS <---------------------------------------------------
procedure bebidas()
cls
@ 3,33 say "VOCE ESTA NA MESA 1"
do while .t.
@ 5,10 prompt "Refri lata 350 ml" message "Add refri lata 350ml a mesa 1"
@ 6,10 prompt "refri garrafa 290 ml" message "Add refri Garrafa 290ml a mesa 1"
@ 7,10 prompt "refri 2L" message "Add refri 2L a mesa 1"
@ 8,10 prompt "refri 600ml" message "Add refri 600ml a mesa 1"
@ 9,10 prompt "SKOL garrafa 600ml" message "Add SKOL garrafa 600ml a mesa 1"
@ 10,10 prompt "SKOL garrafa 1L" message "Add SKOL garrafa 1L a mesa 1"
@ 11,10 prompt "SKOL lata 350ml" message "Add SKOL lata 350ml a mesa 1"
@ 12,10 prompt "BRAHMA garrafa 600ml" message "Add BRAHMA garrafa 600ml a mesa 1"
@ 13,10 prompt "BRAHMA lata 350ml" message "Add BRAHMA lata 350ml a mesa 1"
@ 14,10 prompt "KAISER garrafa 600ml" message "Add KAISER garrafa 600ml a mesa 1"
@ 15,10 prompt "KAISER lata 350ml" message "Add KAISER lata 350ml a mesa 1"
@ 16,10 prompt "BOHEMIA garrafa 600ml" message "Add BOHEMIA garrafa 600ml a mesa 1"
@ 17,10 prompt "BOHEMIA lata 350ml" message "Add BOHEMIA lata 350ml a mesa 1"
@ 18,10 prompt "ANTARCTICA garrafa 600ml" message "Add ANTARCTICA garrafa 600ml a mesa 1"
@ 19,10 prompt "ANTARCTICA lata 350ml" message "Add ANTARCTICA lata 350ml a mesa 1"
@ 20,10 prompt "VOLTAR" MESSAGE "VOLTAR AO MENU ANTERIOR"
read
menu to opc
do case
case opc=1
refrilata()
case opc=2
refrigarrafa()
case opc=3
refri2l()
case opc=4
refri600()
case opc=5
skolgarrafa600()
case opc=6
skolgarrafa1l()
case opc=7
skollata()
case opc=8
brahmagarrafa()
case opc=9
brahmalata()
case opc =10
kaisergarrafa()
case opc = 11
kaiserlata()
case opc=12
bohemiagarrafa()
case opc=13
bohemialata()
case opc=14
boagarrafa()
case opc=15
boalata()
case opc=16
cls
return
cls
endcase
enddo
procedure refrilata()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorcoca += 1
valorcoca += 2.50
return
procedure refrigarrafa()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorrefrigarrafa += 1
valorrefrigarrafa += 2.00
return
procedure refri2l()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorrefri2l += 1
valorrefri2l += 5.00
return
procedure refri600()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorrefri600 += 1
valorrefri600 += 3.00
return
procedure skolgarrafa600()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorskolgarrafa600 += 1
valorskolgarrafa600 += 4.50
return
procedure skolgarrafa1l()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorskolgarrafa1l += 1
valorskolgarrafa1l += 5.00
return
procedure skollata()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorskollata += 1
valorskollata += 3.00
return
procedure brahmagarrafa()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorbrahmagarrafa += 1
valorbrahmagarrafa += 4.50
return
procedure brahmalata()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorbrahmalata += 1
valorbrahmalata += 3.00
return
procedure kaisergarrafa()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorkaisergarrafa += 1
valorkaisergarrafa += 4.50
return
procedure kaiserlata()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorkaiserlata += 1
valorkaiserlata += 3.00
return
procedure bohemiagarrafa()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorbohemiagarrafa += 1
valorbohemiagarrafa += 5.00
return
procedure bohemialata()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorbohemialata += 1
valorbohemialata += 3.50
return
procedure boagarrafa()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorboagarrafa += 1
valorboagarrafa += 4.50
return
procedure boalata()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorboalata += 1
valorboalata += 3.00
return
//FIM PROCEDURE BEBIDAS E INICIO PROCEDURE PRATO <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
procedure prato()
cls
@ 3,33 say "VOCE ESTA NA MESA 1"
do while .t.
@ 10,10 prompt "Buffet" message "add buffet a mesa 1"
@ 11,10 prompt "Espeto" message "add espeto a mesa 1"
@ 12,10 prompt "SAIR" MESSAGE "VOLTAR AO MENU"
menu to opc
do case
case opc = 1
buf()
case opc = 2
esp()
case opc = 3
cls
return
cls
endcase
enddo
procedure buf()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorbuf += 1
valorbuf += 7.50
return
procedure esp()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadoresp += 1
valoresp += 12.50
return
return
// FIM PROCEDURE PRATO E INICIO PROCEDURE GOMAS <---------------------------------------------
procedure goma()
cls
@ 3,33 say "VOCE ESTA NA MESA 1"
do while .t.
@ 15,10 prompt "Trident" message "Add trident"
@ 16,10 prompt "Halls" message "Add halls"
@ 17,10 prompt "Babaloo" message "Add Babaloo"
@ 18,10 prompt "SAIR" MESSAGE "VOLTA AO MENU ANTERIOR"
menu to opc
do case
case opc = 1
trident()
case opc = 2
halls()
case opc=3
babaloo()
case opc=4
cls
return
endcase
enddo
procedure trident()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadortrident +=1
valortrident +=1.50
return
procedure babaloo()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorbabaloo +=1
valorbabaloo +=0.15
return
procedure halls()
@ 3,33 say "VOCE ESTA NA MESA 1"
contadorhalls +=1
valorhalls +=1.00
return
return
//FIM PROCEDURE GOMAS <------------------------------------------------------------
// BUXA <-----------------------FINALIZAR VENDA----------------------------------
procedure fim()
tottot := valorcoca+valorbuf+valoresp+valorrefrigarrafa+valorrefri2l+valorrefri600+valorskolgarrafa600+valorskolgarrafa1l+valorskollata+valorbrahmagarrafa+valorbrahmalata+valorkaisergarrafa+valorkaiserlata+valorbohemiagarrafa+valorbohemialata+valorboagarrafa+valorboalata+valorbabaloo+valortrident+valorhalls
totcontadorbuf := contadorbuf
totcontadoresp := contadoresp
totcontadorcoca:= contadorcoca
contadorrefrigarrafa := contadorrefrigarrafa
if tottot == 0
alert("Adicione algo antes de fechar a mesa")
return
elseif tottot >= 2
cls
@ 3,20 say "Fechar mesa 1? [S] p/ sim ou [N] p/ nao" Get Resposta Pict "!"
read
if resposta == "S"
//dar TOODAS AS RESPOSTAS
@ 2,20 say "buffet " get totcontadorbuf when.f.
@ 3,20 say "espeto " get totcontadoresp when.f.
@ 4,20 say "refri's lata " get totcontadorcoca when .f.
@ 5,20 say "refri g " get contadorrefrigarrafa when.f.
@ 6,20 say "refri 2l " get contadorrefri2l when .f.
@ 7,20 say "refri 600ml " get contadorrefri600 when .f.
@ 8,20 say "skol garrafa 600ml " get contadorskolgarrafa600 when .f.
@ 9,20 say "skol 1l " get contadorskolgarrafa1l when .f.
@ 10,20 say "skol lata " get contadorskollata when .f.
@ 11,20 say "brahma garrafa 600ml " get contadorbrahmagarrafa when .f.
@ 12,20 say "brahma lata " get contadorbrahmalata when .f.
@ 13,20 say "kaiser garrafa 600ml " get contadorkaisergarrafa when .f.
@ 14,20 say "kaiser lata " get contadorkaiserlata when .f.
@ 15,20 say "bohemia garrafa 600ml " get contadorbohemiagarrafa when .f.
@ 16,20 say "bohemia lata " get contadorbohemialata when .f.
@ 17,20 say "BOA garrafa 600ml " get contadorboagarrafa when .f.
@ 18,20 say "BOA lata " get contadorboalata when .f.
@ 19,20 say "Babaloo UN " get contadorbabaloo when .f.
@ 20,20 say "Trident UN " get contadortrident when .f.
@ 21,20 say "Halls UN " get contadorhalls when .f.
@ 23,20 say "TOTAL..: " get tottot when .f.
read
inkey(0)
//zerar vairaveis
cls
elseif resposta =="N"
cls
return
endif
endif
//COPIAR TUDO P/ MESA 2,3,4,5,6,7,8,9...
[color=#FF0000]procedure m2()[/color]
// --
// INICIO MESA 2 <--------------------------------------------------------------------------
procedure m2()
alert(" VC ESTA NA MESA 2")
cls
set message to 23 center
@ 3,33 say "VOCE ESTA NA MESA 2"
@ 5,33 say "Escolha o que deseja Add a mesa"
do while .t.
@ 10,10 prompt "Bebidas" message "Coca,Skol,Brahma,Sprite,etc..."
@ 11,10 prompt "Prato" message "Espeto ou buffet?"
@ 12,10 prompt "Goma de mascar" message "Trident,Halls,etc..."
@ 14,10 prompt "Fechar mesa" message "Finalizar compra"
@ 17,50 prompt "Voltar" message "VOLTAR AO MENU"
read
menu to opc
do case
case opc = 1
bebidas()
case opc = 2
prato()
case opc = 3
goma()
case opc=4
fim()
case opc = 5
cls
return
cls
endcase
enddo
return
//FIM MESA 2 E INICIO PROCEDURE BEBIDAS <---------------------------------------------------
procedure bebidas()
cls
@ 3,33 say "VOCE ESTA NA MESA 2"
do while .t.
@ 5,10 prompt "Refri lata 350 ml" message "Add refri lata 350ml a mesa 2"
@ 6,10 prompt "refri garrafa 290 ml" message "Add refri Garrafa 290ml a mesa 2"
@ 7,10 prompt "refri 2L" message "Add refri 2L a mesa 2"
@ 8,10 prompt "refri 600ml" message "Add refri 600ml a mesa 2"
@ 9,10 prompt "SKOL garrafa 600ml" message "Add SKOL garrafa 600ml a mesa 2"
@ 10,10 prompt "SKOL garrafa 1L" message "Add SKOL garrafa 1L a mesa 2"
@ 11,10 prompt "SKOL lata 350ml" message "Add SKOL lata 350ml a mesa 2"
@ 12,10 prompt "BRAHMA garrafa 600ml" message "Add BRAHMA garrafa 600ml a mesa 2"
@ 13,10 prompt "BRAHMA lata 350ml" message "Add BRAHMA lata 350ml a mesa 2"
@ 14,10 prompt "KAISER garrafa 600ml" message "Add KAISER garrafa 600ml a mesa 2"
@ 15,10 prompt "KAISER lata 350ml" message "Add KAISER lata 350ml a mesa 2"
@ 16,10 prompt "BOHEMIA garrafa 600ml" message "Add BOHEMIA garrafa 600ml a mesa 2"
@ 17,10 prompt "BOHEMIA lata 350ml" message "Add BOHEMIA lata 350ml a mesa 2"
@ 18,10 prompt "ANTARCTICA garrafa 600ml" message "Add ANTARCTICA garrafa 600ml a mesa 2"
@ 19,10 prompt "ANTARCTICA lata 350ml" message "Add ANTARCTICA lata 350ml a mesa 2"
@ 20,10 prompt "VOLTAR" MESSAGE "VOLTAR AO MENU ANTERIOR"
read
menu to opc
do case
case opc=1
refrilata()
case opc=2
refrigarrafa()
case opc=3
refri2l()
case opc=4
refri600()
case opc=5
skolgarrafa600()
case opc=6
skolgarrafa1l()
case opc=7
skollata()
case opc=8
brahmagarrafa()
case opc=9
brahmalata()
case opc =10
kaisergarrafa()
case opc = 11
kaiserlata()
case opc=12
bohemiagarrafa()
case opc=13
bohemialata()
case opc=14
boagarrafa()
case opc=15
boalata()
case opc=16
cls
return
cls
endcase
enddo
procedure refrilata()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorcoca += 1
valorcoca += 2.50
return
procedure refrigarrafa()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorrefrigarrafa += 1
valorrefrigarrafa += 2.00
return
procedure refri2l()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorrefri2l += 1
valorrefri2l += 5.00
return
procedure refri600()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorrefri600 += 1
valorrefri600 += 3.00
return
procedure skolgarrafa600()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorskolgarrafa600 += 1
valorskolgarrafa600 += 4.50
return
procedure skolgarrafa1l()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorskolgarrafa1l += 1
valorskolgarrafa1l += 5.00
return
procedure skollata()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorskollata += 1
valorskollata += 3.00
return
procedure brahmagarrafa()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorbrahmagarrafa += 1
valorbrahmagarrafa += 4.50
return
procedure brahmalata()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorbrahmalata += 1
valorbrahmalata += 3.00
return
procedure kaisergarrafa()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorkaisergarrafa += 1
valorkaisergarrafa += 4.50
return
procedure kaiserlata()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorkaiserlata += 1
valorkaiserlata += 3.00
return
procedure bohemiagarrafa()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorbohemiagarrafa += 1
valorbohemiagarrafa += 5.00
return
procedure bohemialata()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorbohemialata += 1
valorbohemialata += 3.50
return
procedure boagarrafa()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorboagarrafa += 1
valorboagarrafa += 4.50
return
procedure boalata()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorboalata += 1
valorboalata += 3.00
return
//FIM PROCEDURE BEBIDAS E INICIO PROCEDURE PRATO <~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
procedure prato()
cls
@ 3,33 say "VOCE ESTA NA MESA 2"
do while .t.
@ 10,10 prompt "Buffet" message "add buffet a mesa 2"
@ 11,10 prompt "Espeto" message "add espeto a mesa 2"
@ 12,10 prompt "SAIR" MESSAGE "VOLTAR AO MENU"
menu to opc
do case
case opc = 1
buf()
case opc = 2
esp()
case opc = 3
cls
return
cls
endcase
enddo
procedure buf()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorbuf += 1
valorbuf += 7.50
return
procedure esp()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadoresp += 1
valoresp += 12.50
return
return
// FIM PROCEDURE PRATO E INICIO PROCEDURE GOMAS <---------------------------------------------
procedure goma()
cls
@ 3,33 say "VOCE ESTA NA MESA 2"
do while .t.
@ 15,10 prompt "Trident" message "Add trident"
@ 16,10 prompt "Halls" message "Add halls"
@ 17,10 prompt "Babaloo" message "Add Babaloo"
@ 18,10 prompt "SAIR" MESSAGE "VOLTA AO MENU ANTERIOR"
menu to opc
do case
case opc = 1
trident()
case opc = 2
halls()
case opc=3
babaloo()
case opc=4
cls
return
endcase
enddo
procedure trident()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadortrident +=1
valortrident +=1.50
return
procedure babaloo()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorbabaloo +=1
valorbabaloo +=0.15
return
procedure halls()
@ 3,33 say "VOCE ESTA NA MESA 2"
contadorhalls +=1
valorhalls +=1.00
return
return
//FIM PROCEDURE GOMAS <------------------------------------------------------------
// BUXA <-----------------------FINALIZAR VENDA----------------------------------
procedure fim()
tottot := valorcoca+valorbuf+valoresp+valorrefrigarrafa+valorrefri2l+valorrefri600+valorskolgarrafa600+valorskolgarrafa1l+valorskollata+valorbrahmagarrafa+valorbrahmalata+valorkaisergarrafa+valorkaiserlata+valorbohemiagarrafa+valorbohemialata+valorboagarrafa+valorboalata+valorbabaloo+valortrident+valorhalls
totcontadorbuf := contadorbuf
totcontadoresp := contadoresp
totcontadorcoca:= contadorcoca
contadorrefrigarrafa := contadorrefrigarrafa
if tottot == 0
alert("Adicione algo antes de fechar a mesa")
return
elseif tottot >= 2
cls
@ 3,20 say "Fechar mesa 2? [S] p/ sim ou [N] p/ nao" Get Resposta Pict "!"
read
if resposta == "S"
//dar TOODAS AS RESPOSTAS
@ 2,20 say "buffet " get totcontadorbuf when.f.
@ 3,20 say "espeto " get totcontadoresp when.f.
@ 4,20 say "refri's lata " get totcontadorcoca when .f.
@ 5,20 say "refri g " get contadorrefrigarrafa when.f.
@ 6,20 say "refri 2l " get contadorrefri2l when .f.
@ 7,20 say "refri 600ml " get contadorrefri600 when .f.
@ 8,20 say "skol garrafa 600ml " get contadorskolgarrafa600 when .f.
@ 9,20 say "skol 1l " get contadorskolgarrafa1l when .f.
@ 10,20 say "skol lata " get contadorskollata when .f.
@ 11,20 say "brahma garrafa 600ml " get contadorbrahmagarrafa when .f.
@ 12,20 say "brahma lata " get contadorbrahmalata when .f.
@ 13,20 say "kaiser garrafa 600ml " get contadorkaisergarrafa when .f.
@ 14,20 say "kaiser lata " get contadorkaiserlata when .f.
@ 15,20 say "bohemia garrafa 600ml " get contadorbohemiagarrafa when .f.
@ 16,20 say "bohemia lata " get contadorbohemialata when .f.
@ 17,20 say "BOA garrafa 600ml " get contadorboagarrafa when .f.
@ 18,20 say "BOA lata " get contadorboalata when .f.
@ 19,20 say "Babaloo UN " get contadorbabaloo when .f.
@ 20,20 say "Trident UN " get contadortrident when .f.
@ 21,20 say "Halls UN " get contadorhalls when .f.
@ 23,20 say "TOTAL..: " get tottot when .f.
read
inkey(0)
//zerar vairaveis
cls
elseif resposta =="N"
cls
return
endif
endif
return
procedure m3()
alert("VA PARA A MESA 1")
return
procedure m4()
alert("VA PARA A MESA 1")
return
procedure m5()
alert("VA PARA A MESA 1")
return
procedure m6()
alert("VA PARA A MESA 1")
return
procedure m7()
alert("VA PARA A MESA 1")
return
procedure m8()
alert("VA PARA A MESA 1")
return
procedure m9()
alert("VA PARA A MESA 1")
return
procedure m10()
alert("VA PARA A MESA 1")
return