database marmotech
screen size 24 by 80
{
Codigo Cliente     [f0]-[f001] [f0011                         ]
Fecha Solicitud    [f002    ]  
Condicion Ventas   [f3] [f31                           ] 
Nombre Solicitante [f004                          ]
Cedula Solicitante [f005       ] Serie [f006  ]
Calle              [f007                          ] Casa No.[f008      ]
Barrio             [f009                ]    Urbanizacion [f010                ]
Codigo Provincia   [f2][f22                           ]     Telefono  [f013    ]
                                                                             [a]
Usuario Creador     [f047     ]           Usuario Modificador [f049     ] 
Fecha Creacion      [f048            ]    Fecha Modificacion  [f050            ]
}
end
tables
vetb00004, 
vetb00006, 
vetb00008, 
vetb00009, 
vetb00020
attributes
f0   = vetb00006.tipo_cliente_s,autonext,
       comments="Digite el Codigo del Cliente o Crtl-W para Busqueda";
f001 = vetb00006.sec_cliente_s,autonext,
       comments="Digite el Codigo del Cliente o Crtl-W para Busqueda";
f0011 = vetb00004.nombre,noentry;
f002 = vetb00006.fecha_solicitud_s,autonext,format="dd/mm/yy", 
       comments="Digite la fecha de solicitud de credito";
f3   = vetb00006.condicion_venta_s,autonext,upshift, 
comments="Digite la condicion de venta para el Cliente o Ctrl-W para busqueda";
f31  = formonly.descrip1,noentry; 
f004 = vetb00006.solicitante_s,autonext,upshift, 
       comments="Digite el nombre del solicitante del credito";
f005 = vetb00006.cedula_s,autonext,
       comments="Digite la cedula del solicitante";
f006 = vetb00006.serie_s,autonext,
       comments="Digite la serie de la cedula";
f007 = vetb00006.calle_s,autonext,upshift, 
       comments="Digite el nombre de la calle donde vive el solicitante"; 
f008 = vetb00006.casa_num_s,autonext,
       comments="Digite el numero de la casa del solicitante";
f009 = vetb00006.barrio_s,autonext,upshift, 
       comments="Digite el barrio donde vive el solicitante";
f010 = vetb00006.urbanizacion_s,autonext,upshift, 
       comments="Digite la urbanizacion donde vive el solicitante";
f2   = vetb00006.cod_provincia_s,autonext,
       comments=
      "Codigo de la Provincia a que pertenece el solicitante o Crtl-W para busqueda";
f22  = vetb00020.nombre_provincia,noentry;
f013 = vetb00006.telefono_s,autonext,picture="###-####", 
       comments="Digite el telefono del Solicitante";
a    = vetb00006.status_t,noentry;
f047 = vetb00006.us_crea,noentry;
f048 = vetb00006.fech_crea,noentry;
f049 = vetb00006.us_mod,noentry;
f050 = vetb00006.fech_mod,noentry;
end

instructions
delimiters " "