modificaciones facturacion electronica

2026-10-15 16:07:57 -04:00
parent 07649704b1
commit ba982b7635
158 changed files with 206301 additions and 27838 deletions
@@ -0,0 +1,50 @@
+{
+ ==============================================================================
+  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