Files
MBS/PROYECTO/ccdir/ccfmmt002.per
T
jpegueroandClaude Sonnet 5.5 539af7f912 CxC: ccprrp018/003/001 con reporte Genero, ccprrp052 y ccprmt002 corregidos
- ccprrp018: agrega MAIN, GROUP BY por nombre, y reemplaza la salida Excel/DDE
  (G:\ESTADO.XLS, DEL G:\ESTADOS) por un reporte Genero (ccprrp018.4rp); carga con
  un solo INSERT...SELECT en tabla temporal.
- ccprrp003: reemplaza el REPORT de texto con codigos de impresora por
  ccprrp003.4rp; agrega por cliente en una consulta (DATEDIFF, mismas reglas).
- ccprrp001: agrega MAIN, GROUP BY por nombre, reporte Genero (ccprrp001.4rp) y
  registra el formulario ccfmrp001 en FORMULARIOS_CC (faltaba, -1110).
- ccprrp052: la validacion del campo Orden estaba al reves.
- ccprmt002: cctb00002.fecha es datetime en SQL Server; el formulario, la variable
  global relacion (ccprgb000) y el CONSTRUCT la manejan como DATE; corrige que
  eLiminar mostrara exito sin actualizar filas.
- mbsERP.4pw: registra los .4rp, libgre y ccfmrp001 (sin credenciales).

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
2026-11-07 15:23:22 -04:00

43 lines
1.4 KiB
Plaintext

{
------------------------------------------------------------------
FORMULARIO : CCFMMT002
OBJETIVO : Capturar las informaciones de los Recibos de
pago de cada vendedor (CCPRMT002).
PROGRAMADOR : Ing. Juan Soto.
FECHA REALIZACION : Marzo 25, 1993.
------------------------------------------------------------------
}
SCHEMA smarmotech
screen size 24 by 80
{
Fecha [fe ]
Vendedor [f001 ][p ]
Documento Inicial [f002 ]
Documento Final [f003 ]
[a]
Usuario Creador [f004 ] Usuario Modificador[f006 ]
Fecha Creacion [f005 ] Fecha Modificacion [f007 ]
}
end
tables
cctb00002
attributes
fe = formonly.fecha TYPE DATE,format = "dd/mm/yyyy";
f001 = cctb00002.sec_vend,autonext,comments =
"Digite Codigo Vendedor o Presione Ctrl-W Para Busqueda";
p = formonly.nombre_emp,noentry;
f002 = cctb00002.sec_de,autonext,comments =
"Digite Secuencia Inicial de los Documentos";
f003 = cctb00002.sec_a,autonext,comments =
"Digite Secuencia Final de los Documentos";
a = cctb00002.status_t,noentry;
f004 = cctb00002.us_crea,noentry;
f005 = cctb00002.fech_crea,noentry;
f006 = cctb00002.us_mod,noentry;
f007 = cctb00002.fech_mod,noentry;
instructions delimiters " "
end