DATABASE smarmotech   
screen
{
  Ship To.[f001                          ]
  N. A. B.[f006                          ]
  C. I. D.[f002                          ][f003                          ]
  Nota    [f004                          ][f005                          ]
  Bruto (FOB)   [ds1       ][mb          ]
  Itbi (FREIGH) [ds2       ][mi          ]
  OTHERS CHARGES[ds3       ][ov          ]
  Neto (C&F)    [ds4       ][mn          ]
 
  CANTIDAD     UNIDAD     DESCRIPCION                        VALOR
 [ca         ][uni  ]    [descr                         ]   [val         ]
 [ca         ][uni  ]    [descr                         ]   [val         ]
 [ca         ][uni  ]    [descr                         ]   [val         ]

}
end
tables
cotb00029
attributes
ds1   = formonly.desc1 type char,upshift,scroll;
ds2   = formonly.desc2 type char,upshift,scroll;
ds3   = formonly.desc3 type char,upshift,scroll;
ds4   = formonly.desc4 type char,upshift,scroll;
mb    = formonly.total_b type decimal;
mi    = formonly.valor type decimal;
ov    = formonly.ot_valor type decimal;
mn    = formonly.total_1 type decimal,noentry;

ca    = formonly.cantidad;
uni   = formonly.unidad,upshift;
descr = formonly.descripcion,upshift;
val   = formonly.valor1 type decimal;

f001  = formonly.ship_to type char,upshift;
f006  = formonly.n_a_b type char,upshift;
f002  = formonly.c_i_d type char,upshift,autonext;
f003  = formonly.c_i_d1 type char,upshift;
f004  = formonly.nota type char,upshift,autonext;
f005  = formonly.nota1 type char,upshift;
instructions
 screen record sc_orden20[3] (cantidad,unidad,descripcion,valor1)
end