SCHEMA smarmotech   
TOOLBAR 
  ITEM nuevo (TEXT="Materia Prima", IMAGE="new", COMMENT="Nueva Cotizacion")
  ITEM buscar (TEXT="Buscar Articulos", IMAGE="find", COMMENT="Criterio de busqueda")
  ITEM salir (TEXT="Salir", IMAGE="quit")
SEPARATOR
  ITEM guardar (TEXT="Guardar", IMAGE="save", COMMENT="Salva informacion en tabla" )
  ITEM cancelar (TEXT="Cancelar", IMAGE="cancel", COMMENT="Cancela Operation")
END
LAYOUT (TEXT="CATALOGO MATERIA PRIMA", STYLE="basic")
 FOLDER
   PAGE p1 (TEXT="Lista Articulos")
    GRID
   {<G Lista                                                           > 
     <t t1                                                           >
       [ar1              ][desc1                             ][und]
       [ar1              ][desc1                             ][und]
       [ar1              ][desc1                             ][und]
       [ar1              ][desc1                             ][und]
       [ar1              ][desc1                             ][und]
       [ar1              ][desc1                             ][und]
       [ar1              ][desc1                             ][und]
       [ar1              ][desc1                             ][und]
       [ar1              ][desc1                             ][und]
   }
   END
  END
   PAGE p2 (TEXT="Datos Articulos")
    GRID 

{
    Codigo     [a  ][b  ][c   ][e    ]

 Descripcion Espanol [d                                             ]
 Descripcion Ingles  [f                                             ]
 Unidad Medida       [k  ]  Desglose [ds]

 Punto de reorden          [f004        ]
 Existencia                [f005        ]
 Nomenclatura Arancelaria  [f006       ] Base Para Precio [k1           ]
 Bodega                    [l ] Categoria [r]  Codigo B[kk     ]
 Dia de Llegada            [m  ] Gravamen [mn    ]%
 [q]
 Usuario creador  [f007            ]  Usuario modificador  [f009            ]
 Fecha Creacion   [f008            ]  Fecha Modificacion   [f010            ]
}
end
END
END
tables
intb00002
attributes
LABEL kk = formonly.codid;
a   = formonly.cod_n, autonext,
      comments = "Digite el codigo de la materia prima";
b   = formonly.cod_grupo, autonext,
      comments = "Digite el codigo de la materia prima";
c  = formonly.cod_tipo, autonext,
      comments = "Digite el codigo de la materia prima";
e = formonly.cod_sec,autonext,
      comments = "Digite el codigo de la materia prima";
f004 = formonly.pto_reorden,
       comments = "Digite el punto de reorden";
f005 = formonly.existencia,noentry;
f006 = formonly.cod_nab, picture = "##.##.##.##", 
        comments = "Digite el codigo arancelario";
l    = formonly.bodega,
       comments ="Digite la bodega";
r    = formonly.categoria,comments = "Digite A,B,C",
                 upshift;
m    = formonly.dia_llegada,
       comments = "Digite el dia de llegada de la materia prima";
mn   = formonly.gravamen,autonext,
comments = "Digite El Porcentaje de Gravamen"; 
f007 = formonly.us_crea, noentry;
f008 = formonly.fech_crea, noentry;
f009 = formonly.us_mod, noentry;
f010 = formonly.fech_mod, noentry;
d    = formonly.descrip1,upshift,scroll;
f    = formonly.descrip2,upshift,scroll;
k    = formonly.medida,upshift;
RADIOGROUP ds = formonly.desglose,ITEMS=(("SI","SI"),("NO","NO")),DEFAULT="NO";
q    = formonly.status_t,noentry;
k1   = formonly.base,autonext,comments =
"Digite La Cantidad de la base para calculo de su precio";
ar1  = formonly.codigo, TITLE="CODIGOS";
desc1 = formonly.descripcion,TITLE="DESCRIPCION";
und   = formonly.unidad1,TITLE="UNIDAD MEDIDA";
instructions
  delimiters " "
  screen record sarticulo (codigo,descripcion,unidad1)
end