by softruz » Wed Nov 05, 2008 10:12 am
Esta creado desde código, aquí tienes el código:
DEFINE FONT oFont1 NAME "Times New Roman" Size 0,12
DEFINE FONT oFont2 NAME "Times New Roman" Size 0,12 BOLD
DEFINE FONT oFont3 NAME "Times New Roman" Size 0,13
DEFINE WINDOW oWnd TITLE "Configuración" MENU BuildSinMenu()
DEFINE BITMAP oBmp FILE IMAGENES + "\fondo1.bmp"
@ 247, 190 BTNBMP FILE IMAGENES + "\aceptar.bmp" SIZE 19, 19 ACTION GuardarConf(cPrecio),oWnd:end()
@ 0.3,1 group aoGrp[1] TO 3.8,32 PROMPT "CODIGO DEL PRODUCTO" font oFont2 COLOR COLOR_FONDO
@ 0.8,2 say "Nivel 1:" OF aoGrp[1] SIZE 40, 15 font oFont2
@ 1.1,7 get aogets[1] var cdi:vNiv1 OF aoGrp[1] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3
@ 1.95,2 say "Nivel 2:" OF aoGrp[1] SIZE 40, 15 font oFont2
@ 2.4,7 get aogets[2] var cdi:vNiv2 OF aoGrp[1] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3
@ 0.8,15 say "Nivel 3:" OF aoGrp[1] SIZE 40, 15 font oFont2
@ 1.1,17 get aogets[3] var cdi:vNiv3 OF aoGrp[1] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3
@ 1.95,15 say "Nivel 4:" OF aoGrp[1] SIZE 40, 15 font oFont2
@ 2.4,17 get aogets[4] var cdi:vNiv4 OF aoGrp[1] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3
@ 4.2, 1 group aoGrp[2] TO 3.8,32 PROMPT "LONGITUD DE CÓDIGOS" font oFont2 COLOR COLOR_FONDO
@ 0.8,2 say "Cod. Barras:" OF aoGrp[2] SIZE 65, 15 font oFont2
@ 1.1,10 get aogets[5] var cdi:vCodBarras OF aoGrp[2] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3
@ 1.95,2 say "Cod. Lote:" OF aoGrp[2] SIZE 65, 15 font oFont2
@ 2.4,10 get aogets[6] var cdi:lLote OF aoGrp[2] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3
@ 0.8,18 say "C. Produc.:" OF aoGrp[2] SIZE 60, 15 font oFont2
@ 1.1,21 get aogets[7] var cdi:lPro OF aoGrp[2] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3
@ 1.95,18 say "C. Provee.:" OF aoGrp[2] SIZE 60, 15 font oFont2
@ 2.4,21 get aogets[6] var cdi:lProv OF aoGrp[2] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3
@ 8, 1 group aoGrp[3] TO 3.8,32 PROMPT "NÚMERO DE DOCUMENTOS" font oFont2 COLOR COLOR_FONDO
@ 0.8,2 say "Salidas:" of aoGrp[3] SIZE 50, 15 font oFont2
@ 1.1,8 get aogets[8] var cdi:lAlbANum OF aoGrp[3] SIZE 45,15 COLOR COLOR_GET1 CENTER font oFont3
@ 1.95,2 say "Entradas:" of aoGrp[3] SIZE 50, 15 font oFont2
@ 2.4,8 get aogets[9] var cdi:lFraANum OF aoGrp[3] SIZE 45,15 COLOR COLOR_GET1 CENTER font oFont3
@ 0.8,18.5 say "Compras:" of aoGrp[3] SIZE 50, 15 font oFont2
@ 1.1,21 get aogets[10] var cdi:lAlbBNum OF aoGrp[3] SIZE 45,15 COLOR COLOR_GET1 CENTER font oFont3
@ 1.95,18.5 say "Inventario:" of aoGrp[3] SIZE 50, 15 font oFont2
@ 2.4,21 get aogets[11] var cdi:lFraBNum OF aoGrp[3] SIZE 45,15 COLOR COLOR_GET1 CENTER font oFont3
@ 12, 1 group aoGrp[4] TO 5.5,32 PROMPT "" font oFont2 COLOR COLOR_FONDO
@ 0.8,2 say "Título:" of aoGrp[4] SIZE 50, 15 font oFont2
@ 1.1,9 get aogets[12] var cdi:vTitulo OF aoGrp[4] SIZE 142,15 COLOR COLOR_GET1 CENTER font oFont3
@ 1.95,2 say "Cod. Agt:" OF aoGrp[4] SIZE 50, 15 font oFont2
@ 2.4,9 get aogets[13] var cdi:lCodOpd OF aoGrp[4] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3
@ 3.1,2 say "Precio:" OF aoGrp[4] SIZE 50, 15 font oFont2
@ 3.7,9 combobox aogets[14] var cPrecio of aoGrp[4] UPDATE ITEMS {"Si","No"} SIZE 40, 15 COLOR COLOR_GET1
ACTIVATE WINDOW oWnd MODAL ON PAINT (oWnd:sayBitmap( 0, 0, oBmp ),cursorwe()) ON INIT (aogets[1]:setfocus())
oBmp:End()
oFont1:End()
oFont2:End()
oFont3:End()
Un Saludo.