database marmotech
screen size 24 by 80
{
Codigo Cliente[f0]-[f001] 
              [f0011                         ] 
Calle         [f002                          ] 
Casa Numero   [f003      ]
Barrio        [f004                ]
Urbanizacion  [f005                ]
Secuencia Visita[f055  ] 
[a]
Creador [f006     ]       Modificador [f008     ]
Creacion[f007            ]Modificacion[f009            ]
}
end
tables
vetb00004, 
vetb00005
attributes
f0   = vetb00005.tipo_cliente,autonext, 
       comments="Digite el codigo del Cliente o Ctrl-W para busqueda";
f001 = vetb00005.sec_cliente, autonext, 
       comments="Digite el codigo del Cliente o Ctrl-W para busqueda";
f0011= vetb00004.nombre,noentry; 
f002 = vetb00005.calle, autonext, upshift, 
       comments="Digite el nombre de la calle donde esta ubicado el Cliente";
f003 = vetb00005.casa_num, autonext, upshift, 
       comments="Digite el numero de la casa o establecimiento del Cliente";
f004 = vetb00005.barrio, autonext, upshift, 
       comments="Digite el nombre del barrio donde esta ubicado el establecimiento del Cliente";
f005 = vetb00005.urbanizacion, autonext, upshift, 
       comments="Nombre de la urbanizacion donde esta ubicado el establecimiento del Cliente";
f055 = vetb00005.secuencia_visita, autonext, 
       comments="Digite el numero correspondiente a la secuencia de visita para el Cliente"; 
a    = vetb00005.status_t,noentry;
f006 = vetb00005.us_crea,noentry;
f007 = vetb00005.fech_crea,noentry;
f008 = vetb00005.us_mod,noentry;
f009 = vetb00005.fech_mod,noentry;
end

instructions
delimiters " "