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 consolidade
aAdd(aEmp, {.T., "88", "01 EMP 88 - FIL 01 - EMP 88 - FIL 01", "E"})
Return(aEmp) |