Tiempo aproximado de lectura 00:05:00 min
Duda
¿Cuál es la funcionalidad del punto de entrada CBTAMETQ?
Entorno
Cross Segmentos - TOTVS Backoffice (Línea Protheus) - MI - Recolección de datos (SIGAACD) - A partir de la versión 12.1.2310
Solución
El punto de entrada CBTAMETQ se implementó para ofrecer flexibilidad en la configuración del tamaño del campo Producto/Etiqueta cuando el sistema está configurado para no usar la tabla CB0. Esto ocurre cuando el parámetro del sistema MV_ACDCB0 no contiene "01".
CBTAMETQ
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | <font dir="auto" style="vertical-align: inherit;"><font dir="auto" style="vertical-align: inherit;">#Incluir "Protheus.ch"</font></font><font></font><font></font><font dir="auto" style="vertical-align: inherit;"><font dir="auto" style="vertical-align: inherit;">Función de usuario CBTamEtq()</font></font><font></font><font dir="auto" style="vertical-align: inherit;"><font dir="auto" style="vertical-align: inherit;">Área local := ObtenerÁrea()</font></font><font></font><font dir="auto" style="vertical-align: inherit;"><font dir="auto" style="vertical-align: inherit;">nRet local := 0</font></font><font></font><font dir="auto" style="vertical-align: inherit;"><font dir="auto" style="vertical-align: inherit;">nTamCpo local := PARAMIXB[1]</font></font><font></font><font dir="auto" style="vertical-align: inherit;"><font dir="auto" style="vertical-align: inherit;">nNewTam local := 120</font></font><font></font><font></font><font dir="auto" style="vertical-align: inherit;"><font dir="auto" style="vertical-align: inherit;">Si MsgYesNo( "El tamaño del campo Etiqueta en pantalla es "+ cValToChar( nTamCpo ) +", ¿Desea cambiar su tamaño a "+ cValToChar( nNewTam ) +" ? ", "Atención" )</font></font><font></font><font></font><font dir="auto" style="vertical-align: inherit;"><font dir="auto" style="vertical-align: inherit;"> nRet := nNewTam</font></font><font></font><font></font><font dir="auto" style="vertical-align: inherit;"><font dir="auto" style="vertical-align: inherit;">Demás</font></font><font></font><font></font><font dir="auto" style="vertical-align: inherit;"><font dir="auto" style="vertical-align: inherit;"> nRet := nTamCpo</font></font><font></font><font></font><font dir="auto" style="vertical-align: inherit;"><font dir="auto" style="vertical-align: inherit;">FinSi</font></font><font></font><font></font><font dir="auto" style="vertical-align: inherit;"><font dir="auto" style="vertical-align: inherit;">Área de descanso (un área)</font></font><font></font><font dir="auto" style="vertical-align: inherit;"><font dir="auto" style="vertical-align: inherit;">Devolver nRet</font></font> |
0 Comentarios