{
 ==============================================================================
  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