database marmotech
screen size 24 by 80
{
   Cantidades y Fechas de Entregas de Articulos
 \g_____________________________________________________________
                     Cantidad a    Fecha       Fecha  
   Codigo            Embarcar      Embarque    Entrega  
 \g-------------------------------------------------------------
   [a][b][c ][d  ] [f005        ] [f007    ] [f006    ]
   [a][b][c ][d  ] [f005        ] [f007    ] [f006    ]
   [a][b][c ][d  ] [f005        ] [f007    ] [f006    ]
   [a][b][c ][d  ] [f005        ] [f007    ] [f006    ]
   [a][b][c ][d  ] [f005        ] [f007    ] [f006    ]

         Total Cantidad a Entregar [f008        ]
}
end
tables
cotb00025 
attributes
a    = formonly.cod_n, noentry;
b    = formonly.cod_grupo, noentry;
c    = formonly.cod_tipo, noentry;
d    = formonly.cod_sec, noentry;
f005 = cotb00025.cantidad,
       comments = "Digite la cantidad a ser entregada";
f006 = cotb00025.fech_ent, format="dd/mm/yy", noentry;
f008 = formonly.cantidad_total, noentry;
f007 = cotb00025.fech_emb, format = "dd/mm/yy",
       comments = "Digite la fecha de entrega. Use el formato DDMMYY";
INSTRUCTIONS
 
screen record sc_parcial[5] (cod_n,cod_grupo,cod_tipo,cod_sec,
                             cantidad,fech_emb,fech_ent)
delimiters " "
end