database smarmotech
ACTION DEFAULTS
 ACTION busca_descrip (TEXT="Busca Descripcion",IMAGE="mag")
 ACTION busca_direccion (TEXT="Busca Direccion",IMAGE="find")
END
TOOLBAR 
  ITEM nuevo (TEXT="Cotizacion", IMAGE="new", COMMENT="Nueva Cotizacion")
  ITEM buscar (TEXT="Buscar Cotizaciones", IMAGE="find", COMMENT="Criterio de busqueda")
 SEPARATOR
  ITEM Impresion (TEXT="Imprimir", IMAGE="printer",COMMENT="Imprime cotizacion Existente")
  ITEM salir (TEXT="Salir", IMAGE="quit")
END
LAYOUT (TEXT="COTIZACIONES DE VENTAS", STYLE="basic")
 FOLDER
   PAGE p1 (TEXT="Datos Generales")
    GRID 

{

<G Cliente                                                                 ><G Valores                        ><G "Fotos"                    >
 Compania          [f1  ][d1                 ]      Cotizacion No.[f2    ]   Monto Bruto  [f26              ]   [ft                         ]
 Ventas            [vta                                            ]         $Total       [f27              ]
 Cliente           [f3]-[f4  ][f5                                  ]         $Descuento   [f28              ]
 Numero RNC        [rn         ] Orden Pedidos[ord       ]Orden[pord     ]   %Itbis       [f25   ]
 Nombre Proyecto   [f6                                             ]         $M.Itbis     [f29              ]
 Direccion Proy.   [f9                                             ][bt1  ]
 Direccion Cliente [f7                                             ]         $Neto        [f30              ]
 Ciudad            [f8][d3                                         ]         Tasa Cambio  [f14     ]
 Fecha             [f18       ]Fecha Entrega[f19       ]                     Monto Cambio [f31              ]
 Plazo Entrega     [f20                                            ]         BALANCE CXC  [bcxc             ]   
 Condiciones Pago  [f23                                            ]                            
 Vendedor          [f24  ][d5                                        ]                       [BT4         ]             
   
<G Detalle                                                                                                                                                    >
 <t t1                                                                                                                                                       >
  [va  ][pk                ][e  |f   |g    |h   ][d6                                                 ][un ][f41    |f37       |f38     |f39  ][f40     ][fi1][fx]
  [va  ][pk                ][e  |f   |g    |h   ][d6                                                 ][un ][f41    |f37       |f38     |f39  ][f40     ][fi1][fx]
  [va  ][pk                ][e  |f   |g    |h   ][d6                                                 ][un ][f41    |f37       |f38     |f39  ][f40     ][fi1][fx]
  [va  ][pk                ][e  |f   |g    |h   ][d6                                                 ][un ][f41    |f37       |f38     |f39  ][f40     ][fi1][fx]
  [va  ][pk                ][e  |f   |g    |h   ][d6                                                 ][un ][f41    |f37       |f38     |f39  ][f40     ][fi1][fx]
  [va  ][pk                ][e  |f   |g    |h   ][d6                                                 ][un ][f41    |f37       |f38     |f39  ][f40     ][fi1][fx]
}
  END 
END
 PAGE p2 (TEXT="Datos Complementarios")
   GRID

{

 <G Proyecto                                                              >
  Comentarios      [f21                                                ]  
  Contacto         [f22                                                ]  
  Tipo Precio      [tp                                                 ]
  
 <G Comunicacion                                                         > 
    Telefono Res. [f10           ]Celular       [f13           ]
    Telefono Ofic.[f11           ]Tel. Proyecto [f16           ]
    Beeper        [f12           ]Fax Oficina   [f15           ]
    Fax Residencia[f17           ]
    EMail         [em                                          ]

 <G Estado                                                                >
  Stado                  [f32] 
  Usuario  Creador       [f33       ] Fecha Creacion     [f34             ]
  Ususario Modificador   [f35       ] Fecha Modificacion [f36             ]

} 
  END
 END
END
tables
vetb00050,vetb00051
attributes
bcxc = FORMONLY.balancecxc,format="---,---,--#.##";
COMBOBOX vta = FORMONLY.ventas;
pord = formonly.orden_cliente,comment="Introduzca orden del cliente";
f1 = FORMONLY.cod_cia, WIDGET = "COMBO", config = "line=3",
     INCLUDE=("1","3","4") ;
d1 = formonly.nombre_cia;
f2 = vetb00050.cotizacion_no,noentry;
f3 = vetb00050.tipo_cliente,
      widget="FIELD_BMP",   config="combo.bmp control-w";
f4 = vetb00050.sec_cliente,
     widget="FIELD_BMP",   config="combo.bmp control-w";
f5 = vetb00050.nombre_cliente,upshift,required,scroll ;
rn = vetb00050.rnc;
ord = formonly.orden;
f6 = vetb00050.nombre_proyecto,upshift,scroll ;
f7 = vetb00050.direccion_cliente,upshift,scroll;
f8 = vetb00050.cod_provincia,
      widget="FIELD_BMP",   config="combo.bmp control-w";
d3 = formonly.nombre_ciudad,noentry;
f9 = vetb00050.direccion_proyecto,upshift,scroll;
f10 = vetb00050.telefono_r ;
f11 = vetb00050.telefono_o ;
f12 = vetb00050.beeper ;
f13 = vetb00050.celular ;
f14 = vetb00050.prima,required ;
f15 = vetb00050.fax1 ;
f16 = vetb00050.celular1 ;
f17 = vetb00050.fax ;
em  = vetb00050.email;
DATEEDIT f18 = vetb00050.fecha, format = "dd/mm/yyyy" ;
DATEEDIT f19 = vetb00050.fecha_entrega, format = "dd/mm/yyyy" ;
f20 = vetb00050.plazo_entrega;
f21 = vetb00050.comentario,upshift,scroll;
f22 = vetb00050.contacto,upshift,scroll ;
RADIOGROUP tp  = vetb00050.tipo_precio, ITEMS =((1,"Precio En Planta"),(2,"Precio En Localidad Cliente")),DEFAULT=2;
COMBOBOX f23 = formonly.cond_pago ;
#d4  = formonly.nombre_condicion,upshift;
f24 = vetb00050.sec_vend ;
d5  = formonly.nombre_vend,noentry;
f25 = vetb00050.porc_itbi ;
f26 = vetb00050.total_bruto,noentry;
f27 = vetb00050.sub_total,noentry ;
f28 = vetb00050.monto_desc,noentry ;
f29 = vetb00050.monto_itbi,noentry ;
f30 = vetb00050.total_neto,noentry ;
f31 = vetb00050.monto_dolar,noentry ;
f32 = vetb00050.status_t,noentry ;
f33 = vetb00050.us_crea,noentry ;
f34 = vetb00050.fech_crea,noentry ;
f35 = vetb00050.us_mod,noentry ;
f36 = vetb00050.fech_mod,noentry ;
va  = vetb00051.area, widget="FIELD_BMP",   config="combo.bmp control-w",TITLE="AREA";

e   = vetb00051.cod_n, widget="FIELD_BMP",   config="combo.bmp control-w",TITLE="CLASE";
f   = vetb00051.cod_grupo, widget="FIELD_BMP",   config="combo.bmp control-w",TITLE="GRUPO";
g   = vetb00051.cod_tipo, widget="FIELD_BMP",   config="combo.bmp control-w",TITLE="TIPO";
h   = vetb00051.cod_sec, widget="FIELD_BMP",   config="combo.bmp control-w",TITLE="MEDIDA";
f41 = vetb00051.cantidad_1,TITLE="UNIDAD/CANTIDAD";
f37 = vetb00051.cantidad,TITLE="CANTIDAD",noentry;
f38 = vetb00051.precio,TITLE="PRECIO";
f39 = vetb00051.porc_desc,TITLE="%DESCUENTO";
f40 = formonly.total_p,noentry,TITLE="VALOR";
LABEL d6  = formonly.nombre_p,TITLE="DESCRIPCION";
un  = formonly.unidad,TITLE="UNIDAD",noentry;
pk  = formonly.nombre_area,TITLE="DESCRIPCION AREA";
fx= formonly.chactualiza,HIDDEN;
IMAGE ft=formonly.foto_producto,STRETCH = BOTH,AUTOSCALE;
BUTTONEDIT fi1 = formonly.ruta,SCROLL,IMAGE="open",TITLE="FOTO",ACTION=dibujo;
BUTTON bt4:busca_descrip;
BUTTON bt1:busca_direccion;

instructions
  screen record s_pedido 
  (area,nombre_area,cod_n, cod_grupo, cod_tipo, cod_sec,nombre_p,unidad,cantidad_1,cantidad, precio, porc_desc, total_p,ruta,chactualiza)
end