Histórico da Página

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