FiveTech Software tech support forums

... Local nI, nJ, nNumero, nEntero, nCents, nPunto Local aUni:= {"un", "dos", "tres", "cuatro", "cinco", ; "seis", "siete", "ocho", "nueve"} Local aDec:= {"diez", "veinte", "treinta", "cuarenta", "cincuenta",; "sesenta", "setenta", "ochenta", "noventa"} Local aCen:= {"cien", "doscientos", "trescientos", ...

... Function Num2Txt(nCantidad) //*******###### Local aUni:= {"un", "dos", "tres", "cuatro", "cinco", ; "seis", "siete", "ocho", "nueve"} Local aDec:= {"diez", "veinte", "treinta", "cuarenta", "cincuenta",; "sesenta", "setenta", "ochenta", "noventa"} Local aCen:= {"cien", "doscientos", "trescientos", ...

I feel stupid for not having tried that first. I found the problem was relating to the line: AFields( aField, aType, aLen, aDec ) It gave NIL values. I replaced it with (cAlias)->(AFields( aField, aType, aLen, aDec ) ) and problem solved. Thanks Antonio for your prompt response. ...

... = TActiveX():New(, "L12.List-Label12_Ctrl_32.1" ) MsgInfo( oActiveX:hActiveX ) //Read field info from database AFields( aField, aType, aLen, aDec ) //open List & Label job, retrieve job handle hJob := 1 //LlJobOpen(-1) //Enable multiple table lines oActiveX:Do( "LlSetOption", LL_OPTION_MULTIPLETABLELINES, ...

... 2 #include "FiveWin.ch" #include "cmbtll12.ch" Global oActiveX, oWnd, hJob, nRet Function Main() Local cEvents := "" LOCAL aField, aType, aLen, aDec, sName LOCAL FldType, FldContent, DateBuffer, lExpr, I:=1, bAsField:=.T. USE ARTICLE NEW GO TOP aField := Array( ARTICLE->(FCount()) ) aType ...

... #include "FiveWin.ch" #include "cmbtll12.ch" Global oActiveX, oWnd, hJob, nRet Function Main() Local cEvents := "" LOCAL aField, aType, aLen, aDec, sName LOCAL FldType, FldContent, DateBuffer, lExpr, I:=1, bAsField:=.T. USE ARTICLE NEW GO TOP aField := Array( ARTICLE->(FCount()) ) aType ...