07 Jun 2020 13:09
BoxMenu( mLini + iif( Empty( mTitulo ), 0, 1 ) + mOpc, mColi + iif( mColi < ( MaxCol() - 80 ), 40, -40 ), mMenuOpt[ mOpc, 2 ], @mMenuOpt[ mOpc, 5 ], mMenuOpt[ mOpc, 1 ], .T., .T., aMouseConv, nLevel + 1 )
07 Jun 2020 13:29
STATIC FUNCTION BoxMenu( mLini, mColi, mMenuOpt, mOpc, mTitulo, mSaiSetas, mSaiFunc, aMouseConv, nLevel, nDirecao )
IF nDirecao == 1
IF mColi > MaxCol() - 80
nDirecao := -1
ENDIF
ELSE
IF mColi < 40
nDirecao := 1
ENDIF
ENDIF
BoxMenu( mLini + iif( Empty( mTitulo ), 0, 1 ) + mOpc, mColi + ( nDirecao * 40 ), mMenuOpt[ mOpc, 2 ], @mMenuOpt[ mOpc, 5 ], mMenuOpt[ mOpc, 1 ], .T., .T., aMouseConv, nLevel + 1, nDirecao )
07 Jun 2020 13:37
MenuOption( "Testes" )
MenuDrop()
MenuOption( "Testes SPED" )
MenuDrop()
MenuOption( "Validar XML", "PTESVALIDAXML" )
MenuUnDrop()
MenuOption( "Testes JPA" )
MenuDrop()
MenuOption( "Clientes Excel por regiao", "PTESTREGIAO" )
MenuOption( "Teste Filtro", "PTESFILTRO" )
MenuOption( "Windows Style", "PTESWIN" )
MenuOption( "SQL Backup", "ZE_SQLBACKUP" )
MenuOption( "SQL Exportar para SQL", "SQLFROMDBF" )
MenuOption( "Comparar bases SQL", "PTESBASE" )
MenuOption( "Checking QueryCreate()", "PTESQUERYC" )
MenuOption( "Consultar CEPs", "PTESCEP" )
MenuOption( "Alert WVG", "PALERT" )
MenuOption( "Test niveis 1" )
MenUDrop()
MenuOption( "Test niveis 2" )
MenuDrop()
MenuOption( "Test niveis 3" )
MenuDrop()
MenuOption( "test niveis 4", "XX" )
MenuUnDrop()
MenuUnDrop()
MenuUnDrop()
MenuUnDrop()
MenuOption( "Testes Aplicativo" )
MenuDrop()
MenuOption( "Manual Imprimir", "ZE_HELPPRINT" )
MenuOption( "Retorna preços diferenciados", "PPRECANCEL" )
MenuUnDrop()
MenuUnDrop()
07 Jun 2020 13:54
07 Jun 2020 15:29
07 Jun 2020 15:30
07 Jun 2020 17:46
07 Jun 2020 18:48