Files
MBS/PROYECTO/cpdir/cpfmmt001.per
T

84 lines
3.8 KiB
Plaintext

----------------------------------------------------------------------------------
-- File created from C:\Users\egarcia\OneDrive - MARMOTECH, S. A\Equipo Tecnologia\Fuentes\MARMOTECH\PROYECTO\cpdir\cpfmmt001.4fd by Genero Studio
-- WARNING! All changes made in this file will be lost!
----------------------------------------------------------------------------------
SCHEMA smarmotech
TOOLBAR toolbar1
ITEM adicionar(image="new", text=%"Adicionar")
ITEM Consultar_modificar(image="find", text=%"Consultar")
ITEM salir(image="exit", text=%"Salir")
END -- toolbar1
LAYOUT (text=%"FACTURAS PROVEEDORES")
GRID grid1
{
[label1 ] [cod_sp |l|cod_|nom_sup ]
[label3 ] [num_doc ] [label4 ] [fecha_orig]
[label9 ] [v_term_sp ] [label6 |valor_fac ]
[label5 |fecha_proc]
[label18 ] [tipo ]
[label11 ] [bodega |reporteent]
[label] [orden_]
[label7 ] [cod_mon ] [monto_orde]
[label8 ] [detalle ]
<T table1 >
[tipo1 |aplica_a|tipo_doc|valor_re|valor ]
[tipo1 |aplica_a|tipo_doc|valor_re|valor ]
[tipo1 |aplica_a|tipo_doc|valor_re|valor ]
[tipo1 |aplica_a|tipo_doc|valor_re|valor ]
[tipo1 |aplica_a|tipo_doc|valor_re|valor ]
}
END -- grid1
END -- FACTURAS PROVEEDORES
TABLES
cptb00001
ATTRIBUTES
LABEL label1:label1, text=%"Codigo Suplidor";
COMBOBOX cod_sp=formonly.cod_sp type SMALLINT, tabIndex=1;
LABEL l:label2, text=%"-";
EDIT cod_=cptb00001.cod_sp_sec, tabIndex=2, autoNext, comment=%"Presione Ctrl-W Para busca Suplidor";
EDIT nom_sup=formonly.nom_sup, tabIndex=3, noEntry, color = yellow;
LABEL label3:label3, text=%"Numero Factura";
EDIT num_doc=cptb00001.num_doc, tabIndex=4, upShift;
LABEL label4:label4, text=%"Fecha Factura";
EDIT fecha_orig=cptb00001.fecha_orig, tabIndex=5, format="dd/mm/yyyy";
LABEL label9:label9, text=%"Termino de pago";
COMBOBOX v_term_sp=formonly.v_term_sp type VARCHAR, upShift;
LABEL label6:label6, text=%"Monto Factura";
EDIT valor_fac=formonly.valor_fac type DECIMAL(12,2), tabIndex=7, comment=%"Digite el valor de la factura";
LABEL label5:label5, text=%"Fecha Vencimento";
EDIT fecha_proc=cptb00001.fecha_proc, tabIndex=6, format="dd/mm/yyyy";
LABEL label18:label18, text=%"Inventario";
COMBOBOX tipo=formonly.tipo type CHAR, scroll, comment=%"01-Generales 02-Rov.ltd 03-Locales 04-Miscelaneas";
LABEL label11:label11, text=%"Reporte Entrada";
COMBOBOX bodega=formonly.bodega, scroll, comment=%"Elegir Bodega";
EDIT reporteent=formonly.reporteEntrada;
LABEL label:label10, text=%"Orden";
EDIT orden_=cptb00001.orden_no;
LABEL label7:label7, text=%"Valor Orden";
EDIT cod_mon=formonly.cod_mon, noEntry, comment=%"Elegir Moneda";
EDIT monto_orde=formonly.monto_orden;
LABEL label8:label8, text=%"Observacion";
EDIT detalle=cptb00001.detalle, tabIndex=8, required, upShift;
TABLE table1:table1;
EDIT tipo1=formonly.tipo1, title=%"Tipo";
EDIT aplica_a=formonly.aplica_a, title=%"Aplicacion";
EDIT tipo_doc=formonly.tipo_doc, title=%"Tipo Doc";
EDIT valor_re=formonly.valor_Rep, title=%"Valor Prepago";
EDIT valor=formonly.valor, title=%"Valor aplicar";
END -- ATTRIBUTES
INSTRUCTIONS
SCREEN RECORD record1(formonly.cod_sp,cptb00001.cod_sp_sec,formonly.nom_sup,cptb00001.num_doc,formonly.v_term_sp,cptb00001.fecha_orig,cptb00001.fecha_proc,formonly.valor_fac,formonly.tipo,formonly.bodega,formonly.reporteEntrada,cptb00001.orden_no,formonly.cod_mon,formonly.monto_orden,cptb00001.detalle)
SCREEN RECORD factura1(formonly.tipo1,formonly.aplica_a,formonly.tipo_doc,formonly.valor_Rep,formonly.valor)
END -- INSTRUCTIONS