PCORETSLD - Retornar o Saldo de Entidade do Cubo Orçamentário

CONTEÚDO

01. DADOS GERAIS

02. DESCRIÇÃO

A função PcoRetSld tem como finalidade retornar o saldo do cubo para a chave informada, utilizando uma data de referencia(o saldo será até a data selecionada).

Exemplificando:

Cubo "01" com as Dimensões : Conta Orçamentaria (12 Posições)+ Centro de Custo (9 Posições) + Tipo de Saldo (2 Posições) (Tamanhos retirados do X3_TAMANHO dos campos)

Conta Orçamentária: '1000     ' - Recursos Extras

Centro de Custo: '345      ' - Produção de Engrenagens

Tipo de Saldo: 'OR' - Orçado

Por combinação temos a seguinte chave: '1000        345      PR'

Saldo Final  em  31/01/2008 - 200,00 a crédito na moeda 1

                           31/03/2008 - 400,00  a crédito na moeda 1

O retorno da função deve ser atribuido a uma variável do tipo array. Este array de retorno terá as seguintes características:

 Array multidimensional com 2 (dois) elementos:

• • 1o. Elemento conterá um sub-array com os valores a crédito nas 5 moedas disponíveis:

Estrutura do sub-array

1. Saldo a crédito na moeda 1
2. Saldo a crédito na moeda 2
3. Saldo a crédito na moeda 3
4. Saldo a crédito na moeda 4
5. Saldo a crédito na moeda 5

• • 2o. Elemento conterá um sub-array com os valores a débito nas 5 moedas:

Estrutura do sub-array

1. Saldo a débito na moeda 1
2. Saldo a débito na moeda 2
3. Saldo a débito na moeda 3
4. Saldo a débito na moeda 4
5. Saldo a débito na moeda 5

03. EXEMPLO DE UTILIZAÇÃO

A função PcoRetSld espera que seja enviado para busca dos saldos os seguintes parâmetros:

Abaixo temos exemplo de utilização da função PcoRetSld: 

User Function U_RetSldCb()

	Local aSaldoCubo As Array
	Local dDataLocal As Date
	Local cChave     As Character
	Local cCodCubo   As Character

	cChave     := "1000        345      PR"
	cCodCubo   := "01"
	dDataLocal := CtoD("31/01/08")

	aSaldoCubo := PcoRetSld(cCodCubo, cChave, dDataLocal)

	Conout("Saldo Cubo em 31/01/08 - Crédito Moeda 1 ===> "+Transform(aSaldoCubo[1,1], "@E 999,999,999.99"))//Saldo Cubo em 31/01/08 - Crédito Moeda 1 ===> Ex: 200,00
	Conout("Saldo Cubo em 31/01/08 - Débito Moeda 1 ===>  "+Transform(aSaldoCubo[2,1], "@E 999,999,999.99"))//Saldo Cubo em 31/01/08 - Débito Moeda 1 ===>  Ex: 0,00 

Return 

04. ASSUNTOS RELACIONADOS

• PCOVLDLAN-Validação_de_Lançamentos
• PCOINILAN-Lançamentos_de_Integração
• DT_PCODETLAN-Movimentos_lançamentos_orçamentários
• PCOFINLAN-Finalização_de_Movimentos_Lançamentos