// Se calcula la nueva fecha. Para lo cual se utiliza la fecha enviada por parametros y el incremento para el mes.
DECLARE cursor_mes DYNAMIC CURSOR FOR SQLSA ;
ls_sql = "SELECT DATEADD(month," + STRING(ai_incremento) + ", CONVERT(DATE,'" + as_fecha + "'))"
PREPARE SQLSA FROM :ls_sql USING SQLCA ;
OPEN DYNAMIC cursor_mes ;
FETCH cursor_mes INTO :ldt_fecha ;
CLOSE cursor_mes ;
// Profile Wadra
SQLCA.DBMS = "MSS Microsoft SQL Server"
SQLCA.Database = "wadra"
SQLCA.LogPass = "44"
SQLCA.ServerName = "OSCAR-PC"
SQLCA.LogId = "sa"
SQLCA.DBParm = ""
SQLCA.AutoCommit = False
// Profile wadra
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=wadra;UID=sa;PWD=44'"