jsoto/MBS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
MBS/PROYECTO/codir/cofmmt009.per
T

113 lines
7.5 KiB
Plaintext
Raw Permalink Blame History

----------------------------------------------------------------------------------
-- 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
{
<G group1 >
[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 ]
< >
<G group2 >
<T table1 >
[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
Reference in New Issue View Git Blame Copy Permalink