180 lines
8.6 KiB
Plaintext
180 lines
8.6 KiB
Plaintext
{
|
|
------------------------------------------------------------------
|
|
FORMULARIO : VEFMMT101
|
|
OBJETIVO : Capturar registros de los Datos Generales o
|
|
Basicos de Clientes (VEPRMT101)
|
|
PROGRAMADOR : Ing. Juan Soto
|
|
FECHA REALIZACION : Diciembre 7, 1992.
|
|
MODIFICADO EN : Junio 14, 2013
|
|
------------------------------------------------------------------
|
|
}
|
|
schema smarmotech
|
|
TOOLBAR
|
|
ITEM nuevo (TEXT="Cliente", IMAGE="new", COMMENT="Nuevo Cliente")
|
|
ITEM buscar (TEXT="Buscar Cliente", IMAGE="find", COMMENT="Criterio de busqueda")
|
|
ITEM activar (TEXT="Activar",IMAGE="refresh",COMMENT="Activa clientes")
|
|
SEPARATOR
|
|
ITEM salir (TEXT="Salir", IMAGE="quit")
|
|
END
|
|
|
|
LAYOUT (TEXT="MAESTRA CLIENTES")
|
|
FOLDER
|
|
PAGE p1 (TEXT="Lista Clientes")
|
|
GRID
|
|
{
|
|
|
|
<g >
|
|
VENDEDOR : [v2 ]
|
|
TOTAL REGISTROS: [lj1 ]
|
|
|
|
<t >
|
|
[rn ][tp1 ][v1 ][z1 ][z2 ][z3 ][z4 ][z5 ][fe1 ]
|
|
[rn ][tp1 ][v1 ][z1 ][z2 ][z3 ][z4 ][z5 ][fe1 ]
|
|
[rn ][tp1 ][v1 ][z1 ][z2 ][z3 ][z4 ][z5 ][fe1 ]
|
|
[rn ][tp1 ][v1 ][z1 ][z2 ][z3 ][z4 ][z5 ][fe1 ]
|
|
[rn ][tp1 ][v1 ][z1 ][z2 ][z3 ][z4 ][z5 ][fe1 ]
|
|
|
|
}
|
|
END
|
|
END
|
|
PAGE p2 (TEXT="Datos Generales")
|
|
GRID
|
|
{
|
|
|
|
<G "Informaciones Generales" >
|
|
Codigo Cliente [f0]-[f001]Tipo Documento[f010 ]R.N.C. [f011 ]
|
|
Razon Social [f002 ]
|
|
Limite Credito [f009 ]Dias Credito[di ]
|
|
Tipo Negocio [tp ]
|
|
|
|
<G "Datos Localizacion" >
|
|
Calle [ca1 ]
|
|
Local No. [lo1 ] Urbanizacion [ur1 ][ur2 ]
|
|
Codigo Zona [f3 ][A1 ]
|
|
Provincia / Pais[f4 ][A2 ]
|
|
Ciudad / Estado[cc ]
|
|
|
|
<G "Comunicacion" ><G "Contactos" >
|
|
Casa [tel ] <t >
|
|
Oficina [f005 ] [c1 ][p1 ][e5 ][e1 ][e2 ][e3 ][e4 ]
|
|
Fax [f006 ] [c1 ][p1 ][e5 ][e1 ][e2 ][e3 ][e4 ]
|
|
Celular [f007 ] [c1 ][p1 ][e5 ][e1 ][e2 ][e3 ][e4 ]
|
|
Email [f008 ] [c1 ][p1 ][e5 ][e1 ][e2 ][e3 ][e4 ]
|
|
Vendedor [cv ][nv ]
|
|
|
|
<G "Auditoria" >
|
|
[a]
|
|
Creador [f013 ] Modificador [f015 ]
|
|
Creacion [f014 ] Modificacion[f016 ]
|
|
}
|
|
END
|
|
END
|
|
|
|
PAGE p3 (TEXT="INFORMACION")
|
|
GRID
|
|
{
|
|
<G >
|
|
[x20 ]
|
|
[X21 ]
|
|
|
|
<t >
|
|
[x10 ][x11 ][x12 ][x13 ][x14 ]
|
|
[x10 ][x11 ][x12 ][x13 ][x14 ]
|
|
[x10 ][x11 ][x12 ][x13 ][x14 ]
|
|
[x10 ][x11 ][x12 ][x13 ][x14 ]
|
|
[x10 ][x11 ][x12 ][x13 ][x14 ]
|
|
}
|
|
END
|
|
END
|
|
END
|
|
|
|
tables
|
|
vetb00004,
|
|
vetb00008,
|
|
vetb00009,
|
|
vetb00020
|
|
ATTRIBUTES
|
|
|
|
lj1 = formonly.lj;
|
|
LABEL x20 = formonly.cliente;
|
|
RADIOGROUP x21 = formonly.cerradas,ITEMS=(("1","ABIERTAS"),("2","CERRADAS")),DEFAULT=1;
|
|
x10 = formonly.num_oc,TITLE="ORDEN";
|
|
COMBOBOX tp1 = formonly.tipoNegocio,TITLE="TIPO NEGOCIO";
|
|
x11 = formonly.fecha,TITLE="FECHA";
|
|
x12 = formonly.cotizacion_no,TITLE="COTIZACION";
|
|
x13 = formonly.valor,TITLE="VALOR";
|
|
x14 = formonly.status_ord,TITLE="ESTATUS";
|
|
|
|
COMBOBOX v2 = formonly.kvendedor;
|
|
rn = formonly.num_rnc1,TITLE="RNC o CEDULA",COMMENTS="Digiete el RNC, CEDULA o PASAPORTE";
|
|
fe1 = formonly.fecha_venta, FORMAT = "dd/mm/yyyy",TITLE="FECHA ULT. VENTA";
|
|
v1 = formonly.kvendedor2,TITLE="VENDEDOR";
|
|
z1 = formonly.tipo_cliente2,TITLE="TIPO CLIENTE";
|
|
z2 = formonly.sec_cliente2,TITLE="CODIGO CLIENTE";
|
|
z3 = formonly.nombre2,TITLE="CLIENTE";
|
|
z4 = formonly.telefono2,TITLE="OFICINA";
|
|
z5 = formonly.telefono3,TITLE="CASA";
|
|
|
|
COMBOBOX di = formonly.cond_pago;
|
|
|
|
ca1 = formonly.calle,UPSHIFT;
|
|
lo1 = formonly.casa_num;
|
|
ur1 = formonly.urbanizacion,scroll,UPSHIFT;
|
|
ur2 = formonly.barrio,scroll,UPSHIFT,COMMENTS="Digite Sector";
|
|
COMBOBOX cc = formonly.id_ciudad;
|
|
|
|
f0 = vetb00004.tipo_cliente, autonext,
|
|
comments="Digite el Codigo del Cliente";
|
|
COMBOBOX tp = formonly.tipo_negocio,DEFAULT=1;
|
|
A1 = formonly.descripcion_zona;
|
|
a2 = formonly.descripcion_provincia;
|
|
f001 = vetb00004.sec_cliente;
|
|
f002 = formonly.nombre,upshift, scroll,
|
|
comments="Digite el Nombre del Cliente";
|
|
f3 = vetb00004.cod_zona, widget="FIELD_BMP", config="combo.bmp control-w",
|
|
comments="Digite el Codigo de la Zona o Ctrl-W para busqueda";
|
|
|
|
f4 = vetb00004.cod_provincia,widget="FIELD_BMP", config="combo.bmp control-w",
|
|
comments="Digite el Codigo de la Provincia o Ctrl-W para busqueda";
|
|
|
|
f005 = formonly.telefono,PICTURE="(###)###-####";
|
|
tel = formonly.telefono_casa,COMMENTS="Digite Telefono Residencia",PICTURE="(###)###-####";
|
|
|
|
f006 = formonly.fax, autonext,PICTURE="(###)###-####",
|
|
comments="Digite el Numero Fax del Cliente";
|
|
f007 = formonly.telex, PICTURE="(###)###-####";
|
|
|
|
f009 = vetb00004.limite_credito, autonext, default = 0,
|
|
comments="Digite el Limite de Credito del Cliente";
|
|
COMBOBOX f010 = formonly.zona_postal, required, ITEMS=(("1","RNC"),("2","CEDULA o PASAPORTE")),default='1';
|
|
|
|
f011 = vetb00004.num_rnc, upshift, autonext,
|
|
comments="Digite el Numero del R.N.C del Cliente",PICTURE="###########";
|
|
f008 = vetb00004.patente,SCROLL;
|
|
|
|
|
|
a = vetb00004.status_t,noentry;
|
|
f013 = vetb00004.us_crea,noentry;
|
|
f014 = vetb00004.fech_crea,noentry;
|
|
f015 = vetb00004.us_mod,noentry;
|
|
f016 = vetb00004.fech_mod,noentry;
|
|
cv = formonly.num_emp type smallint,
|
|
comments="Digite el Codigo del Vendedor o Ctrl-W para busqueda";
|
|
nv = formonly.nombre_v type char,color=yellow,NOENTRY;
|
|
|
|
c1 = formonly.pcontacto,TITLE="CONTACTO",SCROLL,UPSHIFT;
|
|
p1 = formonly.ppuesto,TITLE="TITULO o PROFESION",SCROLL,UPSHIFT;
|
|
e5 = formonly.ppuesto1,TITLE='PUESTO',SCROLL,UPSHIFT;
|
|
e1 = formonly.email_contacto,TITLE="EMAIL",SCROLL;
|
|
e2 = formonly.telefono_of,TITLE="TELEFONO OFICINA";
|
|
e3 = formonly.celular,TITLE="CELULAR";
|
|
e4 = formonly.ptelefono_casa,TITLE="TELEFONO CASA";
|
|
|
|
instructions
|
|
delimiters " "
|
|
SCREEN RECORD sclientes[5] (num_rnc1,tiponegocio,kvendedor2,tipo_cliente2,sec_cliente2,nombre2,telefono2,telefono3,fecha_venta)
|
|
SCREEN RECORD scontactos[4] (pcontacto,ppuesto,ppuesto1,email_contacto,telefono_of,celular,ptelefono_casa)
|
|
SCREEN RECORD sinformacion (num_oc,fecha,cotizacion_no,valor,status_ord)
|
|
end
|
|
|