problemas con clipvalue2sql

[goosfancito]

hola.

Sabiendo que: ::oBrw:aArrayData[::oBrw:nArrayAt, 6]) tiene un valor logico .t. o .f.
que el campo "marca" es un valor logico... definido asi:

Code: Select all  Expand view  RUN

        {"marca", "l", 0, 0, .t., nil },;

cuando ejecuto este codigo:

Code: Select all  Expand view  RUN

::oCnx:update("tbtrattemp",;
                   {"marca"},;
                   {clipvalue2sql(::oBrw:aArrayData[::oBrw:nArrayAt, 6])},;
                   "ID=" + ClipValue2SQL(::oBrw:aArrayData[nItem, 10]))
 

me tira este error:

Code: Select all  Expand view  RUN

 Error description: Error BASE/1066  Error de argumento: conditional
   Args:
     [   1] = C   1
 

PERO lo raro que lo hace solo cuando hago un "update" si hago un "insert" con el mismo codigo no arroja ese error.

gracias.

[Ariel]

pone el 1 o 0 como numero, no como texto.

Salu2, Ariel.

[goosfancito]

pone el 1 o 0 como numero, no como texto.

Salu2, Ariel.

ariel, pero el clipvalue2sql no es que verifica que tipo de campo es y lo convierte al dato que le pasas?

[goosfancito]

termino de probar ariel y ahora dice lo mimso, o sea, no le gusta ni el numero ni el caracter

Code: Select all  Expand view  RUN

 Error description: Error BASE/1066  Error de argumento: conditional
   Args:
     [   1] = N   1

[Ariel]

Pone un poco de codigo como definis el browse y como armas el array q usa el brw.

Gracias.

[goosfancito]

Pone un poco de codigo como definis el browse y como armas el array q usa el brw.

Gracias.

Airel,
Solo hace eso, update.

La columna que se encarga de mostrar el dato es:

Code: Select all  Expand view  RUN

   WITH OBJECT :acols[6]
            :cHeader      := ""
            :addresource("BMPSI")
            :addresource("BMPNO")
            :setcheck({"ON", "OFF"})
            :bBmpdata     := {|| IF(::oBrw:aarraydata[::oBrw:narrayat, 6], 1, 2)}
            :blDClickData := {|o, v| ( ::oBrw:aArrayData[ ::oBrw:nArrayAt ,6] := !::oBrw:aArrayData[ ::oBrw:nArrayAt, 6], ::oBrw:DrawSelect() ) }

         END WITH

y luego cuando sale del browser hace la actualziacion a la tabla

Code: Select all  Expand view  RUN

     for nItem:= 1 to len (::aTratamientos)

         ::oCnx:update("tbtrattemp",;
                   {"marca"},;
                   {lValue},;
                   "ID=" + ClipValue2SQL(::oBrw:aArrayData[nItem, 10]))

         next nItem
 

[Ariel]

for nItem:= 1 to len (::aTratamientos)

? valtype(lvalue), lValue, valtype(::obrw:aarraydata[nitem,10]), ::obrw:aarraydata[nitem,10] // PONE ESTO A VER SI LOS DATOS ESTAN OK

::oCnx:update("tbtrattemp",;
{"marca"},;
{lValue},;
"ID=" + ClipValue2SQL(::oBrw:aArrayData[nItem, 10]))

next nItem

[goosfancito]

for nItem:= 1 to len (::aTratamientos)

? valtype(lvalue), lValue, valtype(::obrw:aarraydata[nitem,10]), ::obrw:aarraydata[nitem,10] // PONE ESTO A VER SI LOS DATOS ESTAN OK

::oCnx:update("tbtrattemp",;
{"marca"},;
{lValue},;
"ID=" + ClipValue2SQL(::oBrw:aArrayData[nItem, 10]))

next nItem

Mira deje de usar el Clipvalue2sql y salio andando.

Code: Select all  Expand view  RUN

   ::oCnx:update("tbtrattemp",;
                   {"marca"},;
                   {::oBrw:aArrayData[nItem, 6] },;
                   "ID='" + str(::oBrw:aArrayData[nItem, 10])+"'")
         next nItem

ya renege varias veces con el msmo problema, cuando hago un insert todo bien pero cuando hago un update ando peliando con eso.

gracias.