Como guardar cadena de caracteres? (SOLUCIONADO)

[Armando]

Saludos foreros:

En el campo de una tabla necesito guardar la cadena de caracteres de un comando,
por ejemplo esta cadena que la tengo en una variable

Code: Select all

    cCmdSql := "INSERT INTO " +;
                            "FolFac " +;
                        "SET " +;
                            "FOL_FOL = 1," +;
                            "FOL_FMT = '" + oFac:FMT +"'"
 

Al intentar guardar la variable cCmdSql con la siguiente función

Audita("Clientes",cCmdSql)

Code: Select all

FUNCTION Audita(cTabla,cComando)
    LOCAL cCmdSql

    cCmdSql := "INSERT INTO " +;
                        "Auditoria " +;
                    "SET " +;
                        "AUD_FDR = '" + DTOS(DATE()) + "'," +;
                        "AUD_HRA = '" + TIME() + "'," +;
                        "AUD_USU = '" + LEFT(ALLTRIM(oApp:cUsuario),15) + "'," +;
                        "AUD_TAB = '" + cTabla + "'," +;
                        "AUD_CMD = '" + (cComando) + "'"

    TRY
        oApp:oCon:Execute(cCmdSql)
    CATCH oError
        MsgInfo("No pude ejecutar el comando " + CRLF + cCmdSql,oApp:cAplicacion)
        ShowError(oError)
        RETURN(.F.)
    END
RETURN(.T.)
 

Me tira un error que supongo es porque la cadena esta llena de ' y "
Alguna sugerencia?

Saludos

[cmsoft]

Prueba con:

Code: Select all

FUNCTION Audita(cTabla,cComando)
    LOCAL cCmdSql

    cCmdSql := "INSERT INTO " +;
                        "Auditoria " +;
                    "SET " +;
                        "AUD_FDR = "+ClipValue2Sql(DATE())+"," +;
                        "AUD_HRA = "+ClipValue2Sql(TIME()) + "," +;
                        "AUD_USU = "+ClipValue2Sql(oApp:cUsuario) + "," +;
                        "AUD_TAB = "+ClipValue2Sql(cTabla) + "," +;
                        "AUD_CMD = "+ClipValue2Sql(cComando) 

    TRY
        oApp:oCon:Execute(cCmdSql)
    CATCH oError
        MsgInfo("No pude ejecutar el comando " + CRLF + cCmdSql,oApp:cAplicacion)
        ShowError(oError)
        RETURN(.F.)
    END
RETURN(.T.)

[Armando]

CmSoft:

Gracias por el aporte, al compilar me reclama que no encuentra la función ClipValue2Sql,
será que me falta alguna LIB?

Saludos

[joseluisysturiz]

CmSoft:

Gracias por el aporte, al compilar me reclama que no encuentra la función ClipValue2Sql,
será que me falta alguna LIB?

Saludos

Armando, esa es de TDolphin si no me equivoco....revisa tus LIB en el lugar donde esta tu .EXE, saludos...

[Armando]

José Luis:

Te agradezco enormemente el apoyo, ya esta solucionado.

Saludos