CT220SEL - Envío de contenido -- 23492

Punto de entrada: CT220SEL - Envío de contenido

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:

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