SCHEMA smarmotech

LAYOUT (TEXT="Movimientos Inventarios",STYLE="basic")
 GRID

{
 
<G  encabezado                                                                              >
  Documento Numero  [f000  ]    Compania      [r][c4                ] 
  Codigo Movimiento [m ] [m1                                      ]  
  Factura           [fact  ]    Transportista [tr][tr1 ][des                              ]
  Cotizacion        [cot   ]
  Tarifa            [t  ][t1                             ]        Placa        [pl         ]
  fecha             [f001      ]Bodega        [p1 ]               Orden Pedido [oc         ]
  Detalle           [det                                                                  ]
  Cliente           [cl]-[cl1 ] [nom                               ]Codigo V   [ve    ]
  Direccion         [dr1                                                              ]
  Departamento      [dep   ]    [nomd                              ]Requisicion[req   ]
  Codigo Mov        [cd1]       [des2                              ]Entrada    [ent1      ]

<G Detalle                                                                                                                 >
 <t                                                                                                                       >
 [x13][a ][b   ][c    ][d   ][f03     ][f02      ][p  ][f04   ][k                                         ][bl1         ]
 [x13][a ][b   ][c    ][d   ][f03     ][f02      ][p  ][f04   ][k                                         ][bl1         ]
 [x13][a ][b   ][c    ][d   ][f03     ][f02      ][p  ][f04   ][k                                         ][bl1         ]
 [x13][a ][b   ][c    ][d   ][f03     ][f02      ][p  ][f04   ][k                                         ][bl1         ]
 [x13][a ][b   ][c    ][d   ][f03     ][f02      ][p  ][f04   ][k                                         ][bl1         ]

}
end
tables
iptb00006,
intb00001,
cotb00001
ATTRIBUTES
cot = formonly.xcotizacion;
req = formonly.pnum_req;
dr1 = formonly.direccion_p,SCROLL;
bl1 = formonly.codigo_bloque,TITLE="BLOQUE";
LABEL x13 = formonly.area;
ve   = formonly.psec_vend;
det  = iptb00006.detalle;
cl   = iptb00006.cod_sp,autonext;
cl1  = iptb00006.cod_sp_sec,autonext;
nom  = formonly.descrip4,noentry;
pl   = iptb00006.placa,autonext,comments = 
    "Digite placa del vehiculo que transporta la mercancia";
fact = formonly.fact_no,autonext,comments =
  "Introducir Numero de Factura de Ventas";
tr   = iptb00006.cod_transp,autonext,comments =
  "Introduzca Codigo Transportista";
tr1   = iptb00006.sec_transp,autonext,comments =
  "Introduzca Codigo Transportista";
des  = formonly.descrip2,noentry;
t    = iptb00006.cod_tarifa,comments =
   "Introduzca Codigo Tarifa",autonext;
oc   = iptb00006.conduce_no,
       comments = "Digite le numero de orden de Corte";
t1   = formonly.descrip1,noentry; 
f000 = iptb00006.num_doc,noentry; 
r   = iptb00006.cod_cia,autonext,include = (1 to 2), comments =
"01 - MARMOTECH                                ";
ent1  = formonly.entrada,comments = "Digite Entrada Almacen";
cd1  = formonly.cod_mov1,comments = "Digite codigo movimiento entrada";
des2 = formonly.descrip_mov1,noentry;
dep   = formonly.departamento;
nomd  = formonly.nombre_depto,noentry;
c4   = formonly.nombre_cia,noentry;
f001 = iptb00006.fecha, format = "dd/mm/yyyy",autonext,
    comments = "Digite Fecha Documento";
a    = iptb00006.cod_n,autonext,TITLE="CLASE",
    comments = "Digite el NIVEL o Presione CTRL-W Para Ayuda";
b    = iptb00006.cod_grupo,autonext,TITLE="GRUPO",
    comments = "Digite el GRUPO o Presione CTRL-W Para Ayuda"; 
c    = iptb00006.cod_tipo,autonext,TITLE="TIPO",
    comments = "Digite el TIPO o Presione CTRL-W Para Ayuda"; 
d    = iptb00006.cod_sec,autonext,TITLE="MEDIDA",
    comments = "Digite la SECUENCIA  o Presione CTRL-W Para Ayuda  "; 
f03  = iptb00006.cantidad_1,autonext,TITLE="CANTIDAD"; 
f02  = formonly.cantidad_2,noentry,TITLE="UNIDAD";
f04  = formonly.cantidad_p,noentry,TITLE="PENDIENTE";
k    = formonly.descrip_esp,scroll,TITLE="DESCRIPCION";
p    = intb00001.unidad_med,noentry;
p1   = iptb00006.bodega,autonext;
m    = iptb00006.cod_mov,autonext,autonext,
       comments = "Digite codigo del movimiento";
m1   = formonly.descrip_mov, noentry;
  INSTRUCTIONS
    SCREEN RECORD s_movi1[7] (area,cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
                              cantidad_2,cantidad_p,unidad_med,descrip_esp,codigo_bloque)
end