schema smarmotech
 LAYOUT (TEXT="CONSULTA TRANSACCIONES")
 GRID
{
<G                                                                                          >
 Producto :[a  ]-[b   ]-[c    ]-[d    ] [a1                                     ] [a2 ]
 Bodega:  [h ]                                      HISTORICO [hh                     ]
 Fecha Inicial:[f1        ] Fecha Final:[f2        ]BALANCE INICIAL:[bini             ]

<G                                                                                           >
 <t                                                                            >
  [d2      ]  [d1         ][d4            ] [d5            ]  [d6             ]
  [d2      ]  [d1         ][d4            ] [d5            ]  [d6             ]
  [d2      ]  [d1         ][d4            ] [d5            ]  [d6             ]
  [d2      ]  [d1         ][d4            ] [d5            ]  [d6             ]
  [d2      ]  [d1         ][d4            ] [d5            ]  [d6             ]
  [d2      ]  [d1         ][d4            ] [d5            ]  [d6             ]
  [d2      ]  [d1         ][d4            ] [d5            ]  [d6             ]
  [d2      ]  [d1         ][d4            ] [d5            ]  [d6             ]
}
END
tables
 intb00001,
 iptb00002,
 iptb00006
ATTRIBUTES
LABEL bini = formonly.balance_ini;
RADIOGROUP hh=formonly.historico,ITEMS=(("S","HISTORICO"),("N","ACTUAL")),default='N';
a      = formonly.cod_n type smallint,autonext;
b      = formonly.cod_grupo,autonext,required;
c      = formonly.cod_tipo,autonext,required;
d      = formonly.cod_sec,autonext,required;
a1     = formonly.descripcion,noentry;
a2     = intb00001.unidad_med,noentry;
h      = iptb00006.bodega,autonext;
f1     = formonly.fech_in type date,format = "dd/mm/yyyy";
f2     = formonly.fech_fi type date,format = "dd/mm/yyyy";
 d1     = iptb00006.num_doc;
 d2     = formonly.fecha type date,format = "dd/mm/yy",TITLE="FECHA";
d4     = formonly.entrada,TITLE="ENTRADAS";    
d5     = formonly.salida,TITLE="SALIDAS";     
d6     = formonly.balance,TITLE="BALANCE";

 instructions
     screen record s_csmov[8] (num_doc,fecha,entrada,salida,balance)
delimiters " "
end