Progress - sumar un mes a una fecha

buen dia, soy nuevo en progres y me parece una buena base de datos pero su app builder si deja mucho que desear...

pues bueno vengo del mal acostumbrado vb ...

en bv yo usaba una funcion para a una fecha sumarle un dia mes o año dateadd solo ponia la fecha el valor a sumar y que hiba ssumar si un mes o un dia o un año....

mi pregunta es la siguiente despues del desahogo contra progress

existe un a funcion para sumar un mes a uan fecha o hay que crearla mil gracias

Lo que podes hacer es a una fecha sumarle la cantidad de dias que necesites. d-fech = d-fech + 30. Tambien podes determinar el ultimo dia de un mes y podes saber la cantidad de dias que tenes diferencia entre dos fecha. Pero vas a tener que tener armar la funcion vos. Si necesitas avisa y te doy una mano.

/*------------------------------------------------------------------------------
Purpose:
Parameters:PCTipo "a" si es a sumar año, "m" si es a sumarr mes, "a" si es a sumar año
PICantidad el numero de mes dia año a sumar
PDFecha es la feche a la que se le va sumar
Notes:
------------------------------------------------------------------------------*/
DEFINE INPUT PARAMETER PCTipo AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER PICantidad AS INTEGER NO-UNDO.
DEFINE input-OUTPUT PARAMETER PDFecha AS DATE NO-UNDO.

DEFINE VAR IDia AS INTEGER.
DEFINE VAR IMes AS INTEGER.
DEFINE VAR IAno AS INTEGER.
DEFINE VAR aux AS INTEGER.

/*DEFINE VAR PDFecha AS DATE INITIAL 07/29/2004 FORMAT 99/99/9999 NO-UNDO.*/

IAno = year(PDFecha).
imes =MONTH(PDFecha).
idia =DAY(PDFecha).

IF PCTipo = "m" THEN DO:
Imes = MONTH(PDFecha) + PICantidad.
IF imes > 12 THEN DO:
aux = imes MOD 12.
IAno = year(PDFecha) + INTEGER(imes / 12).
imes= aux.
END.
END.
ELSE IF PCTipo = "d" THEN DO:
PDFecha = PDFecha + PICantidad.
IAno = year(PDFecha).
imes =MONTH(PDFecha).
idia =DAY(PDFecha).
END.
ELSE IF PCTipo = "a" THEN DO :
IAno = year(PDFecha) + PICantidad.
END.
PDFecha= date(STRING (imes) + "/" + STRING (idia) + "/" + string(iano)).