// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] ConverteInteiroParaDataBoller (<pDataInteiro>, <DMA>)
//
// Parameters:
// pDataInteiro: <specify the role of pDataInteiro>
// DMA: <specify the role of DMA>
// Return Value:
// ANSI string: // None
//
// For instance:
// Indicate an example.
//
PROCEDURE ConverteInteiroParaDataBoller(pDataInteiro,DMA)

sData is string = ""

IF DateValid(pDataInteiro) = True THEN //Se for uma data valida entao nao converto pois data ja é valida
sData = pDataInteiro
ELSE
IF pDataInteiro = "" OR pDataInteiro = 0 THEN
sData = ""
ELSE
IF DMA = "D"
sData = IntegerToDate(pDataInteiro,"D")
ELSE IF DMA = "M"
sData = IntegerToDate(pDataInteiro,"M")
ELSE IF DMA = "A"
sData = IntegerToDate(pDataInteiro,"A")
END
END

END

RESULT sData