CT220SEL - Envio de conteúdo -- 23492

O ponto de entrada CT220SEL permite enviar o conteúdo do (Array) contendo os dados de quais empresas e arquivos que se quer agrupar. 

CTBA220

CT220SEL - Envio de conteúdo ( [ aEmp ], [ aQuais ] ) --> .T. or .F.

.T. or .F.()
• Retorna um valor logico para executar ou nao o processamento.

Ponto de chamada:

No momento da preparação do ambiente para o processo de consolidação são carregados os dados das empresas e arquivos que serão agrupados.

Retorno esperado:

Retorno lógico para validar quais Empresas/Filiais e arquivos serão agrupados. 
 

User Function CT220Sel( aEmp ) Local cMVSchedu := Getnewpar( 'MV_XSCHEDU' , '' ) Local axEmp2     :={}   Local nJ       := 0 Local nI       := 0  Local lRet     := .T. If lRet  // somente quando a variavel não estiver vazia  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    // zero a array das empresas para somente informar as do parametro   FOR nI = 1 to len(aEmp)     aEmp[nI][1] := .F.    NEXT    //  seto como verdadeiro os itens da 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.