Punto de entrada: CT220SEL - Envío de contenido
Alcances: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Versiones: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
Compatible países: | Todos |
Sistemas operativos: | Todos |
Compatible con las bases de datos: | Todas |
Descripción:
El punto de entrada CT220SEL permite enviar el contenido del (Array) con los datos de las empresas y archivos que se quieren agrupar.
Programa fuente
CTBA220
Sintaxis
CT220SEL - Envío de contenido ( [ aEmp ], [ aQuais ] ) --> .T. or .F.
Parámetros:
Nombre | Tipo | Descripción | Estándar | Obligatorio | Referencia | ||||||||||||
aEmp | Array of Record | PUNTO DE ENTRADA, enviando el contenido del array aEmp | |||||||||||||||
aQuais | Array of Record | PUNTO DE ENTRADA, enviando el contenido del array aQuais |
Devolución
.T. or .F.()
Devuelve un valor lógico para ejecutar o no el procesamiento.
Observaciones
Punto de activación:
En el momento de la preparación del entorno para el proceso de consolidación se cargan los datos de las empresas y archivos que se agruparán.
Devolución esperada:
Devolución lógica para validar las Empresas/Sucursales y archivos que se agruparán.
Ejemplos
User Function CT220Sel( aEmp ) Local cMVSchedu := Getnewpar( 'MV_XSCHEDU' , '' ) Local axEmp2 :={} Local nJ := 0 Local nI := 0 Local lRet := .T. If lRet // solamente si la variable no estuviera vacía If ! Empty (cMVSchedu) .and. ( ValType( aEmp ) == 'A' .And. len( aEmp ) > 0 ) while ! Empty( cMVSchedu ) cResult := Substr( cMVSchedu , 1 , 4 ) aAdd(axEmp2 , cResult ) cMVSchedu := Substr( cResult , 2) End // cero la array de las empresas solamente para informar las del parámetro FOR nI = 1 to len(aEmp) aEmp[nI][1] := .F. NEXT // marco como verdadero los ítems de la empresa FOR nI = 1 to len(axEmp2) FOR nJ = 1 to len(aEmp) If ( aEmp[nJ][1] == axEmp2[nI][1] ) aEmp[nJ][2] := .T. Endif Next Next Endif Endif Return .T.
Variables
Nombre | Tipo | Alcance | Puede modificar | Descripción | ||||||||||
Array of Record | Global | No |