schema smarmotech
ACTION defaults
 ACTION suplidor (TEXT="Busca Suplidor", IMAGE="find")
END


 TOOLBAR 
  ITEM nuevo (TEXT="Orden de Compras", IMAGE="new", COMMENT="Nueva Orden")
  ITEM buscar (TEXT="Buscar Ordenes de Compras", IMAGE="find", COMMENT="Criterio de busqueda")
 SEPARATOR
  ITEM salir (TEXT="Salir", IMAGE="quit")
END
LAYOUT (TEXT="ORDENES DE COMPRAS",STYLE="basic")
GRID
{
<G generales                                                                       >
  Orden No.      [f000  ] Tipo Orden[a0                ] Fecha[f001      ]
  Chequeo No. Orden[f0002  ] No. Proforma[f005      ]
  Codigo Suplidor[f2][f003][sh  ][a1                                           ] 
  Codigo de Pago [f4             ] Via [a2            ] 
  Enviada  [l]  Fecha[f008      ]  Pago [m]  Fecha Pago [f009        ]Cierre [n] 
  Puerto [p1 ][p2                        ] Codigo Moneda [cm  ][dem            ]
  
<G detalles                                                                                       >
      Requis.  Codigo                         Cantidad   ESB  Number      Precio        Valor
 [re    ][a ][g  ][t  ][se  ][f3         ][f6          ][f7          ]
 [re    ][a ][g  ][t  ][se  ][f3         ][f6          ][f7          ]
 [re    ][a ][g  ][t  ][se  ][f3         ][f6          ][f7          ]
 [re    ][a ][g  ][t  ][se  ][f3         ][f6          ][f7          ]
 Descripcion  [des                           ]                 Unidad [f8 ]
 N.A.B.  [F9         ]        Nomenclatura [k                             ]
}
end
tables
cotb00005, cotb00006,
intb00001, cotb00008,
cotb00014, cotb00024,
cotb00001, cotb00015
attributes
f0002 = formonly.cknum_oc,required,reverse;
re   = formonly.num_req,autonext,comments =
       "Digite Numero de Requisicion o Presione Ctrl-w Para Busqueda";
a    = intb00001.cod_n; 
g    = intb00001.cod_grupo; 
t    = intb00001.cod_tipo; 
se   = intb00001.cod_sec; 
des  = intb00001.descrip_esp,noentry;
f8   = intb00001.unidad_med,noentry;
k    = formonly.descrip1,noentry;    
f3   = cotb00008.cantidad;
f9   = cotb00005.cod_nab,noentry;
f6   = cotb00008.precio,noentry;
f7   = formonly.valor,noentry;
f000 = formonly.num_oc,noentry;
COMBOBOX a0 = formonly.tipo;
     
f001 = cotb00014.fech_oc,autonext,format = "dd/mm/yyyy",
       comments ="Digite la fecha de elaboracion de la orden";
f005 = cotb00014.num_pr,autonext,
       comments ="Digite el numero de la proforma o cotizacion";
f2 = cotb00014.cod_sp,autonext,
       comments = 
"Digite el codigo del suplidor o Presione Ctrl-W para busqueda";
f003 = cotb00014.cod_sp_sec,autonext,
     comments =
"Digite la secuencia del suplidor o Presione Ctrl-W para busqueda";
a1   = cotb00001.nom_sp,noentry;
COMBOBOX f4   = cotb00014.term_sp,
       comments =
"Digite el termino de pago o Presione Ctrl-W para busqueda";

COMBOBOX a2   = cotb00014.via,
       comments ="Digite 01 = Maritima, 02 = Aerea, 03 = Terrestre";

l    = cotb00014.enviada,autonext,upshift,comments = "Digite S o N",
       include = ("S","N");
f008 = cotb00014.fech_enviada, format = "dd/mm/yyyy";
m    = cotb00014.pago,autonext,upshift,comments = "Digite S o N",
       include = ("S","N");
f009 = cotb00014.fech_pago, format = "dd/mm/yyyy";
n    = cotb00014.cierre,noentry,include = ("S","N"); 
p1   = formonly.cod_pt,autonext, comments =
"Digite el puerto de embarque o Presione Ctrl-W para busqueda";
p2   = formonly.nombre_p,noentry;
cm   = formonly.cod_mon,autonext, comments =
"Digite el Codigo de la moneda o Presione Ctrl-W para busqueda";
dem  = formonly.nombre_mon,noentry;


BUTTON sh:suplidor;

instructions
    screen record consart[4] (num_req,cod_n,cod_grupo,cod_tipo,cod_sec,
                              cantidad,precio,valor)
end