Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
@@ -0,0 +1,56 @@
+{
+ ==============================================================================
+  FORMULARIO      : CPFMMT002
+  SISTEMA         : Sistema de Cuentas Por Pagar
+  OBJETIVO        : Pantalla para captura de datos referentes a un pago o
+                    prepago aplicado a una orden y/o una factura
+  PROGRAMA Q. USA : CPPRMT002
+  PROGRAMADOR     : Tadeo A. Ferreras
+  Fecha           : Junio 27, 1993
+ =============================================================================
+}
+database smarmotech    
+screen size 24 by 80
+{
+
+   Tipo             [a0][t1                  ] Numero de Documento     [f001  ]
+   Cuenta Contable  [ct        ]               [nct                           ]
+   Suplidor         [f2]-[f003] [b                                            ]
+   Fecha            [f005      ]      Concepto [dt                            ]
+                                      Monto   [f10         ]
+\g-----------------------------------------------------------------------------\g
+     Aplicacion          Valor Pendiente         Valor Pagado
+\g-----------------------------------------------------------------------------\g
+   [f006      ]        [f009         ]        [f002         ]
+   [f006      ]        [f009         ]        [f002         ]
+   [f006      ]        [f009         ]        [f002         ]
+   [f006      ]        [f009         ]        [f002         ]
+}
+end
+tables
+cptb00001
+attributes
+a0 = cptb00001.tipo_doc,autonext,upshift,include = ("CK","ND","NC"),
+     comments = 
+" ND- Nota Debito   NC- Nota Credito",reverse;
+t1   = formonly.nom_tipo,noentry,color=yellow;
+f001 = cptb00001.num_doc,reverse,picture = "######";
+ct   = cptb00001.cta_ctble;
+nct  = formonly.nom_cuenta,noentry,upshift,color=yellow;
+f2 = cptb00001.cod_sp,reverse,autonext,comments=
+"Digite 21=Intercompany, 22=Internaciones, 23=Locales, 24- Supl. Euro Ctrl-W=consultar";
+f003 = cptb00001.cod_sp_sec,reverse,autonext,comments=
+     "Digite el codigo del suplidor, o Digite Ctrl-W para consultar Suplidor";
+b = formonly.nom_sup,noentry,color=yellow;
+f005 = formonly.fecha_orig,format = "dd/mm/yyyy";
+dt   = cptb00001.detalle,upshift,reverse;
+f10  = formonly.monto type decimal(12,2),reverse;
+f006 = cptb00001.aplica_a,reverse,
+  comments = "Presione Ctrl-W Para Buscar Documentos Pendientes";
+f009 = formonly.valor_pen,noentry;
+f002 = formonly.valor_pag,reverse;
+instructions
+ screen record s_recibo[4] (aplica_a,valor_pen,valor_pag)
+ 
+ delimiters " "
+end