14 Jul 2015 22:02
14 Jul 2015 22:12
MenuOption( "Cadastro Genérico", "PGENERIC", { || pgeneric() } )
MenuOption( "Manutenção de senhas/acessos", "PHLSENHA", { || phlsenha() } )
MenuOption( "Log de Utilização do Sistema", "PUTI0040", { || puti0040() } )
MenuOption( "Opções Anuais" )
MenuDrop()
MenuOption( "Fechamento anual Corrente", "HLCCANUAL", { || hlCCAnual() } )
MenuOption( "Fechamento Anual Informe", "HLIRANUAL", { || hlIRAnual() } )
MenuOption( "Fechamento Anual Dimob", "HLDIMANUAL", { || hlDimAnual() } )
MenuOption( "Acerto CIC no info14", "HLCORIR14A", { || hlCorIR14a() } )
MenuOption( "Acerto info14 manual", "HLCORIR14M", { || hlCorIr14m() } )
MenuOption( "Acerto endereço DIMOB", "XXXXX" )
MenuUnDrop()
MenuOption( "Ferramentas" )
MenuDrop()
MenuOption( "Acesso remoto", "PTERMSVR", { || pTermSvr() } )
MenuOption( "Backup DBFs/MySQL", "HL_BACKUP", { || hl_backup() } )
MenuOption( "Dbase JMCQuintas", "RDBASE", { || RDbase() } )
MenuOption( "Lista Opções do Menu", "LISTMENU", { || ListMenu() } )
MenuUnDrop()
14 Jul 2015 22:27
14 Jul 2015 22:36
14 Jul 2015 22:47
14 Jul 2015 23:00
FUNCTION ListMenu()
LOCAL mOpcoes, acMenu := {}, cTxt, nCont
mOpcoes := MenuCria()
ListaOpcoes( mOpcoes,,, acMenu )
cTxt := ""
FOR nCont = 1 TO Len( acMenu )
cTxt += acMenu[ nCont ] + HB_EOL() + HB_EOL()
NEXT
HB_MemoWrit( "menuhl.txt", cTxt )
ShellExecuteOpen( "menuhl.txt" )
RETURN acMenu
STATIC FUNCTION ListaOpcoes( mOpcoes, nLevel, cSelecao, acMenu )
LOCAL nCont, cModule, cDescription
nLevel := iif( nLevel == NIL, 0, nLevel )
nLevel := nLevel + 1
cSelecao := iif( cSelecao == NIL, "", cSelecao )
FOR nCont = 1 TO Len( mOpcoes )
cModule := mOpcoes[ nCont, 3 ]
IF ValType( cModule ) != "C"
cModule := ""
ENDIF
cDescription := mOpcoes[ nCont, 1 ]
Aadd( acMenu, Pad( cSelecao + StrZero( nCont, 2 ) + ".", 15 ) + Space( nLevel * 3 ) + cDescription + iif( Len( cModule ) != 0, " (" + mOpcoes[ nCont, 3 ] + ")", "" ) )
IF Len( mOpcoes[ nCont, 2 ] ) != 0
ListaOpcoes( mOpcoes[ nCont, 2 ], nLevel, cSelecao + StrZero( nCont, 2 ) + ".", acMenu )
ENDIF
NEXT
Aadd( acMenu, "" )
RETURN NIL
14 Jul 2015 23:20
10.07. Apenas testes
10.07.01. Junta corrente/informe/dimob (PTESCORR)
10.07.02. Compara cod.locador e nome (PTESCOR2)
10.07.03. Pega backup\recibo*.* (PTESRECMES)
10.07.04. Gera estrutura dbfback (PTESBACK)
10.07.05. Salva no MySql (Teste) (PTES0170)
10.07.06. Salva no MySql (Oficial) (HLSALVAMYSQL)
14 Jul 2015 23:25
14 Jul 2015 23:30
14 Jul 2015 23:38
14 Jul 2015 23:41
14 Jul 2015 23:46
15 Jul 2015 00:14
15 Jul 2015 00:26
15 Jul 2015 09:49
JoséQuintas escreveu:Como seria algo assim em ambiente gráfico?