DATABASE marmotech
SCREEN
{
    Fecha Inicial [fi        ]
    Fecha Final   [ff        ]
    Tipo Suplidor [ts        ]

}
tables
cptb00006
attributes
fi  = formonly.fecha_in type date,format = "yyyy-mm-dd",comments =
      "Digite fecha inicial con el formato AAAA-MM-DD Ej. 1994-01-27";
ff  = formonly.fecha_fi type date,format = "yyyy-mm-dd",comments =
      "Digite fecha Final con el formato AAAA-MM-DD Ej. 1994-02-30";
ts  = cptb00006.cod_sp;
instructions
delimiters " "
end