---------------------------------------------------------------------------------- -- File created from C:\Users\egarcia\OneDrive - MARMOTECH, S. A\Equipo Tecnologia\Fuentes\MARMOTECH\PROYECTO\codir\cofmmt009.4fd by Genero Studio -- WARNING! All changes made in this file will be lost! ---------------------------------------------------------------------------------- SCHEMA smarmotech ACTION DEFAULTS ACTION suplidor(text=%"Busca Suplidor", image="find") END -- ACTION DEFAULTS TOOLBAR ToolBar1 ITEM nuevo(image="new", text=%"Orden de Compras", comment=%"Nueva Orden") ITEM buscar(image="find", text=%"Buscar Ordenes de Compras", comment=%"Criterio de busqueda") SEPARATOR ToolBarSeparator1 ITEM salir(image="quit", text=%"Salir") END -- ToolBar1 LAYOUT (text=%"ORDENES DE COMPRAS", style="basic") GRID Grid1 { [label8 ] [num_oc] Tipo Orden[tipo ] [label|fech_oc ] [label9 |co][cod_][suplidor ][nom_sp ] [label2 ] [nom_pais ] [label6 ][term_sp ]Pago [pago ] [lab][via ] [label7 ] [enviada ] Fecha [fech_enviada ] [label13 ][fech_pago ] [label3 ] [salida ] [label1] [cier] Puerto[cod_pt ] [label12|num_pr ] [label11 ] [cod_mon ] [label4 |itbis ] < > [numero_o|num_re|cod_n |cod_gr|cod_tip|cod_sec |descripcion |unid|cantidad |tipo_cos|precio |porc_desc |monto_desc |valor ] [numero_o|num_re|cod_n |cod_gr|cod_tip|cod_sec |descripcion |unid|cantidad |tipo_cos|precio |porc_desc |monto_desc |valor ] [numero_o|num_re|cod_n |cod_gr|cod_tip|cod_sec |descripcion |unid|cantidad |tipo_cos|precio |porc_desc |monto_desc |valor ] [numero_o|num_re|cod_n |cod_gr|cod_tip|cod_sec |descripcion |unid|cantidad |tipo_cos|precio |porc_desc |monto_desc |valor ] [numero_o|num_re|cod_n |cod_gr|cod_tip|cod_sec |descripcion |unid|cantidad |tipo_cos|precio |porc_desc |monto_desc |valor ] N.A.B. [cod_nab ] Nomenclatura [descrip1 ] < > } END -- Grid1 END -- cofmmt009 TABLES cotb00001, cotb00005 ATTRIBUTES GROUP group1:Group1, text=%"Generales"; LABEL label8:Label8, text=%"Orden No."; EDIT num_oc=formonly.num_oc, tabIndex=1; COMBOBOX tipo=formonly.tipo, tabIndex=2, default = "02"; LABEL label:Label15, text=%"Fecha"; EDIT fech_oc=formonly.fech_oc type CHAR, tabIndex=3, autoNext, format="dd/mm/yyyy", comment=%"Digite la fecha de elaboracion de la orden"; LABEL label9:Label9, text=%"Codigo Suplidor"; EDIT co=formonly.cod_sp type CHAR, tabIndex=4, autoNext, comment=%"Digite el codigo del suplidor o Presione Ctrl-W para busqueda"; EDIT cod_=formonly.cod_sp_sec type CHAR, tabIndex=5, autoNext, comment=%"Digite la secuencia del suplidor o Presione Ctrl-W para busqueda"; BUTTON suplidor:suplidor, tabIndex=6; EDIT nom_sp=cotb00001.nom_sp, tabIndex=7, noEntry; LABEL label2:Label2, text=%"Pais"; EDIT nom_pais=formonly.nom_pais, tabIndex=31, scroll; LABEL label6:Label6, text=%"Codigo de Pago"; COMBOBOX term_sp=formonly.term_sp type CHAR, tabIndex=8, default = "2"; COMBOBOX pago=formonly.pago type CHAR, tabIndex=12, INCLUDE = ("S", "N"), items=(("S", %"S"),("N", %"N")); LABEL lab:Label14, text=%"Via"; COMBOBOX via=formonly.via type CHAR, tabIndex=9, default = "3", comment=%"Digite 01 = Maritima, 02 = Aerea, 03 = Terrestre"; LABEL label7:Label7, text=%"Enviada"; COMBOBOX enviada=formonly.enviada type CHAR, tabIndex=10, INCLUDE = ("S", "N"), items=(("S", %"S"),("N", %"N")); EDIT fech_enviada=formonly.fech_enviada type CHAR, tabIndex=11, format="dd/mm/yyyy"; LABEL label13:Label13, text=%"Fecha Pago"; EDIT fech_pago=formonly.fech_pago type CHAR, tabIndex=13, format="dd/mm/yyyy"; LABEL label3:Label3, text=%"Salida"; COMBOBOX salida=formonly.salida, tabIndex=32, default = "SVG", items=(("SVG", "SCREEN"),("PDF", "PDF")); LABEL label1:Label10, text=%"Cierre"; EDIT cier=formonly.cierre type CHAR, tabIndex=14, noEntry, INCLUDE = ("S", "N"); COMBOBOX cod_pt=formonly.cod_pt, tabIndex=15, comment=%"Digite el puerto de embarque o Presione Ctrl-W para busqueda"; LABEL label12:Label12, text=%"No.Prof"; EDIT num_pr=formonly.num_pr type CHAR, tabIndex=16, autoNext, comment=%"Digite el numero de la proforma o cotizacion"; LABEL label11:Label11, text=%"Codigo Moneda"; COMBOBOX cod_mon=formonly.cod_mon, tabIndex=17, default = "1"; LABEL label4:Label1, text=%"ITBIS", justify=right; EDIT itbis=formonly.itbis, tabIndex=30; GROUP group2:Group2, text=%"Detalle Orden"; TABLE table1:Table1, width = 101 characters; EDIT numero_o=formonly.numero_orden, tabIndex=35, title=%"ORDEN", noEntry; EDIT num_re=formonly.num_req, tabIndex=18, title=%"Requisicion", autoNext, comment=%"Digite Numero de Requisicion o Presione Ctrl-w Para Busqueda"; EDIT cod_n=formonly.cod_n type CHAR, tabIndex=19, title=%"CLASE", noEntry; EDIT cod_gr=formonly.cod_grupo type CHAR, tabIndex=20, title=%"GRUPO", noEntry; EDIT cod_tip=formonly.cod_tipo type CHAR, tabIndex=21, title=%"TIPO", noEntry; EDIT cod_sec=formonly.cod_sec type CHAR, tabIndex=22, title=%"SECUENCIA", noEntry; EDIT descripcion=formonly.descripcion, tabIndex=23, noEntry, scroll; EDIT unid=formonly.unidad, tabIndex=24, noEntry; BUTTONEDIT cantidad=formonly.cantidad type FLOAT, action=parciales, tabIndex=25, title=%"CANTIDAD", image="new2.png"; COMBOBOX tipo_cos=formonly.tipo_costo, title=%"TIPO COSTO", initializer=tipoCosto; EDIT precio=formonly.precio type DECIMAL(18,5), tabIndex=26, title=%"PRECIO"; EDIT porc_desc=formonly.porc_desc, tabIndex=33, title=%"Porciento Desc."; EDIT monto_desc=formonly.monto_desc, tabIndex=34, title=%"MONTO DESC", noEntry; EDIT valor=formonly.valor, tabIndex=27, title=%"VALOR", noEntry; EDIT cod_nab=cotb00005.cod_nab, tabIndex=28, noEntry; EDIT descrip1=formonly.descrip1, tabIndex=29, noEntry; END -- ATTRIBUTES INSTRUCTIONS SCREEN RECORD consart(formonly.numero_orden,formonly.num_req,formonly.cod_n,formonly.cod_grupo,formonly.cod_tipo,formonly.cod_sec,formonly.descripcion,formonly.unidad,formonly.cantidad,formonly.tipo_costo,formonly.precio,formonly.porc_desc,formonly.monto_desc,formonly.valor) SCREEN RECORD Undefined(formonly.num_oc,formonly.tipo,formonly.fech_oc,formonly.cod_sp,formonly.cod_sp_sec,cotb00001.nom_sp,formonly.term_sp,formonly.via,formonly.enviada,formonly.fech_enviada,formonly.pago,formonly.fech_pago,formonly.cierre,formonly.cod_pt,formonly.num_pr,formonly.cod_mon,cotb00005.cod_nab,formonly.descrip1,formonly.itbis,formonly.nom_pais,formonly.salida) END -- INSTRUCTIONS