67 lines
2.4 KiB
Plaintext
67 lines
2.4 KiB
Plaintext
{
|
|
-----------------------------------------------------------------------------
|
|
FORMULARIO : VEFMMT031
|
|
OBJETIVO : Captura la documentacion de las Notas de credito
|
|
REALIZADO POR : Juan F. Soto
|
|
FECHA : Junio 08, 1994
|
|
-----------------------------------------------------------------------------
|
|
}
|
|
database smarmotech
|
|
TOOLBAR
|
|
ITEM nuevo (TEXT="Nueva NC", IMAGE="new", COMMENT="Nueva Nota Credito")
|
|
ITEM buscar (TEXT="Buscar Documento", IMAGE="find", COMMENT="Criterio de busqueda")
|
|
SEPARATOR
|
|
ITEM salir (TEXT="Salir", IMAGE="quit")
|
|
END
|
|
|
|
LAYOUT (TEXT="CREACION NOTAS CREDITOS", STYLE="basic")
|
|
GRID
|
|
|
|
{
|
|
<G Encabezado >
|
|
Numero de Documento [f001 ]
|
|
Cliente [f2]-[f003] [b ]
|
|
Vendedor [f004] [c ]
|
|
Fecha [f005 ] Itbi [it ]
|
|
Concepto: [co ]
|
|
Factura [fa ]BODEGA[bo ]
|
|
|
|
<G Detalle >
|
|
Codigo Devolu. Valor Bruto % Desc. Valor Desc. Valor Neto
|
|
Movim.
|
|
[f1] [f006 ] [f009 ] [pk1 ] [f018 ] [f002 ]
|
|
[f1] [f006 ] [f009 ] [pk1 ] [f018 ] [f002 ]
|
|
[f1] [f006 ] [f009 ] [pk1 ] [f018 ] [f002 ]
|
|
Total [f011 ]
|
|
}
|
|
end
|
|
tables
|
|
cctb00001
|
|
ATTRIBUTES
|
|
COMBOBOX bo = formonly.bodega;
|
|
fa = formonly.factura;
|
|
f011 = formonly.p_total,noentry;
|
|
f001 = cctb00001.num_doc,noentry;
|
|
f2 = cctb00001.tipo_cliente;
|
|
f003 = cctb00001.sec_cliente;
|
|
b = formonly.nom_cli,noentry;
|
|
f004 = cctb00001.cod_emp_sec;
|
|
c = formonly.nombre_emp,noentry;
|
|
f005 = cctb00001.fecha_orig,format = "dd/mm/yy";
|
|
pk1 = formonly.desc_p,comments="Entre Porciento Descuento";
|
|
f1 = formonly.cod_mov type smallint,
|
|
comments = "Digite Codigo Movimiento Almacen",
|
|
include = (12,13);
|
|
f006 = cctb00001.aplica_a, comments =
|
|
"Digite numero documento almacen o 9999 Para los que no tienen facturas";
|
|
f009 = formonly.valor_pen;
|
|
f002 = formonly.valor_pag;
|
|
it = formonly.itbi,noentry;
|
|
f018 = formonly.val_desc,noentry;
|
|
co = formonly.concepto,scroll;
|
|
instructions
|
|
screen record s_recibo[3] (cod_mov,aplica_a,valor_pen,desc_p,val_desc,
|
|
valor_pag)
|
|
delimiters " "
|
|
end
|