Moderador: Moderadores
INIT DIALOG oMENUPRINC TITLE "SGC - SISTEMA DE GESTÃO DE COMÉRCIO" ;
ICON HIcon():Addresource('SGC_ICON') ;
AT 0, 0 SIZE 1360,768 FONT oFont ;
ON INIT {|| MENU_PRINCIPAL_onDlgInit( oMENUPRINC, M->NIV_ACESSO )};
STYLE WS_OVERLAPPEDWINDOW;
BACKCOLOR 0;
// @ 0,1 PANEL oPanel1 SIZE 1360,80 ;
// ON PAINT {|| Gradiente( oPanel1, 0, 1, 1360, 80, 1, {0, 0, 13400576} ) }
// oPanel1:Anchor:=130
@ 0,0 PANEL oPanel1 SIZE 1360,80 ;
BACKCOLOR 13400576
oPanel1:Anchor:=130
@ 0,0 LINE oLine LENGTH 1360
oLine:Anchor:=130
@ 200,18 SAY oEmpresa CAPTION hlusuario( oServer ) OF oPanel1 SIZE 1155,66 ;
STYLE ES_LEFT ;
TRANSPARENT COLOR 16777215 ;
FONT HFont():Add( '',0,-42,700,,,)
@ 212,80 OWNERBUTTON oButton17 ON CLICK {||INFO( SGCRELEASE )} ;
SIZE 85,85 FLAT ;
TEXT 'Info' COLOR 16777215;
COORDINATES 0, 40, 0, 0 ;
BITMAP HBitmap():Addresource("about-256-30") ;
COORDINATES 0, 5, 0, 0
oButton17:aStyle := { HStyle():New( {0}, 4,, ), HStyle():New( {0}, 1, ), HStyle():New( {0}, 1, ) }
@ 212,160 OWNERBUTTON oButton18 ON CLICK {||LembreteClass():new(oServer):LEMBRETE( )} ;
SIZE 85,85 FLAT ;
TEXT 'Notas' COLOR 16777215;
COORDINATES 0, 40, 0, 0 ;
BITMAP HBitmap():Addresource("clipboard-4-256-30") ;
COORDINATES 0, 5, 0, 0
oButton18:aStyle := { HStyle():New( {0}, 4,, ), HStyle():New( {0}, 1, ), HStyle():New( {0}, 1, ) }
@ 212,240 OWNERBUTTON oButton19 ON CLICK {||CertificadoClass():new(oServer):GERENCIA_CERTIFICADO( )} ;
SIZE 85,85 FLAT ;
TEXT 'Certificado' COLOR 16777215;
COORDINATES 0, 40, 0, 0 ;
BITMAP HBitmap():Addresource("website-optimization-30") ;
COORDINATES 0, 5, 0, 0
oButton19:aStyle := { HStyle():New( {0}, 4,, ), HStyle():New( {0}, 1, ), HStyle():New( {0}, 1, ) }
@ 212,320 OWNERBUTTON oButton20 ON CLICK {||SenhaClass():new(oServer):SENHA_MANUTENCAO( )} ;
SIZE 85,85 FLAT ;
TEXT 'Usuários' COLOR 16777215;
COORDINATES 0, 40, 0, 0 ;
BITMAP HBitmap():Addresource("login-30") ;
COORDINATES 0, 5, 0, 0
oButton20:aStyle := { HStyle():New( {0}, 4,, ), HStyle():New( {0}, 1, ), HStyle():New( {0}, 1, ) }
// @ 212,400 OWNERBUTTON oButton21 ON CLICK {||_rotinas( oServer )} ;
// SIZE 85,85 FLAT ;
// TEXT 'Configurações' COLOR 16777215;
// COORDINATES 0, 40, 0, 0 ;
// BITMAP HBitmap():Addresource("login-30") ;
// COORDINATES 0, 5, 0, 0
// oButton21:aStyle := { HStyle():New( {0}, 4,, ), HStyle():New( {0}, 1, ), HStyle():New( {0}, 1, ) }
@ 881,83 SAY oLabel2 CAPTION "Movimento: " + DTOC(M->DAT_HOJE) SIZE 455,30 STYLE ES_RIGHT;
FONT HFont():Add( '',0,-19,400,,,);
COLOR 16777215 BACKCOLOR 0
oLabel2:Anchor:=9
@ 881,107 SAY oLabel3 CAPTION "Operador: " + RTRIM(M->OPERADOR) SIZE 455,30 STYLE ES_RIGHT;
FONT HFont():Add( '',0,-19,400,,,);
COLOR 16777215 BACKCOLOR 0
oLabel3:Anchor:=9
@ 881,132 SAY oLabel4 CAPTION "Computador: " + rtrim(hwg_GetComputerName()) SIZE 455,30 STYLE ES_RIGHT;
FONT HFont():Add( '',0,-19,400,,,);
COLOR 16777215 BACKCOLOR 0
oLabel4:Anchor:=9
@ 0,1 PANEL oPanel2 OF oPanel1 SIZE 201,78 ;
ON PAINT {|| Gradiente( oPanel2, 0, 0, 201, 78, 4, {13400576, 0} ) }
@ 80,6 BITMAP oBitmap1 SHOW HBitmap():Addresource('sgc-32') STRETCH 0 ;
OF oPanel2 SIZE 40,40
@ 7,50 SAY oLabel1 CAPTION "SGC v8.0" OF oPanel2 SIZE 187,22 STYLE SS_CENTER;
FONT HFont():Add( '',0,-19,400,,,);
COLOR 16777215 BACKCOLOR 16777215 TRANSPARENT
@ 0,80 PANEL oPanel3 SIZE 201,941 ;
ON PAINT {|| Gradiente( oPanel3, 0, 0, 201, 1071, 4, {13400576, 0} ) }
oPanel3:Anchor:=65
@ 2,10 OWNERBUTTON oButton1 OF oPanel3 ON CLICK {||ProdutosClass():new(oServer):Produtos_Manutencao()} ;
SIZE 195,35 FLAT ;
TEXT 'Produtos' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP HBitmap():Addresource("product-256-30") ;
COORDINATES 5, 2, 0, 0
oButton1:aStyle := { HStyle():New( {13400576, 0}, 4,, ), HStyle():New( {113400576, 0}, 4,, 2, 16777215 ), HStyle():New( {13400576, 0, 0}, 4, ) }
@ 2,47 OWNERBUTTON oButton2 OF oPanel3 ON CLICK {||CadastrosClass():new(oServer):Cadastros_Manutencao()} ;
SIZE 195,35 FLAT ;
TEXT 'Cadastros' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP HBitmap():Addresource("group-256-30") ;
COORDINATES 5, 2, 0, 0
oButton2:aStyle := { HStyle():New( {13400576, 0}, 4,, ), HStyle():New( {113400576, 0}, 4,, 2, 16777215 ), HStyle():New( {13400576, 0, 0}, 4, ) }
@ 2,84 OWNERBUTTON oButton3 OF oPanel3 ON CLICK {||VendedoresClass():new(oServer):Vendedores_Manutencao()} ;
SIZE 195,35 FLAT ;
TEXT 'Vendedores' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP HBitmap():Addresource("workers-256-30" ) ;
COORDINATES 5, 2, 0, 0
oButton3:aStyle := { HStyle():New( {13400576, 0}, 4,, ), HStyle():New( {113400576, 0}, 4,, 2, 16777215 ), HStyle():New( {13400576, 0, 0}, 4, ) }
@ 2,121 OWNERBUTTON oButton4 OF oPanel3 ON CLICK {||PedidoCompraClass():new(oServer):Compra_Manutencao()} ;
SIZE 195,35 FLAT ;
TEXT 'Compras' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP HBitmap():Addresource("buy-256-30") ;
COORDINATES 5, 2, 0, 0
oButton4:aStyle := { HStyle():New( {13400576, 0}, 4,, ), HStyle():New( {113400576, 0}, 4,, 2, 16777215 ), HStyle():New( {13400576, 0, 0}, 4, ) }
@ 2,158 OWNERBUTTON oButton5 OF oPanel3 ON CLICK {||EntradaClass():new(oServer):Entrada_Manutencao()} ;
SIZE 195,35 FLAT ;
TEXT 'Entradas' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP HBitmap():Addresource("truck-256-30") ;
COORDINATES 5, 2, 0, 0
oButton5:aStyle := { HStyle():New( {13400576, 0}, 4,, ), HStyle():New( {113400576, 0}, 4,, 2, 16777215 ), HStyle():New( {13400576, 0, 0}, 4, ) }
@ 2,195 OWNERBUTTON oButton6 OF oPanel3 ON CLICK {||TransferenciaClass():new(oServer):Transferencia_Manutencao()} ;
SIZE 195,35 FLAT ;
TEXT 'Transferências' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP HBitmap():Addresource("sinchronize-256-30") ;
COORDINATES 5, 2, 0, 0
oButton6:aStyle := { HStyle():New( {13400576, 0}, 4,, ), HStyle():New( {113400576, 0}, 4,, 2, 16777215 ), HStyle():New( {13400576, 0, 0}, 4, ) }
@ 2,232 OWNERBUTTON oButton7 OF oPanel3 ON CLICK {||PedidoClass():new(oServer):Pedido()} ;
SIZE 195,35 FLAT ;
TEXT 'Vendas' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP HBitmap():Addresource("cart-8-256-30") ;
COORDINATES 5, 2, 0, 0
oButton7:aStyle := { HStyle():New( {13400576, 0}, 4,, ), HStyle():New( {113400576, 0}, 4,, 2, 16777215 ), HStyle():New( {13400576, 0, 0}, 4, ) }
@ 2,269 OWNERBUTTON oButton8 OF oPanel3 ON CLICK {||GerenciaPedidoClass():new(oServer):GERENCIA_PEDIDO()} ;
SIZE 195,35 FLAT ;
TEXT 'Vendas Gerênciar' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP HBitmap():Addresource("browser-256-30") ;
COORDINATES 5, 2, 0, 0
oButton8:aStyle := { HStyle():New( {13400576, 0}, 4,, ), HStyle():New( {113400576, 0}, 4,, 2, 16777215 ), HStyle():New( {13400576, 0, 0}, 4, ) }
@ 2,306 OWNERBUTTON oButton9 OF oPanel3 ON CLICK {||CaixaClass():new(oServer):Caixa()} ;
SIZE 195,35 FLAT ;
TEXT 'Caixa' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP HBitmap():Addresource("money-bag-256-30") ;
COORDINATES 5, 2, 0, 0
oButton9:aStyle := { HStyle():New( {13400576, 0}, 4,, ), HStyle():New( {113400576, 0}, 4,, 2, 16777215 ), HStyle():New( {13400576, 0, 0}, 4, ) }
@ 2,343 OWNERBUTTON oButton10 OF oPanel3 ON CLICK {||GerenciaDanfeClass():new(oServer):GERENCIA_DANFE()} ;
SIZE 195,35 FLAT ;
TEXT 'DANFE' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP HBitmap():Addresource("invoice-256-30") ;
COORDINATES 5, 2, 0, 0
oButton10:aStyle := { HStyle():New( {13400576, 0}, 4,, ), HStyle():New( {113400576, 0}, 4,, 2, 16777215 ), HStyle():New( {13400576, 0, 0}, 4, ) }
@ 2,380 OWNERBUTTON oButton11 OF oPanel3 ON CLICK {||GerenciaCupomClass():new(oServer):GERENCIA_CUPOM()} ;
SIZE 195,35 FLAT ;
TEXT 'CUPOM' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP HBitmap():Addresource("pages-2-256-30") ;
COORDINATES 5, 2, 0, 0
oButton11:aStyle := { HStyle():New( {13400576, 0}, 4,, ), HStyle():New( {113400576, 0}, 4,, 2, 16777215 ), HStyle():New( {13400576, 0, 0}, 4, ) }
@ 2,417 OWNERBUTTON oButton12 OF oPanel3 ON CLICK {||ReceberClass():new(oServer):RECEBER_MANUTENCAO()} ;
SIZE 195,35 FLAT ;
TEXT 'Contas a Receber' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP HBitmap():Addresource("cash-receiving-256-30") ;
COORDINATES 5, 2, 0, 0
oButton12:aStyle := { HStyle():New( {13400576, 0}, 4,, ), HStyle():New( {113400576, 0}, 4,, 2, 16777215 ), HStyle():New( {13400576, 0, 0}, 4, ) }
@ 2,454 OWNERBUTTON oButton13 OF oPanel3 ON CLICK {||PagarClass():new(oServer):Pagar_Manutencao()} ;
SIZE 195,35 FLAT ;
TEXT 'Contas a Pagar' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP HBitmap():Addresource("banknotes-256-30") ;
COORDINATES 5, 2, 0, 0
oButton13:aStyle := { HStyle():New( {13400576, 0}, 4,, ), HStyle():New( {113400576, 0}, 4,, 2, 16777215 ), HStyle():New( {13400576, 0, 0}, 4, ) }
@ 2,535 OWNERBUTTON oButton14 OF oPanel3 ON CLICK {||_rotinas( oServer )} ;
SIZE 195,35 FLAT ;
TEXT 'Configurações' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP HBitmap():Addresource("setup-30") ;
COORDINATES 5, 2, 0, 0
oButton14:aStyle := { HStyle():New( {13400576, 0}, 4,, ), HStyle():New( {113400576, 0}, 4,, 2, 16777215 ), HStyle():New( {13400576, 0, 0}, 4, ) }
oButton14:Anchor:=48
@ 2,570 OWNERBUTTON oButton15 OF oPanel3 ON CLICK {|| CONFIGNFECLASS():new(oServer):CONFIGURA_SISTEMA( ) } ;
SIZE 195,35 FLAT ;
TEXT 'Ferramentas' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP HBitmap():Addresource("settings-24-256-30") ;
COORDINATES 5, 2, 0, 0
oButton15:aStyle := { HStyle():New( {13400576, 0}, 4,, ), HStyle():New( {113400576, 0}, 4,, 2, 16777215 ), HStyle():New( {13400576, 0, 0}, 4, ) }
oButton15:Anchor:=48
@ 2,605 OWNERBUTTON oButton16 OF oPanel3 ON CLICK {||hwg_EndDialog()} ;
SIZE 195,35 FLAT ;
TEXT 'Sair' COLOR 16777215;
COORDINATES 50, 0, 0, 0 ;
BITMAP HBitmap():Addresource('door-8-256-30') ;
COORDINATES 5, 2, 0, 0
oButton16:aStyle := { HStyle():New( {13400576, 0}, 4,, ), HStyle():New( {113400576, 0}, 4,, 2, 16777215 ), HStyle():New( {13400576, 0, 0}, 4, ) }
oButton16:Anchor:=48
ACTIVATE DIALOG oMenuPrinc MAXIMIZED
ELSE
PedidoClass():new(oServer):Pedido()
ENDIF
ENDDO
RETURN NIL
Abel escreveu:pode mandar ou postar algum exemplo simples para que eu possa pelo
menos criar um menu ?
Abel escreveu:pode mandar ou postar algum exemplo simples para que eu possa pelo
menos criar um menu
Retornar para Interface com Clientes
Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes