{
------------------------------------------------------------------
 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