diff --git a/PROYECTO/codir/coprmt009.4gl b/PROYECTO/codir/coprmt009.4gl index ff400f9..68d7db2 100644 --- a/PROYECTO/codir/coprmt009.4gl +++ b/PROYECTO/codir/coprmt009.4gl @@ -1037,6 +1037,9 @@ FUNCTION copcmf009() CALL lugarentregas() # Aqui se prepara para la captura del criterio de seleccion + -- cotb00014.bodega excluido: es el mismo combo oculto (tabIndex=-1) en + -- cofmmt009 que ya se excluye en copcad009(); el CONSTRUCT fallaba con + -- "Field (bodega) not found in form". CONSTRUCT criterio ON cotb00014.num_oc, cotb00014.tipo, @@ -1049,8 +1052,7 @@ FUNCTION copcmf009() cotb00014.fech_enviada, cotb00014.pago, cotb00014.fech_pago, - cotb00014.cierre, - cotb00014.bodega + cotb00014.cierre FROM num_oc, tipo, fech_oc, @@ -1062,8 +1064,7 @@ FUNCTION copcmf009() fech_enviada, pago, fech_pago, - cierre, - bodega + cierre IF int_flag THEN LET numero_msg = 2 @@ -2360,7 +2361,8 @@ FUNCTION escoge() ordenes.pago, ordenes.fech_pago - DISPLAY BY NAME ordenes.bodega + -- ordenes.bodega excluido (ver nota en copcad009()): no esta en el + -- formulario, DISPLAY BY NAME fallaba con "Field (bodega) not found in form". IF ordenes.cod_sp = 22 OR ordenes.cod_sp = 24 THEN LET flete1.total_1 = diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index 23a8f0c..28e03de 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -200,9 +200,10 @@ - + + @@ -235,6 +236,7 @@ +