schema smarmotech 
TOOLBAR 
  ITEM nuevo (TEXT="Suplidor", IMAGE="new", COMMENT="Nuevo Suplidor")
  ITEM buscar (TEXT="Buscar Suplidor(es)", IMAGE="find", COMMENT="Criterio de busqueda")
 SEPARATOR
  ITEM salir (TEXT="Salir", IMAGE="quit")
END

LAYOUT (TEXT="SUPLIDORES",STYLE="BASIC")
 GRID
{
<G "Generales"                                                                    >
 Codigo del Suplidor [k1]-[f000]
 Nombre              [f001                                     ]
                                                                                  
<G "CONTACTOS"                                                                   >
 Direccion           [f002                                                      ]
 Ciudad              [f003                          ]
 Pais                [a0 ][k10                                                  ]
 Telefono            [f004      ] Codigo de Area [a1        ] 
 No de Fax           [f005      ] 
 Persona de Contacto [f006                          ]
 
<G "Terminos Negociaciones"                                                       >
 Terminos de Pago    [f7] [l                             ]
 
<G "Informacion Auditoria"                                                        >
 [j]
 Usuario Creador     [f008     ]           Usuario Modificador [f010     ]
 Fecha Creacion      [f009            ]    Fecha Modificacion  [f011            ]
}
end
END
tables
cotb00001,cotb00024
attributes
k1   = cotb00001.cod_sp,picture = "##",autonext,required,
       comments = "Codigo del Suplidor";
f000 = cotb00001.cod_sp_sec, picture="####",autonext,required,
       comments="Codigo del Suplidor";
f001 = cotb00001.nom_sp, upshift, required,
       comments="Nombre del Suplidor"; 
f002 = cotb00001.dir_sp, upshift, 
       comments="Direccion del Suplidor"; 
f003 = cotb00001.ciu_sp, upshift, 
       comments="Ciudad donde reside el suplidor"; 
a0   = formonly.cod_pais, widget="FIELD_BMP",   config="combo.bmp control-w",
       comments="Codigo correspondiente al pais donde reside el suplidor"; 
k10  = formonly.nom_pais,noentry;
a1   = cotb00001.area_sp,
       comments="Codigo de Area"; 
f004 = cotb00001.tel_sp, scroll, 
       comments="Numero telefonico del Suplidor"; 
f005 = cotb00001.fax_sp, scroll, 
       comments="Numero del Fax del Suplidor"; 
f006 = cotb00001.cont_sp, upshift, 
       comments="Nombre de la Persona de Contacto para fines de negocios"; 
f7 = cotb00001.term_sp,
       comments="Condiciones de pagos que exige el suplidor"; 
l    = cotb00024.descrip_term,noentry;
f008 = cotb00001.us_crea, noentry; 
f009 = cotb00001.fech_crea, noentry; 
f010 = cotb00001.us_mod, noentry; 
f011 = cotb00001.fech_mod, noentry; 
j = cotb00001.status_t, noentry; 
instructions
delimiters " "
end