Como guardar cadena de caracteres? (SOLUCIONADO)

Board index FiveWin para Harbour/xHarbour Como guardar cadena de caracteres? (SOLUCIONADO)

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Como guardar cadena de caracteres? (SOLUCIONADO)
Posted: Sun Jul 01, 2018 12:59 PM

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 (fw): Select all Collapse

    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 (fw): Select all Collapse

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Como guardar cadena de caracteres?
Posted: Mon Jul 02, 2018 10:48 AM

Prueba con:

Code (fw): Select all Collapse

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.)

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Como guardar cadena de caracteres?
Posted: Mon Jul 02, 2018 02:29 PM

CmSoft:

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

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: Como guardar cadena de caracteres?
Posted: Tue Jul 03, 2018 02:46 AM

Armando wrote: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...

Dios no está muerto...

Gracias a mi Dios ante todo!

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Como guardar cadena de caracteres? (SOLUCIONADO)
Posted: Tue Jul 03, 2018 03:21 AM

José Luis:

Te agradezco enormemente el apoyo, ya esta solucionado.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

FiveTech Support Forums

Continue the discussion