FiveTech Software tech support forums

... si he podido hacerlo, con sentencia SQL dinámicas. Otra opción sería NO usar Store Procedure, sino, una sentencia select. ** Códigos Alfanuméricos cCadena:="'001','002','003','004'" Text In _Sql_ SELECT c.cantidad,c.no_sirve,c.identificacion AS identifi,c.id_comprobante,c.fecha_movimiento,c.id,c.id_articulo,c1.tipo ...

cCadena tiene este valor si previamente le he rellenado en el POST un cCode correcto {"access_token":"eyJ6aXAiOiJERUYiLCJlbmMiOiJBMTI4R0NNIiwiYWxnIjoiUlNBLU9BRVAifQ.XSWOkBMa1fvH5KzfsWVFDQLyJegRTyi-aG4AXh8XiubzfowJlDvtxTnGJTUaKwx_7ASwSfPfMs0VJcQZap6CWvs-HR_MBnHrD6VA3eiy-JvEhNiV2-sYLA-81TmCQj9Zx1oKccRxIRRlXWVAme32CPLTE13JYvocLVeiNIn1zYY2EycyHEEfp9huegwQjU6U19gofXzLCnc8K6GCGLZbm5c2_ZUuzXYk6uIjYzNRHmax2owwPvNRflGz7ZCJRkrP6wBL4oRgfefjTy0-MPfYnW60pbWyHEcu_J1BgAD40WYYxSzUoyCb-Rli8V4xDO8EEAZeHkL7-eJ3LkSXA-uo4A.DGBA9pirTlzwJaNu.788fUGfWZ9sGcL3jPhFC4vO_y5KmZJNdAtAng2ayttCP9ipH2IHFwef2qYfyt8W9-wkC49WxRwGaA0-zytHfWqfBDGA1a1yS419YHxcvFCKEUuyEkd9YXdV96WGKufEimPtd2rJ0hWvvv-6tx7hthbMBV3f6ghFPydYswo3zhzpWuNjZ_AaxQDvB1tNvA9oyJC09_KXP3VcbFOV-C8-sf_2cGoyHV-ejEnvK1lRglmKO2QIJVP5ua8NgeJmnXgTRx1-8Vakhz7NgkA.Nujj611NC6kQ1Nq5D1d5BQ","token_type":"jwt","refresh_token":"eyJ6aXAiOiJERUYiLCJlbmMiOiJBMTI4R0NNIiwiYWxnIjoiUlNBLU9BRVAifQ.jve2r-yYAhdwUFI0ha8jhByskyOlteQuaE8cvEX282TTlIDR29y7OkF3pMLtNEl1A9EfP9vSc1E9fCW3W7UoOqgXZtKrde3VDf2zG6CaFlsyQf8UvaTrXIn1rQY1YgH3q8SGpz64IvfgT2WC53MPpE_337iJvrawAM-KXJbS5dRJG_13J0HDZr2KX2n0j91CbQ9GjYO55oyAly-CNf3JUbe3wll30fabHBE84wiIS9TiILYhxazAHqLhmjJUZQhQSCDMzu8Vuf5j3yDmWTufARl_ctn7AjGLLwkQuocSVCqhVuTOwN2S58AqNcCMEHnhSFxsfFRG2gn4q16h6-ShHQ.5YepOfZxXH8kHaXR.5GFQfnfBVg7KSTKiXTCrb4B4CB-zCIJll2G3kB-vW1ja9uJVuaYSajA-Gs6esal1pqPmA1Jh9V2v3GNfgiDz6Cs0MVqnKxS-3_sdh5NqdmlXUlJ17XXxZ9HhTmA7HBqaxL2fpORW06Gwd2BZNfA1L6pc5fdxIJRnw1IY-YWMaDMR2oH969sM8R_ChLHGXrZHPN0ZkcBufCS4H2dnh6-mbF7fNX5pUwGpyKy2P2fCxOnh4XWuZ5f15wvX7zxDx8-R4bYwWLvElocKqxHlwHwNEJZbAb0kP75dckYIV0hT4g73wfkMsQ5j4CHmAhmQzyqc-WjPM8g36qCMZExZeK-Z-idaUub3NBLEFvGSRrrlvXdvRFg2oqw2JzRFUNg_m2QlhKxuhg.ynbLLTwnfypdGymEmpR2aA","expires_in":2699,"scope":"businessAccountsSbx_aeb43","refresh_expires_in":359999} ...

Que valor tiene cCadena aqui ?

cCadena := oHttp:responseText

... al base de datos con la cadena correspondiente todos los demás comando son iguales Una cadena de conexión para Mysql es de la siguiente forma: cCADENA:="Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Database=datos;User=root; Password=passw;Option=3;" ( para el ejemplo ...

... €. AnsiToOem (CHR(128)) devuelve CHR (95) y OemtoAnsi(CHR(95)) no devuelve CHR (128). Lo he solucionado con la siguiente instrucción, siendo cCadena la cadena recuperada del archivo. STRTRAN ( cCadena, CHR (95), CHR (128) ) Por lógica la combinación OemToAnsi(AnsiToOem( ...

... en mi caso. Debajo dejo un ejemplo de lo que estoy intentando ejecutar. STATIC oWnd // ya esta definida en mi programa FUNCTION TEST() Local cIp,cCadena cIp:='192.168.0.253' // esta dirección la obtengo consultando un impresor fiscal en linea sin problemas // TEST 1 no funciona cCadena:='http://' ...

... atributo 'cName' y valor de la etiqueta con 'cData'. Ya he probado creando un objeto 'CreateObject("MSXML2.DOMDocument") y con LoadXML(cCadena) carga sin errores el archivo XML con punto en los nombre de etiqueta, ahora estoy buscando los métodos que puedo usar para recorrer los nodos.

... con un problema en un fichero XML con el que me responde el webservice de SII de hacienda. El siguiente código guarda un XML en la variable cCadena y al convertirla en XML con la clase TXMLDocument me da un mensaje con el oXML:nError = 4 en la línea 16. #include "FiveWin.ch"#include ...

... con un problema en un fichero XML con el que me responde el webservice de SII de hacienda. El siguiente código guarda un XML en la variable cCadena y al convertirla en XML con la clase TXMLDocument me da un mensaje con el oXML:nError = 4 en la línea 16. #include "FiveWin.ch"#include ...

Cristobal, muchas gracias.

hb_oemtoansi( hb_utf8tostr( cCadena ) )

Esto me funciono.

Resuelto...

//----------------------------------
Function QuitarEspTab( cCadena )
local cCad
cCad := strtran( cCadena, space(1), Space(0) )
cCad := strtran( cCad, Chr(9), Space(0) )
return cCad

Thanks:

function QuitaEspacios( cCadena )

return strtran( cCadena, Space(1), Space(0) )

... sobre el campo "NOMBRE". *----------------------- Function ConsCltes(nCod) *----------------------- local oDlg, oBrw, oCadena local cCadena := space(40) local fFile1 local lFiltro := .f. *--------------------------------------------------------------------------- if ! OpenDbf("CLIENTES", ...

... caracteres desde 'A' a 'Z') A,B,C,D,....X,Y,Z,AA,AB,AC,AD,...AX,AY,AZ,BA,BB,BC,BD, etc, Poner por ejemplo: aResultado:={} FOR nCantidad=1 TO 200 cCadena := contar con letras AADD(aResultado,cCadena) NEXT Y el resultado del array sería algo asi: {A,B,C,D,....X,Y,Z,AA,AB,AC,AD,...AX,AY,AZ,BA,BB,BC,BD, ...

Sebastian " Me inserta un nuevo registro, pero luego cuando quiero cambiarle los valores de los campos: ccadena := ' select * from ps_product where reference = "123456" ' oQry := oServer:Query(ccadena ) oQry:condition := 'Used' //El valor predeterminado es 'new' ...