primer commit subida

2026-09-22 20:38:51 -04:00
commit 07649704b1
10247 changed files with 3271751 additions and 0 deletions
@@ -0,0 +1,55 @@
+{
+-----------------------------------------------------------------------------
+FORMULARIO      : CCFMMT004
+OBJETIVO        : Captura la documentacion de Aplicacion Dctos.   (CCPRMT004)
+REALIZADO POR   : Tadeo A. Ferreras 
+FECHA           : Enero 26, 1993
+-----------------------------------------------------------------------------
+}
+database marmotech    
+screen size 24 by 80
+{
+   Cuenta    [n1      ][fg                        ] Deposito [dp      ]
+   Tipo      [a0][t1                   ]  Numero de Documento  [f001  ]
+   Cliente   [f2]-[f003] [b                             ]
+   Vendedor  [f004] [c                             ]
+   Fecha     [f005    ]                   Valor Recibo   [vr          ] 
+
+\g----------------------------------------------------------------------------\g
+  Aplicacion      Valor Pendiente        Descuento               Valor Pagado
+\g----------------------------------------------------------------------------\g
+  [f006         ] [f009         ]      [pk1       ]            [f002         ]
+  [f006         ] [f009         ]      [pk1       ]            [f002         ]
+  [f006         ] [f009         ]      [pk1       ]            [f002         ]
+                                                                =============
+                                              Valor Recibo     [f011         ]
+}
+end
+tables
+cctb00001
+attributes
+n1 = formonly.cuenta_no;
+dp = formonly.deposito;
+vr = formonly.valor_ctrl,comments = "Digite el Monto del Recibo o Dcto.";
+fg = formonly.nombre_cta,noentry;
+a0 = cctb00001.tipo_doc,autonext,upshift,include = ("NC","PG","ND","AV"),
+ comments = "PG-Pago   ND-Nota Dr.   NC-Nota Cr.   AV- Avance Orden Produccion";
+f011 = formonly.p_total,noentry;
+t1   = formonly.nombre_tipo,noentry;
+f001 = cctb00001.num_doc;
+f2 = cctb00001.tipo_cliente,noentry;
+f003 = cctb00001.sec_cliente,noentry; 
+b = formonly.nom_cli,noentry;
+f004 = cctb00001.cod_emp_sec,noentry; 
+c = formonly.nombre_emp,noentry;
+f005 = cctb00001.fecha_orig,format = "dd/mm/yy";
+pk1  = formonly.desc_p;
+f006 = cctb00001.aplica_a, comments = 
+"Presione Ctrl-W Para Buscar Documentos Pendientes, factura 999 para abono";
+f009 = formonly.valor_pen,noentry;
+f002 = formonly.valor_pag;
+instructions
+ screen record s_recibo4[3] (aplica_a,valor_pen,desc_p,valor_pag)
+ 
+ delimiters " "
+end