51 lines
2.2 KiB
Plaintext
51 lines
2.2 KiB
Plaintext
{
|
|
==============================================================================
|
|
FORMULARIO : CPFMWD041
|
|
OBJETIVO : Compra electronica e-CF 41 (Comprobante de Compras).
|
|
Se digita el neto, el % de ISR, el tipo de retencion ISR
|
|
(formato 606), si lleva ITBIS y si es bien o servicio;
|
|
el resto se calcula solo.
|
|
PROGRAMA Q. USA : CPPRMT001 (modulo cpprmt001_ecf.4gl)
|
|
FECHA : Octubre 2026
|
|
==============================================================================
|
|
}
|
|
SCHEMA FORMONLY
|
|
LAYOUT (TEXT="Compra electronica (e-CF 41)")
|
|
GRID
|
|
{
|
|
e-NCF [f01 ]
|
|
Suplidor [f02 ]
|
|
Cedula/RNC [f03 ]
|
|
|
|
Neto a pagar [f04 ]
|
|
% ISR [f05 ]
|
|
Tipo retencion ISR [f06 ]
|
|
Lleva ITBIS 18% [f07 ]
|
|
Bien o servicio [f13 ]
|
|
|
|
Subtotal [f08 ]
|
|
ITBIS 18% [f09 ]
|
|
ISR retenido [f10 ]
|
|
ITBIS retenido [f11 ]
|
|
Total comprobante [f12 ]
|
|
}
|
|
END
|
|
END
|
|
ATTRIBUTES
|
|
EDIT f01 = FORMONLY.ncf41 TYPE CHAR, NOENTRY;
|
|
EDIT f02 = FORMONLY.nom41 TYPE CHAR, NOENTRY;
|
|
EDIT f03 = FORMONLY.rnc41 TYPE CHAR, NOENTRY;
|
|
EDIT f04 = FORMONLY.neto41 TYPE DECIMAL(12,2), FORMAT="--,---,--&.&&",
|
|
COMMENT="Lo que recibe el proveedor";
|
|
COMBOBOX f05 = FORMONLY.porc41 TYPE DECIMAL(5,2),
|
|
ITEMS=((0,"0% - Exento"),(3,"3% - Servicios tecnicos"),(15,"15% - Honorarios / alquileres"));
|
|
COMBOBOX f06 = FORMONLY.cisr41 TYPE SMALLINT;
|
|
CHECKBOX f07 = FORMONLY.itbis41 TYPE CHAR, VALUECHECKED="S", VALUEUNCHECKED="N", TEXT="";
|
|
COMBOBOX f13 = FORMONLY.bs41 TYPE CHAR, ITEMS=(("1","Bien"),("2","Servicio"));
|
|
EDIT f08 = FORMONLY.sub41 TYPE DECIMAL(12,2), FORMAT="--,---,--&.&&", NOENTRY;
|
|
EDIT f09 = FORMONLY.itb41 TYPE DECIMAL(12,2), FORMAT="--,---,--&.&&", NOENTRY;
|
|
EDIT f10 = FORMONLY.isr41 TYPE DECIMAL(12,2), FORMAT="--,---,--&.&&", NOENTRY;
|
|
EDIT f11 = FORMONLY.itbret41 TYPE DECIMAL(12,2), FORMAT="--,---,--&.&&", NOENTRY;
|
|
EDIT f12 = FORMONLY.total41 TYPE DECIMAL(12,2), FORMAT="--,---,--&.&&", NOENTRY;
|
|
END
|