FUNCTION pru_new_dde(xval,xcol,i,fila_excel,filename,prog)
   
   DEFINE celda,rval,xval,xcol,filename STRING
   DEFINE i INTEGER,fila_excel CHAR(1),
                    p_res SMALLINT,
                    prog VARCHAR(10)
       
       LET celda = fila_excel,i USING "<<<<&",xcol CLIPPED
       LET rval = xval     
       CALL ui.Interface.frontCall("WINDDE","DDEPoke", [prog,filename,celda,rval], [p_res] )
       CALL chqDdeError(p_res,"DDEPoke "||celda)
 

END FUNCTION

FUNCTION chqDdeError(p_res,p_msg)

         DEFINE p_res INTEGER,
                p_msg STRING,
                m_err STRING,
                m_log STRING

         IF p_res THEN
            RETURN
         END IF

         CALL ui.Interface.frontCall("WINDDE","DDEError",[],[m_err])
         CALL ui.Interface.frontCall("WINDDE","DDEFinishAll", [], [p_res] )

         LET m_log="DDE Error: ",m_err CLIPPED," (",p_msg,")"

      #   CALL errorlog(m_log)

         LET m_log="Se ha producido un Error en '",p_msg CLIPPED,"'. Para mas detalle revise el LOG de errores."

         CALL fgl_winmessage("DDE Error", m_log, "stop")

         EXIT PROGRAM

END FUNCTION