CT220EMP - Seleção de empresas -- 24437

O ponto de entrada CT220EMP permite a manipulação do array aEmp para seleção das empresas na rotina de consolidação geral.

CTBA220.PRW

CT220EMP - Seleção de empresas ( [ aEmp ], [ ] ) --> aEmp

aEmp(array_of_record)
• array multidimensional aEmp contem as empresas/filiais a ser consolidada//posicao 1 - .t. ou .f. indica se esta marcado ou nao (logico)//posicao 2 - codigo da empresa//posicao 3 - descricao exibida no list box (no padrao contem a expressão "FF EMP EE - FILIAL FF - EMP EE - FILIAL FF" //posicao 4 - "E" ou "C" - indica o modo de compartilhamento da tabela CT2 - Lancamentos contabeis

//array multidimensional aEmp contem as empresas/filiais a ser consolidada
//posicao 1 - .t. ou .f. indica se esta marcado ou nao (logico)
//posicao 2 - codigo da empresa
//posicao 3 - descricao exibida no list box (no padrao contem a expressão "FF EMP EE - FILIAL FF - EMP EE - FILIAL FF"
//                                                                   Onde: FF-CODIGO DA FILIAL         EE - CODIGO DA EMPRESA
//posicao 4 - "E" ou "C" - indica o modo de compartilhamento da tabela CT2 - Lancamentos contabeis
 

User Function CT220EMP()Local aEmp := ParamIxb[1]//array multidimensional aEmp contem as empresas/filiais a ser consolidada//posicao 1 - .t. ou .f. indica se esta marcado ou nao (logico)//posicao 2 - codigo da empresa//posicao 3 - descricao exibida no list box (no padrao contem a expressão "FF EMP EE - FILIAL FF - EMP EE - FILIAL FF" //                                                                   Onde: FF-CODIGO DA FILIAL         EE - CODIGO DA EMPRESA//posicao 4 - "E" ou "C" - indica o modo de compartilhamento da tabela CT2 - Lancamentos contabeis //adiciona mais uma filial no array aEmp a ser consolidadeaAdd(aEmp, {.T., "88", "01 EMP 88 - FIL 01 - EMP 88 - FIL 01", "E"})Return(aEmp)