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,61 @@
+{
+=============================================================================
+ FORMULARIO        :  CPFMCS002
+ OBJETIVO          :  Creado para consultar maestra de suplidores
+                      usado por CPPRCS002
+ AUTOR             :  Tadeo A. Ferreras
+ FECHA             :  Octubre 21, 1993
+=============================================================================
+}
+database smarmotech    
+screen size 24 by 80
+{
+Codigo del Suplidor [k1]-[f000]
+Nombre              [f001                                         ]
+Direccion     [f002                                                         ]
+Ciudad              [f003                          ]
+Pais      [a0 ][k10                                                         ]
+Telefono            [f004    ]   Codigo de Area [a1   ] No. de Fax [f005    ]
+Persona de Contacto [f006                          ]
+Terminos de Pago    [f7] [l                             ]
+[j]
+Usuario Creador    [f008     ]            Usuario Modificador [f010     ]
+Fecha Creacion     [f009            ]     Fecha Modificacion  [f011            ]
+}
+end
+tables
+cotb00001,cotb00024
+attributes
+k1   = cotb00001.cod_sp,picture = "##",autonext,
+       comments = "Codigo del Suplidor";
+f000 = cotb00001.cod_sp_sec, picture="####",autonext,
+       comments="Codigo del Suplidor";
+f001 = cotb00001.nom_sp, upshift, 
+       comments="Nombre del Suplidor"; 
+f002 = cotb00001.dir_sp, upshift, 
+       comments="Direccion del Suplidor"; 
+f003 = cotb00001.ciu_sp, upshift, 
+       comments="Ciudad donde reside el suplidor"; 
+a0   = cotb00001.cod_pais, picture="###", 
+       comments="Codigo correspondiente al pais donde reside el suplidor"; 
+k10  = formonly.nom_pais,noentry;
+a1   = cotb00001.area_sp,
+       comments="Codigo de Area"; 
+f004 = cotb00001.tel_sp, picture="XXX-XXXX", 
+       comments="Numero telefonico del Suplidor"; 
+f005 = cotb00001.fax_sp, picture="XXX-XXXX", 
+       comments="Numero del Fax del Suplidor"; 
+f006 = cotb00001.cont_sp, upshift, 
+       comments="Nombre de la Persona de Contacto para fines de negocios"; 
+f7 = cotb00001.term_sp,
+       comments="Condiciones de pagos que exige el suplidor"; 
+l    = cotb00024.descrip_term,noentry;
+f008 = cotb00001.us_crea, noentry; 
+f009 = cotb00001.fech_crea, noentry; 
+f010 = cotb00001.us_mod, noentry; 
+f011 = cotb00001.fech_mod, noentry; 
+j = cotb00001.status_t, noentry; 
+instructions
+delimiters " "
+end
+