FiveTech Software tech support forums

... MailChimpt-API that is based on Swagger, so maybe you guys can help me cUrl:=  "https://us8.api.mailchimp.com/3.0/campaigns? --user anystring:cCode "MsgRun( cUrl, "READING FORUM PAGE", { || uResponse := WebPageContents( cUrl, .t. ) } )St := memowrit("c:\marc32\APICHIMP.txt",uResponse)  ...

Dear Enrico,

oHrb = hb_compileFromBuf( cCode, .T., "-n", "-q2", "-I c:\harbour\include" )

... not do something like this (funny code, but you know what I mean, i hope) for i = 1 to len(oBrw:adata) // like to process all rows in the Browse cCode = oBrw:productid(I) // I will process step by step seek cCode .... next

In some sites I can retrieve webdata with this : cLink = "https://site/api/v2/products/"+alltrim(cCode)+"?search=sku&token=token" MsgRun( cLink, "READING FORUM PAGE", { || uResponse := WebPageContents( cLink, .t. ) } ) Now the new site is giving ...

Hello friends, maybe someone knows a more effective way to resolve the string info variables? local cCode := 'XBrowse( uData , "This is my title, subtitle , test neu", .F. , bSetUp, aCols, bSelect, lExcel, lFastEdit,bValid, cSerial, lNoModal, lAutoFit )' Best regards, ...

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

... ) // cCodbar trae la data a incluir en el QR ENDPAGE ENDPRINT //............................................ FUNCTION BuildQR( oPrn ,nRow,nCol,cCode ) local nFlags := 0 local nCode := 14 // codigo para el CODEBARQR oCode := TCodeBars():New(600,600,10,10,nCode,cCode,0 ) oCode:Reset() oCode:Build() ...

... 4 .AND. nPos<20 HB_IDLESLEEP( 1 ) nPos++ END IF nPos>=20 WaitOff( @oWait ) RETURN mResultado ENDIF SysRefresh() HB_IDLESLEEP( 2 ) TRY *cCode := oIE:Document:body:innerHtml() cCode := oIE:Document:body:innerText() CATCH oError WaitOff( @oWait ) RETURN mResultado END nLine:= MLCOUNT(cCode,,3,.t.) ...

... "E", .t. ) // "E" for European, "A" for American and others // .t. for showing thousand separators USE ITEMS /* CCODE Character 10 DETAIL Character 50 PVP1 Numeric 14 5 PVP2 Numeric 14 5 PVP3 Numeric 14 5 ARTIVA Numeric 5 2 LASTCHANGE Date 8 0 */ DEFINE DIALOG ...

... "E", .t. ) // "E" for European, "A" for American and others // .t. for showing thousand separators USE ITEMS /* CCODE Character 10 DETAIL Character 50 PVP1 Numeric 14 5 PVP2 Numeric 14 5 PVP3 Numeric 14 5 ARTIVA Numeric 5 2 LASTCHANGE Date 8 0 */ DEFINE DIALOG ...

Dear friends, I must found the last number (field 1) of this array if the cCode ( field 2) is "01" Local aData:= { ; {4,"01","17/03/2020","17/03/2020"} ,; {7,"02","17/03/2020","18/03/2020"} ...

Hi,
In FWH ver 1907
this command:

Code: Select all  Expand view

local cCode := 'C1234,11''

FW_DbfSqlQuery( "c:\Archivi\", "SELECT COUNT(*) FROM ( SELECT CODART FROM ORDINI WHERE CODART = '"+cCode+"')" )

returns value COUNT of cCode in ORDINI.DBF

the same command with FWH 1906 returns Nil value...

why?

... when I press a button "Articolo1" or "articolo2" it insert a rcord on aItems array AaDd(aItems,{nInvoice,nSerial,cImmagine,cCode,cProdotto,nQuantita,nPrezzo,ntotaleQ,; dCheck_in,dCheck_out,nDays,nDiscount,nTotal,cItemStruct,lItemMulti,lItemPrnA4,lItemPrnPos }) when i save ...

... Function Search_cod(cFilter,alistini) Local nAt := AScan( alistini, { |a| a[ 1 ] == cFilter } ) Local cCode:="01" //primo record If nAt>0 cCode:= alistini[nAt][2] endif return cCode

... #xtranslate <x>:__EnumIndex => hb_EnumIndex #ENDIF MEMVAR SEQUENC function Main() local obmp ,cBmp local oDlg, oIco local ofont local cCode:= space(440) // maximo de 440 caracteres por qrcode. // Master Mastintin: con 431 caracteres el formato es invalido, porque? // Que me falta? ...