Com o menu principal

helio · Mensagem por **helio** » 15 Ago 2007 17:59

Pessoal estou usando o XHarbour + GTWVW o problema e o seguinte o menu principal esta sendo montado na tela tudo ok mais as vezes tanto no servidor quanto no terminal (que roda o sistema no servidor) de vezes em quando algumas opcao passar a chamar outra coisa que nao tem nada a ver e nao sei porque isso acontece por isso estou pedindo a ajuda de voce e estou postanto o prg (mais nao estar completo) para que possa analisar Valeu.

Helio Beltrao
helio@hrbinfo.com.br

#INCLUDE "wingdi.ch"
#INCLUDE "winuser.ch"

#define MENUARQ_1 001
#define MENUARQ_2 002
#define MENUARQ_3 003
#define MENUARQ_4 004
#define MENUARQ_5 005
#define MENUARQ_6 006
#define MENUARQ_7 007
#define MENUARQ_8 008
#define MENUARQ_9 009
#define MENUARQ_10 010
#define MENUARQ_11 011
#define MENUARQ_12 012
#define MENUARQ_13 013
#define MENUARQ_14 014
#define MENUARQ_15 015
#define MENUARQ_16 016
#define MENUARQ_17 017
#define MENUARQ_18 018
#define MENUARQ_19 019
#define MENUARQ_20 020
#define MENUARQ_21 021
#define MENUARQ_22 022

#define MENUMOV_1 050
#define MENUMOV_2 051
#define MENUMOV_3 052
#define MENUMOV_4 053
#define MENUMOV_5 054
#define MENUMOV_6 055
#define MENUMOV_7 056
#define MENUMOV_8 057
#define MENUMOV_9 058
#define MENUMOV_10 059
#define MENUMOV_11 060
#define MENUMOV_12 061
#define MENUMOV_13 062
#define MENUMOV_14 063
#define MENUMOV_15 064
#define MENUMOV_16 065
#define MENUMOV_17 066
#define MENUMOV_18 067
#define MENUMOV_19 068
#define MENUMOV_20 069
#define MENUMOV_21 070
#define MENUMOV_22 071
#define MENUMOV_23 072
#define MENUMOV_24 073
#define MENUMOV_25 074
#define MENUMOV_26 075
#define MENUMOV_27 076
#define MENUMOV_28 077
#define MENUMOV_29 078

#define MENUPED_1 090
#define MENUPED_2 091
#define MENUPED_3 092
#define MENUPED_4 093
#define MENUPED_5 094
#define MENUPED_6 095
#define MENUPED_7 096
#define MENUPED_8 097
#define MENUPED_9 098
#define MENUPED_10 099
#define MENUPED_11 100

#define MENUNF_1 120
#define MENUNF_2 121
#define MENUNF_3 122
#define MENUNF_4 123
#define MENUNF_5 124
#define MENUNF_6 125
#define MENUNF_7 126
#define MENUNF_8 127

#define MENUORC_1 140
#define MENUORC_2 141
#define MENUORC_3 142
#define MENUORC_4 143
#define MENUORC_5 144
#define MENUORC_6 145
#define MENUORC_7 146
#define MENUORC_8 147
#define MENUORC_9 148
#define MENUORC_10 149
#define MENUORC_11 150

#define MENUHV_1 170
#define MENUHV_2 171
#define MENUHV_3 172
#define MENUHV_4 173

#define MENUDUPP_1 190
#define MENUDUPP_2 191
#define MENUDUPP_3 192
#define MENUDUPP_4 193
#define MENUDUPP_5 194
#define MENUDUPP_6 195
#define MENUDUPP_7 196
#define MENUDUPP_8 197
#define MENUDUPP_9 198
#define MENUDUPP_10 199
#define MENUDUPP_11 200

#define MENUDUPR_1 230
#define MENUDUPR_2 231
#define MENUDUPR_3 232
#define MENUDUPR_4 233
#define MENUDUPR_5 234
#define MENUDUPR_6 235
#define MENUDUPR_7 236
#define MENUDUPR_8 237
#define MENUDUPR_9 238
#define MENUDUPR_10 239
#define MENUDUPR_11 240
#define MENUDUPR_12 241

#define MENUDUPR_20 250
#define MENUDUPR_21 251
#define MENUDUPR_22 252
#define MENUDUPR_23 253
#define MENUDUPR_24 254
#define MENUDUPR_25 255

#define MENUTROC_1 270
#define MENUTROC_2 271

#define MENUCX_1 400
#define MENUCX_2 401
#define MENUCX_3 402
#define MENUCX_4 403
#define MENUCX_5 404
#define MENUCX_6 405
#define MENUCX_7 406
#define MENUCX_8 407
#define MENUCX_9 408
#define MENUCX_10 409
#define MENUCX_11 410
#define MENUCX_12 411
#define MENUCX_13 412
#define MENUCX_14 413
#define MENUCX_15 414
#define MENUCX_16 415
#define MENUCX_17 416
#define MENUCX_18 417
#define MENUCX_19 418
#define MENUCX_20 419
#define MENUCX_21 420
#define MENUCX_22 421
#define MENUCX_23 422
#define MENUCX_24 423
#define MENUCX_25 424
#define MENUCX_26 425
#define MENUCX_27 426
#define MENUCX_28 427
#define MENUCX_29 428

#define MENUCONS_1 500
#define MENUCONS_2 501
#define MENUCONS_3 502
#define MENUCONS_4 503
#define MENUCONS_5 504
#define MENUCONS_6 505
#define MENUCONS_7 506
#define MENUCONS_8 507
#define MENUCONS_9 508
#define MENUCONS_10 509
#define MENUCONS_11 510
#define MENUCONS_12 511
#define MENUCONS_13 512
#define MENUCONS_14 513
#define MENUCONS_15 514
#define MENUCONS_16 515
#define MENUCONS_17 516
#define MENUCONS_18 517
#define MENUCONS_19 518
#define MENUCONS_20 519
#define MENUCONS_21 520
#define MENUCONS_22 521
#define MENUCONS_23 522
#define MENUCONS_24 523
#define MENUCONS_25 524
#define MENUCONS_26 525
#define MENUCONS_27 526
#define MENUCONS_28 527
#define MENUCONS_29 528

#define MENUREL_1 600
#define MENUREL_2 601
#define MENUREL_3 602
#define MENUREL_4 603
#define MENUREL_5 604
#define MENUREL_6 605
#define MENUREL_7 606
#define MENUREL_8 607
#define MENUREL_9 608
#define MENUREL_10 609
#define MENUREL_11 610
#define MENUREL_12 611
#define MENUREL_13 612
#define MENUREL_14 613
#define MENUREL_15 614
#define MENUREL_16 615
#define MENUREL_17 616
#define MENUREL_18 617
#define MENUREL_19 618
#define MENUREL_20 619
#define MENUREL_21 620
#define MENUREL_22 621
#define MENUREL_23 622
#define MENUREL_24 623
#define MENUREL_25 624
#define MENUREL_26 625
#define MENUREL_27 626
#define MENUREL_28 627
#define MENUREL_29 628
#define MENUREL_30 629
#define MENUREL_31 630
#define MENUREL_32 631
#define MENUREL_33 632
#define MENUREL_34 633
#define MENUREL_35 634
#define MENUREL_36 635
#define MENUREL_37 636
#define MENUREL_38 637
#define MENUREL_39 638
#define MENUREL_40 639
#define MENUREL_41 640
#define MENUREL_42 641
#define MENUREL_43 642
#define MENUREL_44 643
#define MENUREL_45 644
#define MENUREL_46 645
#define MENUREL_47 646
#define MENUREL_48 647
#define MENUREL_49 648
#define MENUREL_50 649
#define MENUREL_51 650
#define MENUREL_52 651
#define MENUREL_53 652

#define MENUUTIL_1 700
#define MENUUTIL_2 701
#define MENUUTIL_3 702
#define MENUUTIL_4 703
#define MENUUTIL_5 704
#define MENUUTIL_6 705
#define MENUUTIL_7 706
#define MENUUTIL_8 707
#define MENUUTIL_9 708
#define MENUUTIL_10 709
#define MENUUTIL_11 710
#define MENUUTIL_12 711
#define MENUUTIL_13 712
#define MENUUTIL_14 713
#define MENUUTIL_15 714
#define MENUUTIL_16 715
#define MENUUTIL_17 716
#define MENUUTIL_20 719
#define MENUUTIL_21 720
#define MENUUTIL_22 721
#define MENUUTIL_23 722
#define MENUUTIL_24 723
#define MENUUTIL_25 724
#define MENUUTIL_26 725
#define MENUUTIL_27 726
#define MENUUTIL_30 729
#define MENUUTIL_31 730
#define MENUUTIL_32 731
#define MENUUTIL_33 732
#define MENUUTIL_34 733
#define MENUUTIL_35 734
#define MENUUTIL_36 735
#define MENUUTIL_37 736
#define MENUUTIL_38 737
#define MENUUTIL_39 738
#define MENUUTIL_40 739
#define MENUUTIL_41 740
#define MENUUTIL_42 741
#define MENUUTIL_43 742
#define MENUUTIL_44 743
#define MENUUTIL_45 744
#define MENUUTIL_46 745

#define MENUSAI_1 850
#define MENUSAI_2 851
#define MENUSAI_3 852

#define MENUEMP_1 861

*******************
* MENU PRINCIPAL
*******************
FUNCTION sac0()
***************
MEMVAR mdata_sis,memp_resa,mversao,cod_operado,mcaminho,mol,sistema
LOCAL opcao,tela,tela0
PUBLIC rl_pd[15],mcol_public,mnum_principal
PRIVATE mcod_vend
Wvw_Setcodepage(,255)
IF cfg->op_tela = '0'
mcol_public := 80
WVW_SetFont(,'Ms Sans Serif',8, 10,, PROOF_QUALITY ) // 800X600
ELSE
mcol_public := 100
WVW_SetFont(,,26,,, PROOF_QUALITY ) // 1024X768
ENDIF
mnum_principal := wvw_nopenwindow('',00,00,24,mcol_public)
wvw_setmaincoord(.F.)
wvw_noclose()
wvw_SetPaintRefresh()
wvw_SetVertCaret(.F.)
wvw_maximize()
WVW_CenterWindow(,.T.,.T.)
wvw_SetPaintRefresh()
Wvw_SetTitle( ,memp_resa+SPACE(50) )
//wvw_size_ready(.T.)
//wvw_enableshortcuts(0,.T.)

set key 23 to
opcao:=0
mdata_sis := DATE()
WVW_SBCreate()
WVW_SBAddPart(,,110,0,.F.)
WVW_SBSetText(,1,'{SAC0}')
WVW_SBAddPart(,,60,0,.F.)
WVW_SBSetText(,2,set->nomenf)
WVW_SBAddPart(,,220,0,.F.)
WVW_SBSetText(,3,'Empresa: '+ALLTRIM(mcodempresa)+'-'+SUBSTR(memp_resa,1,20))
WVW_SBAddPart(,,80,0,.F.)
WVW_SBSetText(,4,' ')
WVW_SBAddPart(,,130,0,.F.)
WVW_SBSetText(,5,' >>SISCOM '+mversao+'<< ')
WVW_SBAddPart(,,235,0,.F.)
WVW_SBSetText(,6,'.:HRB Informatica - (81)3325.6663/3755.1489:.')

IF ! senha();fim(,'*');ENDIF // Solicitar senha do sistema
WVW_SBSetText(,4,'Operador: '+ALLTRIM(cod_operado))

* VERIFICAR A ROTINA DE SEGURANCA *
sacseg('*')

setcor(1)

IF set->usa_dolar = 'S'
IF ! AbriArq('sacdolar','dolar');RETURN NIL;ENDIF
ver_dolar(mdata_sis,'*')
*****************************
SELE('dolar');ORDSETFOCUS(1)
GO BOTT
*****************************
setcor(4)
DEVPOS(24,17);DEVOUT('DOLAR R$:'+TRANSFORM(dolar->vlr_dolar,'999.99'))
ENDIF
tela0 := SAVESCREEN(00,00,24,79)

SET KEY 287 TO alt_senha // ALT+S
IF ! AbriArq('sacsetup','set');RETURN NIL;ENDIF
IF ! AbriArq('insopera','sen');RETURN NIL;ENDIF
*************************
SELE('sen');ORDSETFOCUS(1)
*************************
ver_mensa(cod_operado) // verifica mensagens
IF ! AbriArq('saccfg','cfg');RETURN NIL;ENDIF
ope_manu()
exibi_prg('SAC0')

SETINKEYAFTERBLOCK({|nkey| AfterInkey(nkey)})
hMainMenu = WVW_CreateMenu( )
hSubMenu1 = WVW_CreateMenu( )

hSubMenu2 = WVW_CreateMenu( )
hPEDMenu2 = WVW_CreateMenu( )
hORCMenu2 = WVW_CreateMenu( )
hNFMenu2 = WVW_CreateMenu( )
hHVMenu2 = WVW_CreateMenu( )
hDUPPMenu2 = WVW_CreateMenu( )
hDUPRMenu2 = WVW_CreateMenu( )
hDUPRMenu2_1 = WVW_CreateMenu( )
hTROCMenu2 = WVW_CreateMenu( )

hSubMenu3 = WVW_CreateMenu( )
hSubMenu4 = WVW_CreateMenu( )

hSubMenu5 = WVW_CreateMenu( )
hRELMenu5 = WVW_CreateMenu( )

hSubMenu6 = WVW_CreateMenu( )
hSubMenu6_1 = WVW_CreateMenu( )
hSubMenu6_2 = WVW_CreateMenu( )
hSubMenu6_3 = WVW_CreateMenu( )
hSubMenu6_4 = WVW_CreateMenu( )

hSubMenu7 = WVW_CreateMenu( )
hSubMenu8 = WVW_CreateMenu( )
hSubMenu9 = WVW_CreateMenu( )

WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , hSubMenu1 , "Arquivos", )
WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , hSubMenu2 , "Movimento", )
WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , hSubMenu3 , "Caixa", )
WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , hSubMenu4 , "Consultas", )
WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , hSubMenu5 , "Relatorios", )
WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , hSubMenu6 , "Utilitarios", )
WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , MENUUTIL_10 , "Ajuda", )
//WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , MENUUTIL_12 , "Sair", )
IF mmult_emp = 'S'
WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , MENUEMP_1 , "Mudar de EMPRESA", )
ELSE
WVW_AppendMenu( hMainMenu , MF_GRAYED + MF_POPUP , MENUEMP_1 , "Mudar de EMPRESA", )
ENDIF
WVW_AppendMenu( hMainMenu , MF_ENABLED + MF_POPUP , hSubMenu9 , "Sair", )

WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_1 , "0 -> Grupo ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_2 , "1 -> Sub_Grupo ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_3 , "2 -> Produto ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_4 , "3 -> Cliente/Outros ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_5 , "4 -> Fornecedor/Outras Despesas", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_6 , "5 -> Operador/Vendedor ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_7 , "6 -> Tabelas UF/Imposto ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_8 , "7 -> Formas Pagamentos (CARTAO)", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_9 , "8 -> Despesas ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_10 , "9 -> Transportadora ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_11 , "A -> Operacao de Nota (CFOP) ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_12 , "B -> Financiamentos ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_13 , "C -> Aliquotas Financiamento ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_14 , "D -> Bancos ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_15 , "E -> Especie Produto ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_16 , "F -> Cotacao Dolar ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_17 , "G -> Conta de Despesas ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_18 , "H -> Regioes de Vendedores ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_19 , "I -> Cadastro de Cidades ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_20 , "J -> Classificacao Fiscal ", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_21 , "L -> Tabela Condicoes Pagamento", )
WVW_AppendMenu( hSubMenu1 , MF_ENABLED + MF_POPUP , MENUARQ_22 , "M -> Mensagens p/Observacao ", )

// MENU MOVIMENTO

WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , hPEDmenu2 , "0 -> Pedido de Venda ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , hNFmenu2 , "1 -> Notas Fiscais ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_1 , "2 -> Entrada de Mercadoria ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_2 , "3 -> Pedido de Compra ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , hORCmenu2 , "4 -> Orcamento ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_3 , "5 -> Cheque sem Fundo ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_4 , "6 -> Estorno Ent.de Produto ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , hHVmenu2 , "7 -> Estoque Haver ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , hDUPPmenu2 ,"8 -> Documentos a PAGAR ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , hDUPRmenu2 ,"9 -> Documentos a RECEBER ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_5 , "A -> Balanco ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , hTROCmenu2 ,"B -> Troca Mercadorias ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_7 , "C -> Rotina de Seguranca ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_8 , "D -> Boleto Bancario/Promissoria", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_9 , "E -> Conta Corrente Bancaria ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_10 ,"F -> Agrupamento de PEDIDOS ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_11 ,"G -> Detalhe de Mercadoria ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_12 ,"H -> Menu de Romaneios Cargas ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_13 ,"I -> Atualiza a FRENTE DE LOJA ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_14 ,"J -> Lista de Faltas de PRODUTO ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_15 ,"K -> Emitir Ticket p/Embalagem ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_16 ,"L -> Menu Romaneio de PRODUCAO ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_17 ,"M -> Menu Assistencia PRODUTOS ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_18 ,"N -> Menu CREDITO DE CLIENTES ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_19 ,"O -> Menu ORDEM DE SERVICOS ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_20 ,"P -> Menu SOLICITACAO DE PEDIDO ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_21 ,"Q -> Menu EXPEDICAO DE PEDIDO ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_22 ,"R -> Menu PROTOCOLO NOTAS ENTRADA", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_23 ,"S -> Menu Reajuste Parcial PRODUTOS", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_24 ,"T -> Menu COTACAO DE PRODUTOS", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_25 ,"U -> Arquivos p/POCKET PC ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_26 ,"V -> PEDIDOS p/POCKET PC ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_27 ,"X -> LIMPEZA do POCKET PC ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_28 ,"Y -> Lancamento Nota Frete ", )
WVW_AppendMenu( hSubMenu2 , MF_ENABLED + MF_POPUP , MENUMOV_29 ,"Z -> AGRUPAMENTO ESEPCIAL (L.B)", )

// SUB-MENU DO PEDIDOS

WVW_AppendMenu( hpedMenu2 , MF_ENABLED + MF_POPUP , MENUPED_1 , "0-> Emissao PEDIDO", )
WVW_AppendMenu( hpedMenu2 , MF_ENABLED + MF_POPUP , MENUPED_2 , "1-> Alteracao PEDIDOS", )
WVW_AppendMenu( hpedMenu2 , MF_ENABLED + MF_POPUP , MENUPED_3 , "2-> 2a.via do PEDIDO", )
WVW_AppendMenu( hpedMenu2 , MF_ENABLED + MF_POPUP , MENUPED_4 , "3-> Orcamento p/ Pedido", )
WVW_AppendMenu( hpedMenu2 , MF_ENABLED + MF_POPUP , MENUPED_5 , "4-> Cancelar PEDIDOS", )
WVW_AppendMenu( hpedMenu2 , MF_ENABLED + MF_POPUP , MENUPED_6 , "5-> Estorno Cancelamento", )
WVW_AppendMenu( hpedMenu2 , MF_ENABLED + MF_POPUP , MENUPED_7 , "6-> Entrega de PEDIDOS", )
WVW_AppendMenu( hpedMenu2 , MF_ENABLED + MF_POPUP , MENUPED_8 , "7-> TALAO para PEDIDOS", )
WVW_AppendMenu( hpedMenu2 , MF_ENABLED + MF_POPUP , MENUPED_9 , "8-> Liberar ou Cancelar'", )
WVW_AppendMenu( hpedMenu2 , MF_ENABLED + MF_POPUP , MENUPED_10 , "9-> Estorno de Liberacao", )
WVW_AppendMenu( hpedMenu2 , MF_ENABLED + MF_POPUP , MENUPED_11 , "A-> Re-Emissao Frente Loja", )

// SUB-MENU NOTA FISCAL

WVW_AppendMenu( hNFmenu2 , MF_ENABLED + MF_POPUP , MENUNF_1 , "0-> Emissao ", )
WVW_AppendMenu( hNFmenu2 , MF_ENABLED + MF_POPUP , MENUNF_2 , "1-> Emissao p/Agrupamento", )
WVW_AppendMenu( hNFmenu2 , MF_ENABLED + MF_POPUP , MENUNF_3 , "2-> 2a.Via ", )
WVW_AppendMenu( hNFmenu2 , MF_ENABLED + MF_POPUP , MENUNF_4 , "3-> Cancelamento ", )
WVW_AppendMenu( hNFmenu2 , MF_ENABLED + MF_POPUP , MENUNF_5 , "4-> Alterar/Excl. ", )
WVW_AppendMenu( hNFmenu2 , MF_ENABLED + MF_POPUP , MENUNF_6 , "5-> Nota Fiscal CORRECAO ", )
WVW_AppendMenu( hNFmenu2 , MF_ENABLED + MF_POPUP , MENUNF_7 , "6-> Estorno CANCELAMENTO ", )
WVW_AppendMenu( hNFmenu2 , MF_ENABLED + MF_POPUP , MENUNF_8 , "7-> Emissao Nota BALCAO ", )

// SUB-MENU ORCAMENTO

WVW_AppendMenu( horcmenu2 , MF_ENABLED + MF_POPUP , MENUORC_1 , "0-> Emissao ORCAMENTO ", )
WVW_AppendMenu( horcmenu2 , MF_ENABLED + MF_POPUP , MENUORC_2 , "1-> Alteracao ORCAMENTO ", )
WVW_AppendMenu( horcmenu2 , MF_ENABLED + MF_POPUP , MENUORC_3 , "2-> 2a.via do ORCAMENTO", )
WVW_AppendMenu( horcmenu2 , MF_ENABLED + MF_POPUP , MENUORC_4 , "3-> Orcamento p/ Pedido ", )
WVW_AppendMenu( horcmenu2 , MF_ENABLED + MF_POPUP , MENUORC_5 , "4-> Cancelar ORCAMENTO", )
WVW_AppendMenu( horcmenu2 , MF_ENABLED + MF_POPUP , MENUORC_6 , "5-> Estorno Cancelamento ", )
WVW_AppendMenu( horcmenu2 , MF_ENABLED + MF_POPUP , MENUORC_7 , "6-> 2a.Via Restante do ORCAMENTO", )
WVW_AppendMenu( horcmenu2 , MF_ENABLED + MF_POPUP , MENUORC_8 , "7-> Estorno de ORCAMENTO", )
WVW_AppendMenu( horcmenu2 , MF_ENABLED + MF_POPUP , MENUORC_9 , "8-> Liberar ou Cancelar'", )
WVW_AppendMenu( horcmenu2 , MF_ENABLED + MF_POPUP , MENUORC_10 , "9-> Estorno de Liberacao", )
WVW_AppendMenu( horcmenu2 , MF_ENABLED + MF_POPUP , MENUORC_11 , "A-> Re-Emissao Frente Loja", )

// SUB-MENU ESTOQUE HAVER

WVW_AppendMenu( hHVmenu2 , MF_ENABLED + MF_POPUP , MENUHV_1 , "1-> ENTRADA",)
WVW_AppendMenu( hHVmenu2 , MF_ENABLED + MF_POPUP , MENUHV_2 , "2-> BAIXA",)
WVW_AppendMenu( hHVmenu2 , MF_ENABLED + MF_POPUP , MENUHV_3 , "3-> ESTORNO", )
WVW_AppendMenu( hHVmenu2 , MF_ENABLED + MF_POPUP , MENUHV_4 , "4-> ALTERACAO", )

// SUB-MENU DOC. A PAGAR

WVW_AppendMenu( hDUPPmenu2 , MF_ENABLED + MF_POPUP , MENUDUPP_1 , "Inclusao Documento ", )
WVW_AppendMenu( hDUPPmenu2 , MF_ENABLED + MF_POPUP , MENUDUPP_2 , "Alteracao Documento ", )
WVW_AppendMenu( hDUPPmenu2 , MF_ENABLED + MF_POPUP , MENUDUPP_3 , "Exclusao Documento ", )
WVW_AppendMenu( hDUPPmenu2 , MF_ENABLED + MF_POPUP , MENUDUPP_4 , "Consulta Documento ", )
WVW_AppendMenu( hDUPPmenu2 , MF_ENABLED + MF_POPUP , MENUDUPP_5 , "EStorno Documento ", )
WVW_AppendMenu( hDUPPmenu2 , MF_ENABLED + MF_POPUP , MENUDUPP_6 , "Baixa Documentos ", )
WVW_AppendMenu( hDUPPmenu2 , MF_ENABLED + MF_POPUP , MENUDUPP_7 , "Baixa Geral Documentos", )
WVW_AppendMenu( hDUPPmenu2 , MF_ENABLED + MF_POPUP , MENUDUPP_8 , "Relatorios ", )
WVW_AppendMenu( hDUPPmenu2 , MF_ENABLED + MF_POPUP , MENUDUPP_9 , "Inclusao Varios Documentos", )
WVW_AppendMenu( hDUPPmenu2 , MF_ENABLED + MF_POPUP , MENUDUPP_10 , "Fluxo de Caixa ", )
WVW_AppendMenu( hDUPPmenu2 , MF_ENABLED + MF_POPUP , MENUDUPP_11 , "Agrupamento Documentos ", )

// SUB-MENU DOC. A RECEBER

WVW_AppendMenu( hDUPRmenu2 , MF_ENABLED + MF_POPUP , MENUDUPR_1 , "Inclusao Documento ", )
WVW_AppendMenu( hDUPRmenu2 , MF_ENABLED + MF_POPUP , MENUDUPR_2 , "Alteracao Documento ", )
WVW_AppendMenu( hDUPRmenu2 , MF_ENABLED + MF_POPUP , MENUDUPR_3 , "Exclusao Documento ", )
WVW_AppendMenu( hDUPRmenu2 , MF_ENABLED + MF_POPUP , MENUDUPR_4 , "Consulta Documento ", )
WVW_AppendMenu( hDUPRmenu2 , MF_ENABLED + MF_POPUP , MENUDUPR_5 , "EStorno Documento ", )
WVW_AppendMenu( hDUPRmenu2 , MF_ENABLED + MF_POPUP , hDUPRmenu2_1,"Baixa Documentos ", )
WVW_AppendMenu( hDUPRmenu2 , MF_ENABLED + MF_POPUP , MENUDUPR_6 , "Relatorios ", )
WVW_AppendMenu( hDUPRmenu2 , MF_ENABLED + MF_POPUP , MENUDUPR_7 , "Inclusao Varios Documentos", )
WVW_AppendMenu( hDUPRmenu2 , MF_ENABLED + MF_POPUP , MENUDUPR_8 , "Cadastro Tipo Documentos", )
WVW_AppendMenu( hDUPRmenu2 , MF_ENABLED + MF_POPUP , MENUDUPR_9 , "Fluxo de Caixa '", )
WVW_AppendMenu( hDUPRmenu2 , MF_ENABLED + MF_POPUP , MENUDUPR_10 ,"A Grupamento Documento ", )
WVW_AppendMenu( hDUPRmenu2 , MF_ENABLED + MF_POPUP , MENUDUPR_11 ,"Inclusao de Va Les ", )
WVW_AppendMenu( hDUPRmenu2 , MF_ENABLED + MF_POPUP , MENUDUPR_12 ,"Processo de Documentos ", )
// SUB-MENU BAIXA DE DOCUMENTOS
WVW_AppendMenu( hDUPRmenu2_1 , MF_ENABLED + MF_POPUP , MENUDUPR_20 , "0-> Individual Documento ", )
WVW_AppendMenu( hDUPRmenu2_1 , MF_ENABLED + MF_POPUP , MENUDUPR_21 , "1-> Geral Documento ", )
WVW_AppendMenu( hDUPRmenu2_1 , MF_ENABLED + MF_POPUP , MENUDUPR_22 , "2-> Estorno Documento ", )
WVW_AppendMenu( hDUPRmenu2_1 , MF_ENABLED + MF_POPUP , MENUDUPR_23 , "3-> Transferencia Documento", )
WVW_AppendMenu( hDUPRmenu2_1 , MF_ENABLED + MF_POPUP , MENUDUPR_24 , "4-> Baixa Parcial Documento", )
WVW_AppendMenu( hDUPRmenu2_1 , MF_ENABLED + MF_POPUP , MENUDUPR_25 , "5-> Demonstrativo Debito ", )

// SUB-MENU TROCAS

WVW_AppendMenu( hTROCmenu2 , MF_ENABLED + MF_POPUP , MENUTROC_1 , "0-> Emissao TROCA", )
WVW_AppendMenu( hTROCmenu2 , MF_ENABLED + MF_POPUP , MENUTROC_2 , "1-> 2a.Via da TROCA", )

// MENU CAIXA

WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_1 , "0 -> Recebimentos Pedidos ", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_2 , "1 -> Recebimento Diversos ", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_3 , "2 -> Vales ", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_4 , "5 -> Despesas ", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_5 , "6 -> Cancelar/Alt. Despesas ", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_6 , "7 -> Fechamento e Consulta ", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_7 , "8 -> Cancela Pedidos Pedente", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_8 , "9 -> Faturamento p/Periodo ", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_9 , "A -> Fundo Caixa ", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_10 , "B -> Retirada Deposito ", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_11 , "C -> Baixa Documento Receber", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_12 , "D -> Estorno Recebimento ", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_13 , "E -> Despesas Administrativa", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_14 , "F -> Baixa Documento Apagar ", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_15 , "H -> Recibos ", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_16 , "I -> Preenchimento Cheques ", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_17 , "J -> Emissao de Carnes ", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_18 , "K -> Emissao de CREDITO ", )
WVW_AppendMenu( hSubMenu3 , MF_ENABLED + MF_POPUP , MENUCX_19 , "L -> Consulta de CEP'S ", )

// MENU CONSULTA

WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_1 , "0 -> Produto ", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , hRELmenu5 , "1 -> Movimento ", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_3 , "2 -> Cliente ", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_4 , "3 -> Fornecedor/Outras Despesas", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_5 , "4 -> Cheques ", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_6 , "5 -> Documento ", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_7 , "6 -> Pedidos ", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_8 , "7 -> Documentos a RECEBER ", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_9 , "8 -> Documentos a PAGAR ", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_10 , "9 -> Saldo Geral de ICM'S ", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_11 , "A -> NF.Emitidas/Recebidas ", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_12 , "B -> Faturamento p/Periodo ", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_13 , "C -> Despesas ", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_14 , "D -> Fluxo de Caixa ", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_15 , "E -> Calculo de Financiamento ", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_16 , "F -> Calculo de Custos ", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_17 , "G -> Conta Corrente Banco ", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_18 , "H -> Consulta Telefone Clientes", )
WVW_AppendMenu( hSubMenu4 , MF_ENABLED + MF_POPUP , MENUCONS_19 , "I -> Consulta Recebimento ", )

// MENU RELATORIO

WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_1 , "1 -> Tabela de Preco ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_2 , "2 -> Tabela de Preco Manual ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_3 , "3 -> Tabela p/Terminal ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_4 , "4 -> Tabela Custo ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , hRELmenu5 , "5 -> Movimento Produto e Comissao ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_6 , "6 -> Listagem ICM ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_7 , "8 -> Cheque s/ Fundo ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_8 , "9 -> Recibos ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_9 , "A -> Abaixo do Minimo ou Maximo ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_10 , "B -> Despesa/Vales/Receb/Retirada Deposito ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_11 , "C -> Clientes ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_12 , "D -> Contas a Pagar ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_13 , "E -> Contas a Receber ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_14 , "F -> Listagem Consultas ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_15 , "G -> Listagem p/Balanco ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_16 , "H -> Listagem Est. A.V. ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_17 , "I -> Relat. Pedidos/Orcamento ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_18 , "J -> Notas Fiscais ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_19 , "K -> Etiquetas ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_20 , "L -> Plan.Cad. Cliente ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_21 , "M -> Emissao de Cadastro ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_22 , "N -> Relatorio Solicitacoes ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_23 , "O -> T E X T O ", )
WVW_AppendMenu( hSubMenu5 , MF_ENABLED + MF_POPUP , MENUREL_24 , "P -> Entrada Materia Prima (EXCEL)", )

// SUB-MENU RELATORIO MOVIMENTO DE PRODUTO E COMISSAO
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_25 , "0 -> por PRODUTO ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_26 , "1 -> p/Produto/Vendedor ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_27 , "2 -> Geral ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_28 , "3 -> Resumo (Entrada/Saida) ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_29 , "4 -> Resumo (Saidas/Lucros) ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_30 , "5 -> por FORNECEDOR ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_31 , "6 -> por CLIENTE ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_32 , "7 -> Estatistica Prod.p/Mes ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_33 , "8 -> Resumo de GRUPOS ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_34 , "9 -> Sintetico de Clientes ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_35 , "A -> Sintetico Clientes CNPJ/CPF", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_36 , "B -> Estatistica Cliente p/Mes ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_37 , "C -> Movimento Produto p/SERIAL ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_38 , "D -> Movim. Prod.Estoque Haver ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_39 , "E -> Comissao por Vendedor ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_40 , "F -> Venda/Comissao p/Produto ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_41 , "G -> Posicao Vendas/Comissao ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_42 , "H -> Resumo Vendas p/Produto ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_43 , "I -> Classificacao dos Produto ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_44 , "J -> Estatistica Venda p/Dia ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_45 , "L -> Resumo Produto e Comisao ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_46 , "M -> Produto sem Movimento ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_47 , "N -> Vendas a Menor ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_48 , "O -> Estat. Vlr.Venda/Pr.Tabela ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_49 , "P -> Movimento p/Documentos ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_50 , "Q -> Sintetico de Fornecedor ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_51 , "R -> Comissao de CLIENTE EM DIA ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_52 , "S -> Relatorio Entrada Produto ", )
WVW_AppendMenu( hRELmenu5 , MF_ENABLED + MF_POPUP , MENUREL_53 , "T -> Classificacao dos Clientes ", )

// MENU UTILITARIO

WVW_AppendMenu( hSubMenu6 , MF_ENABLED + MF_POPUP , hSubMenu6_1, "Configuracao Geral", )
WVW_AppendMenu( hSubMenu6 , MF_ENABLED + MF_POPUP , MENUUTIL_2 , "Niveis de Acessos ", )
WVW_AppendMenu( hSubMenu6 , MF_ENABLED + MF_POPUP , MENUUTIL_3 , "Gerar Tabela p/ECF", )
WVW_AppendMenu( hSubMenu6 , MF_ENABLED + MF_POPUP , MENUUTIL_4 , "Ler Arquivo DOS ", )
WVW_AppendMenu( hSubMenu6 , MF_ENABLED + MF_POPUP , MENUUTIL_5 , "Calculadora ", )
WVW_AppendMenu( hSubMenu6 , MF_ENABLED + MF_POPUP , MENUUTIL_6 , "Calendario ", )
WVW_AppendMenu( hSubMenu6 , MF_ENABLED + MF_POPUP , MENUUTIL_7 , "Calculo de Custos ", )
WVW_AppendMenu( hSubMenu6 , MF_ENABLED + MF_POPUP , MENUUTIL_8 , "Recibo da HRB ", )
WVW_AppendMenu( hSubMenu6 , MF_ENABLED + MF_POPUP , MENUUTIL_9 , "Relatorio de Visita HRB", )
WVW_AppendMenu( hSubMenu6 , MF_ENABLED + MF_POPUP , MENUUTIL_10 , "Informacoes da HRB ", )
WVW_AppendMenu( hSubMenu6 , MF_ENABLED + MF_POPUP , MENUUTIL_11 , "Relogio de Ponto ", )

//SUB-MENU UTILITARIO CONFIGURACAO DO SISTEMA

WVW_AppendMenu( hSubMenu6_1 , MF_ENABLED + MF_POPUP , hSubMenu6_2, "Configuracoes do SISTEMA", )
WVW_AppendMenu( hSubMenu6_1 , MF_ENABLED + MF_POPUP , hSubMenu6_3, "Arquivos Contabil", )
WVW_AppendMenu( hSubMenu6_1 , MF_ENABLED + MF_POPUP , hSubMenu6_4, "Manutencao do SISTEMA", )

WVW_AppendMenu( hSubMenu6_2 , MF_ENABLED + MF_POPUP , MENUUTIL_12, "0 -> Configuracao do SISTEMA ", )
WVW_AppendMenu( hSubMenu6_2 , MF_ENABLED + MF_POPUP , MENUUTIL_13, "1 -> Configuracao dos TERMINAIS ", )
WVW_AppendMenu( hSubMenu6_2 , MF_ENABLED + MF_POPUP , MENUUTIL_14, "2 -> Conf.INDIVIDUAL TERMINAL ", )
WVW_AppendMenu( hSubMenu6_2 , MF_ENABLED + MF_POPUP , MENUUTIL_15, "3 -> Configuracao NIVEL ACESSO ", )
WVW_AppendMenu( hSubMenu6_2 , MF_ENABLED + MF_POPUP , MENUUTIL_16, "4 -> Config.da EMPRESA PRINCIPAL", )
WVW_AppendMenu( hSubMenu6_2 , MF_ENABLED + MF_POPUP , MENUUTIL_17, "5 -> Cadastro de EMPRESAS ", )

WVW_AppendMenu( hSubMenu6_3 , MF_ENABLED + MF_POPUP , MENUUTIL_20, "0 -> Arquivo do SEF ", )
WVW_AppendMenu( hSubMenu6_3 , MF_ENABLED + MF_POPUP , MENUUTIL_21, "1 -> Arquivo do SINTEGRA ", )
WVW_AppendMenu( hSubMenu6_3 , MF_ENABLED + MF_POPUP , MENUUTIL_22, "2 -> Arquivo SCI ", )
WVW_AppendMenu( hSubMenu6_3 , MF_ENABLED + MF_POPUP , MENUUTIL_23, "3 -> Arquivo da CONTABILIDADE ", )
WVW_AppendMenu( hSubMenu6_3 , MF_ENABLED + MF_POPUP , MENUUTIL_24, "6 -> Cadastro do Contador ", )
WVW_AppendMenu( hSubMenu6_3 , MF_ENABLED + MF_POPUP , MENUUTIL_25, "8 -> Gerar Arquivo MAT.PRIMA P/EXCEL ", )
WVW_AppendMenu( hSubMenu6_3 , MF_ENABLED + MF_POPUP , MENUUTIL_26, "9 -> Gerar Arquivo p/SERASA ", )
WVW_AppendMenu( hSubMenu6_3 , MF_ENABLED + MF_POPUP , MENUUTIL_27, "A -> Arquivo do EQUIFAX ", )

WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_30, "0 -> Reajuste de PRODUTOS '", )
WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_31, "1 -> Promocao de PRODUTOS '", )
WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_32, "2 -> Ajuste de COMISSAO NO PEDIDO '", )
WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_33, "3 -> Alterar Vend., Operador e Montador '", )
WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_34, "4 -> Ocorrencias do Sistems '", )
WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_35, "5 -> Arquivo LOG '", )
WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_36, "6 -> EXPORTA Arquivo da TABELA DE PRECO '", )
WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_37, "7 -> IMPORTA Arquivo da TABELA DE PRECO '", )
WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_38, "8 -> Lancamento de Notas Fiscais FRETE '", )
WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_39, "9 -> Relatorio de INVENTARIO ", )
WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_40, "A -> Controle de VISITAS ", )
WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_41, "B -> Atualizacao dos ARQUIVOS do SISTEMA", )
WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_42, "C -> Manutencao de BALANCO ", )
WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_43, "D -> Manutencao ARQUIVO MORTO ", )
WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_44, "E -> Manutencao RELOGIO DE PONTO", )
IF ver_serie() = '975976'
WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_45, "F -> Gerar Parcelas de Pagamentos", )
WVW_AppendMenu( hSubMenu6_4 , MF_ENABLED + MF_POPUP , MENUUTIL_46, "G -> Emissao de Recibos ", )
ENDIF

//WVW_AppendMenu( hSubMenu7 , MF_ENABLED + MF_POPUP , MENUUTIL_10 , "Informacoes de Suporte", )

//WVW_AppendMenu( hSubMenu8 , MF_ENABLED + MF_POPUP , MENUUTIL_15, "Mudar de EMPRESA", )

WVW_AppendMenu( hSubMenu9 , MF_ENABLED + MF_POPUP , MENUSAI_1, "Sair do Sistema", )
WVW_AppendMenu( hSubMenu9 , MF_ENABLED + MF_POPUP , MENUSAI_2, "Retornar ao Sistema", )
WVW_AppendMenu( hSubMenu9 , MF_ENABLED + MF_POPUP , MENUSAI_3, "Deixar na SENHA", )

WVW_SetMenu(, hMainMenu )

WHILE LASTKEY()<>27
//WVW_DrawImage( ,00,00,24,100,'C:\HELIO\SIACHB\HRBTELA1.JPG',.T.,.T.)
limpa(MAXROW(),00,MAXROW(),79)
INKEY(0)
ENDDO
//wvw_lclosewindow()
SET CURSOR ON
*-----------------------------------------------------
IF ! ABRARQ('sen')
IF ! AbriArq('insopera','sen');RETURN NIL;ENDIF
ENDIF
*-----------------------------------------------------
*************
SELE('sen');ORDSETFOCUS(2)
GO TOP
*************

IF ! sen->(DBSEEK(cod_operado))
atencao('Operador foi Excluido !!!')
ELSE
IF BLOQREG()
sen-> sult_fim := DATE()
sen-> shora_fim := TIME()
sen-> sh_i_c := ' '
COMMIT
UNLOCK
ELSE
atencao('Nao foi possivel Acessar o Arquivo !!!')
RETURN NIL
ENDIF
ENDIF
DBUNLOCK()
SETCOLOR('W/N,X')
DBCOMMITALL()
DBCLOSEALL()
limpa(00,00,24,79)
setcor(1)
botao(00,01,22,78)
setcor(5)
DEVPOS(02,3);DEVOUT('ÚÛÛÛÚÛÛÛ ÚÛÛÛÛÛÛÛ ÚÛÛÛÛÛÛÛ')
DEVPOS(03,3);DEVOUT('³ÛÛÛ³ÛÛÛ ³ÛÛÛ¿ÛÛÛ ³ÛÛÛ¿ÛÛÛ')
DEVPOS(04,3);DEVOUT('³ÛÛÛÛÛÛÛ ³ÛÛÛÛÛÛÛ ³ÛÛÛÛÛÛÙ')
DEVPOS(05,3);DEVOUT('³ÛÛÛ¿ÛÛÛ ³ÛÛÛ¿ÛÛÙ ³ÛÛÛ¿ÛÛÛ')
DEVPOS(06,3);DEVOUT('³ÛÛÛ³ÛÛÛ ³ÛÛÛ³ÛÛÛ ³ÛÛÛÛÛÛÛ')
DEVPOS(07,3);DEVOUT('ÀÄÄÙÀÄÄÙ ÀÄÄÙÀÄÄÙ ÀÄÄÄÄÄÄÙ')
DEVPOS(08,3);DEVOUT(' SOLUCOES EM INFORMATICA ')
SETCOLOR('n/W,X')
DEVPOS(02,12);DEVOUT('ÚÛÛÛÛÛÛÛ')
DEVPOS(03,12);DEVOUT('³ÛÛÛ¿ÛÛÛ')
DEVPOS(04,12);DEVOUT('³ÛÛÛÛÛÛÛ')
DEVPOS(05,12);DEVOUT('³ÛÛÛ¿ÛÛÙ')
DEVPOS(06,12);DEVOUT('³ÛÛÛ³ÛÛÛ')
DEVPOS(07,12);DEVOUT('ÀÄÄÙÀÄÄÙ')
DEVPOS(02,31);DEVOUT('.: H R B Solucoes em Informatica :. ')
DEVPOS(03,31);DEVOUT('ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ')
setcor(5)
DEVPOS(04,31);DEVOUT(' Rua Agenor Lopes, 292 - Sl.403 ')
DEVPOS(05,31);DEVOUT(' Boa Viagem - Recife - PE ')
DEVPOS(06,31);DEVOUT('Fone:(81)3325.6663 - Tacaimbo:(81)3755.1489')
DEVPOS(07,31);DEVOUT('H‚lio:(81)9975.5923 Roberta:(81)9239.7928')
DEVPOS(08,31);DEVOUT('www.hrbinfo.com.br - helio@hrbinfo.com.br')

botao(10,12,16,68)
setcor(3)
DEVPOS(11,14);DEVOUT('>>> '+sistema+' <<<')
setcor(5)
DEVPOS(14,31);DEVOUT(memp_resa)
setcor(1)
DEVPOS(13,14);DEVOUT(REPLI('ß',LEN('Copia Exclusiva: '+memp_resa)),setcor(3))
DEVPOS(14,14);DEVOUT('Copia Exclusiva: ')
DEVPOS(15,14);DEVOUT(REPLI('Ü',LEN('Copia Exclusiva: '+memp_resa)))

botao(18,02,21,56)
SETCOLOR('r/w')
DEVPOS(19,04);DEVOUT('A tentativa de COPIA deste Sistema pode acarretar')
DEVPOS(20,04);DEVOUT('Problemas irreversiveis para seu Computador')
DEVPOS(22,00);DEVOUT('')
SETCOLOR(cor)
CLEAR MEMORY
INKEY(1)
QUIT
RETURN
************************************** F I M *****************************************
FUNCTION AfterInkey(nkey)
**************************
LOCAL MenuId

IF nKey=1024
MenuId:=WVW_GETLASTMENUEVENT()
//WVW_DrawImage( ,00,00,24,100,'C:\HELIO\SIACHB\HRBTELA1.JPG',.T.,.F.)

IF MenuId=MENUARQ_1 // GRUPO
sac10()
ELSEIF MenuId=MENUARQ_2 // SUB-GRUPO
sac101()
ELSEIF MenuId=MENUARQ_3
f4_merc('*')
ELSEIF MenuId=MENUARQ_4 // CLIENTE
*************
IF ! AbriArq('insopera','sen');RETURN NIL;ENDIF
IF ! AbriArq('saccep','cep');RETURN NIL;ENDIF
IF ! AbriArq('sacsetup','set');RETURN NIL;ENDIF
IF ! AbriArq('saccli','cli');RETURN NIL;ENDIF
IF ! AbriArq('sactabme','tabme');RETURN NIL;ENDIF
IF ! AbriArq('regiao','reg');RETURN NIL;ENDIF
IF ! AbriArq('sacmerc','merc');RETURN NIL;ENDIF
IF ! AbriArq('sacforn','forn');RETURN NIL;ENDIF
set_key('cliente')
SELE('cli');ORDSETFOCUS(2)
GO TOP
*************
SET KEY -6 TO f7_cli
f7_cli('*')
ELSEIF MenuId=MENUARQ_5 // FORNECEDOR
******************************************
IF ! AbriArq('sacdesp','cdesp');RETURN NIL;ENDIF
IF ! AbriArq('sacforn','forn');RETURN NIL;ENDIF
SELE('forn');ORDSETFOCUS(2)
GO TOP
******************************************
f6_forn('*')
ELSEIF MenuId=MENUARQ_6 // OPERADOR
sacsenha('*')
ELSEIF MenuId=MENUARQ_7 // ESTADOS
sac18()
ELSEIF MenuId=MENUARQ_8 // CARTOES
sac19('*')
ELSEIF MenuId=MENUARQ_9 // DESPESAS
sac17()
ELSEIF MenuId=MENUARQ_10 // TRANSPORTADORA
sac12()
ELSEIF MenuId=MENUARQ_11 // CFOP
sac1op('*')
ELSEIF MenuId=MENUARQ_12 // FINANCIAMENTO
sac1fin()
ELSEIF MenuId=MENUARQ_13 // ALIQUOTA FINANCIMENTO
sac2fin()
ELSEIF MenuId=MENUARQ_14 // BANCOS
sac1ban()
ELSEIF MenuId=MENUARQ_15 //ESPECIE DO PRODUTO
sacespe()
ELSEIF MenuId=MENUARQ_16 // COTACAO DO DOLAR
sacdolar()
ELSEIF MenuId=MENUARQ_17 // CONTAS DEPESAS
f9_conta('*')
ELSEIF MenuId=MENUARQ_18 // REGIAO DE VENDEDORES
sacreg()
ELSEIF MenuId=MENUARQ_19 // CADASTRO DE CIDADES
saccid('*')
ELSEIF MenuId=MENUARQ_20 // CLASSIFICACAO FISCAL NF
sacclf()
ELSEIF MenuId=MENUARQ_21 // CONDICOES DE PAGAMENTOS
sac20('*')
ELSEIF MenuId=MENUARQ_22 // MENSAGENS PARA OBS.
sacobs('*')

// MOVIMENTOS

ELSEIF MenuId=MENUMOV_1 // ENTRADA DE PRODUTOS
sac22()
ELSEIF MenuId=MENUMOV_2 // PEDIDO DE COMPRA DE PRODUTOS
sac230()
ELSEIF MenuId=MENUMOV_3 // CHEQUE SEM FUNDO
sac26()
ELSEIF MenuId=MENUMOV_4 // ESTORNO DE ENTRADA DE MERCADORIA
sac29()
ELSEIF MenuId=MENUMOV_5 // BALANCO
sacbal1()
ELSEIF MenuId=MENUMOV_6 // TROCA
sactroca()
ELSEIF MenuId=MENUMOV_7 // ROTINA DE SEGURANCA
sacseg()
ELSEIF MenuId=MENUMOV_8 // EMISSAO DE BOLETOS
sacbolet()
ELSEIF MenuId=MENUMOV_9 // MOVIMENTOS CONTA CORRENTE
sac2cc1()
ELSEIF MenuId=MENUMOV_10 // AGRUPAMENTO DE PEDIDOS
sac2ped()
ELSEIF MenuId=MENUMOV_11 // DETALHE DO PRODUTO
sacdeta()
ELSEIF MenuId=MENUMOV_12 // MENU ROMANEIO
sac5rom()
ELSEIF MenuId=MENUMOV_13 //
IF set->tip_ecf = 'B'
saccxbm()
ELSE
saccxsc()
ENDIF
ELSEIF MenuId=MENUMOV_14 // LISTA DE FALTA DE PRODUTOS
sacpdflt()
ELSEIF MenuId=MENUMOV_15 // EMITIR TICKET DE EMBALAGEM
sac5ped1(,,,'*')
ELSEIF MenuId=MENUMOV_16 // MENU DE ROMANEIO DE PRODUCAO
sac5rom('*')
ELSEIF MenuId=MENUMOV_17 // MENU DE ASSISTENCIA PRODUTO
sacass1()
ELSEIF MenuId=MENUMOV_18 // MENU DE CREDITO DE CLIENTE
con24(,'C')
ELSEIF MenuId=MENUMOV_19 // MENU DE ORDEM DE SERVICOS
sacos1()
ELSEIF MenuId=MENUMOV_20 // MENU DE SOLICITACAO DE PEDIDOS
sacass1('SLPED')
ELSEIF MenuId=MENUMOV_21 // MENU DE EXPEDICAO DE PEDIDOS
sacexp()
ELSEIF MenuId=MENUMOV_22 // MENU DE PROTOCOLO DE NOTAS ENTRADAS
sacproto()
ELSEIF MenuId=MENUMOV_23 // MENU DE REAJUSTE PARCIAL DE PRODUTOS
sacrepro()
ELSEIF MenuId=MENUMOV_24 // MENU COTACAO DE PRODUTOS
saccotac()
ELSEIF MenuId=MENUMOV_25 // ARQUIVOS PARA POCKET PC
sacpalm()
ELSEIF MenuId=MENUMOV_26 // ARQUIVOS PARA POCKET PC
sacpalm1()
ELSEIF MenuId=MENUMOV_27 // LIMPEZA DOS ARQUIVOS PARA POCKET PC
sacpalm('*')
ELSEIF MenuId=MENUMOV_28 // LANCAMENTO NOTA FRETE
sacfrete()
ELSEIF MenuId=MENUMOV_29 // AGRUPAMENTO ESPECIAL
sac2lb()

// SUB-MENU DO PEDIDOS

ELSEIF MenuId=MENUPED_1 // EMISSAO DE PEDIDOS
sac23p1()
ELSEIF MenuId=MENUPED_2 // ALTERACAO DE PEDIDOS
sac23p2()
ELSEIF MenuId=MENUPED_3 // 2A. VIA PEDIDO
sac5ped1()
ELSEIF MenuId=MENUPED_4 // TRANSF. ORCAMENTO P/ PEDIDO
sactporc()
ELSEIF MenuId=MENUPED_5 // CANCELAR PEDIDOS
sac342('ped_s')
ELSEIF MenuId=MENUPED_6 // ESTORNO DE CANCELAMENTO
sac344('ped_s')
ELSEIF MenuId=MENUPED_7 // ENTREGA DE PEDIDOS
sacentre()
ELSEIF MenuId=MENUPED_8 // TALAO DE PEDIDOS
sactpped()
ELSEIF MenuId=MENUPED_9 // LIBERAR OU CANCELAR PEDIDOS
sac350('P')
ELSEIF MenuId=MENUPED_10 // ESTORNO DE LIBERACAO
sacexp2('E','P')
ELSEIF MenuId=MENUPED_11 // RE-EMISSAO P/FRENTE DE LOJA
sac5ped1(,,,,'*')

// SUB-MENU DA NOTA FISCAL

ELSEIF MenuId=MENUNF_1 // EMISSAO DE NOTA FISCAL
sac211()
ELSEIF MenuId=MENUNF_2 // EMISSAO DE NF. P/AGRUPAMENTO DE PEDIDOS
sac2ped(2)
ELSEIF MenuId=MENUNF_3 // 2A. VIA
sac212()
ELSEIF MenuId=MENUNF_4 // CANCELAMENTO NF
sac213()
ELSEIF MenuId=MENUNF_5 // ALTERACAO/EXCLUSAO NF
sac214()
ELSEIF MenuId=MENUNF_6 // EMISSAO NF CORRECAO
sac211(,'*')
ELSEIF MenuId=MENUNF_7 // ESTORNO CANCELAMENTO NOTA FISCAL
sac215()
ELSEIF MenuId=MENUNF_8 // EMISSAO NOTA DE BALCAO
sac211b()

// SUB-MENU ORCAMENTO

ELSEIF MenuId=MENUORC_1 // EMISSAO DE PEDIDOS
sac23p1(1)
ELSEIF MenuId=MENUORC_2 // ALTERACAO DE PEDIDOS
sac23p2(1)
ELSEIF MenuId=MENUORC_3 // 2A. VIA PEDIDO
sac5ped1(1)
ELSEIF MenuId=MENUORC_4 // TRANSF. ORCAMENTO P/ PEDIDO
sactporc(1)
ELSEIF MenuId=MENUORC_5 // CANCELAR PEDIDOS
sac342('orcam')
ELSEIF MenuId=MENUORC_6 // ESTORNO DE CANCELAMENTO
sac344('orcam')
ELSEIF MenuId=MENUORC_7 // ENTREGA DE PEDIDOS
sacreorc()
ELSEIF MenuId=MENUORC_8 // TALAO DE PEDIDOS
sac343()
ELSEIF MenuId=MENUORC_9 // LIBERAR OU CANCELAR PEDIDOS
sac350('O')
ELSEIF MenuId=MENUORC_10 // ESTORNO DE LIBERACAO
sacexp2('E','O')
ELSEIF MenuId=MENUORC_11 // RE-EMISSAO P/FRENTE DE LOJA
sac5ped1(,1,,,'*')

// SUB-MENU EST.HAVER

ELSEIF MenuId=MENUHV_1 // ENTRADA ESTOQUE A.V.
sac2av1()
ELSEIF MenuId=MENUHV_2 // BAIXA ESTOQUE A.V.
sac2av2()
ELSEIF MenuId=MENUHV_3 // ESTORNO ESTOQUE A.V.
sac2av3()
ELSEIF MenuId=MENUHV_4 // ALTERACAO ESTOQUE A.V.
sac2av4()

// SUB-MENU CONTAS A PAGAR

ELSEIF MenuId=MENUDUPP_1 // Inclusao Documento
con211()
ELSEIF MenuId=MENUDUPP_2 // Alteracao Documento
con212()
ELSEIF MenuId=MENUDUPP_3 // Exclusao Documento
con212('*')
ELSEIF MenuId=MENUDUPP_4 // Consulta Documento
con214()
ELSEIF MenuId=MENUDUPP_5 // EStorno Documento
con22('E')
ELSEIF MenuId=MENUDUPP_6 // Baixa Documentos
con22()
ELSEIF MenuId=MENUDUPP_7 // Baixa Geral Documentos
con221(,'*')
ELSEIF MenuId=MENUDUPP_8 // Relatorios
con41()
ELSEIF MenuId=MENUDUPP_9 // Inclusao Varios Doc.
con2111()
ELSEIF MenuId=MENUDUPP_10 // Fluxo de Caixa
sac4flu()
ELSEIF MenuId=MENUDUPP_11 // Agrupamento Doc.
con221()

// SUB-MENU CONTAS A RECEBER

ELSEIF MenuId=MENUDUPR_1 // Inclusao Documento
con241()
ELSEIF MenuId=MENUDUPR_2 // Alteracao Documento
con251(,'A')
ELSEIF MenuId=MENUDUPR_3 // Exclusao Documento
con243()
ELSEIF MenuId=MENUDUPR_4 // Consulta Documento
con244()
ELSEIF MenuId=MENUDUPR_5 // EStorno Documento
con251(,'S')
ELSEIF MenuId=MENUDUPR_6 // Relatorios
con42()
ELSEIF MenuId=MENUDUPR_7 // Inclusao Varios Doc.
con2411()
ELSEIF MenuId=MENUDUPR_8 // Cadastro Tipo Doc.
sactipdc()
ELSEIF MenuId=MENUDUPR_9 // Fluxo de Caixa
sac4flu()
ELSEIF MenuId=MENUDUPR_10 // A Grupamento Documento

Mensagem por **sygecom** » 16 Ago 2007 17:53

Tche, não testei seu CODIGO, mas lhe pergunto vc tem alguma função com nome repetido ex:

FUNCTION CAD_CLIENTE

FUNCTION CAD_CLIENTE

Aconteceu comigo, aqui de eu te duas funções com mesmo nome, porem um esta em uma LIB e outra em um PRG ...compilou na boa, mas chamava a função errada !! e quando executava meu sistema eme cria um arquivo na pasta do sistema com o nome trace.log com o nome da função repetida...

Abraços
Leonardo Machado

helio · Mensagem por **helio** » 16 Ago 2007 20:38

Sygecom foi criada um arquivo trace.log mais nao tem nada dentro dele isso tem que ser na hora que houver o problema.

Mais teve uma vez que deu este problema que uma opcao chamou a opcao de (fecha, maximiza,minimiza do windows)

por isso que eu achei estranho, mais vou ver se consigo descobri com essa sua dica.