Getting values by form CHECKLIST

Try replacing:

  foreach(listlp3 list1
   fprintf(backform "FIELD Checkdt\n")

With the following:

  foreach(listlp3 list1
   fprintf(backform "FIELD %s\n",listlp3)d

And then replace:

(defun back_Action (backform)
 (case backform->curField
  ("TOCHECK"
   ("Checkdt"
    if(backform->curValue then

With the following:

foreach(listlp3 list1

    axlFormSetField backform listlp3 nil)

)

procedure(back_Action(backform)

    foreach(listlp3 list1

        when( (axlFormGetField backfrom listlp3) print(listlp3))

        print(" ")

    )

    println(" ")

)

Hi David,

Thanks for the reply I tried to replace your code but it shows me ERROR - E- *Error* eval: unbound variable - backfrom.

I will attach edited code below can you please recorrect it.

Code -

try the modified code shown  below:

(setq list1 list("aaa" "bbb" "ccc" "ddd"))
(setq backform_file "back.form")
procedure(chk()
createbackform()
backform_run()
)
procedure(backform_run()
let((backform)
(backform = axlFormCreate(gensym() backform_file nil 'back_Action t))
axlFormDisplay(backform)
)
)
procedure(createbackform()
let((backform datainp adata adt datainp2 adt2)
(backform = outfile(backform_file "w"))
fprintf(backform "FILE_TYPE=FORM_DEFN VERSION=2\n")
fprintf(backform "FORM\n")
fprintf(backform "FIXED\n")
fprintf(backform "PORT 42 10\n")
fprintf(backform "HEADER \"UI CHECK\"\n")
fprintf(backform "\n")
fprintf(backform "TILE\n")
(datainp = 5)
foreach(listlp list1
(adata = sprintf(nil "TEXT \"%s\"\n" listlp))
fprintf(backform adata)
(adt = sprintf(nil "TLOC 5 %d\n" datainp))
fprintf(backform adt)
(datainp = (datainp + 5))
fprintf(backform "ENDTEXT\n")
)
(datainp2 = 5)
foreach(listlp3 list1
fprintf(backform "FIELD %s\n" listlp3)
(adt2 = sprintf(nil "FLOC 25 %d\n" datainp2))
fprintf(backform adt2)
fprintf(backform "CHECKLIST \"Check\" \n")
fprintf(backform "ENDFIELD\n")
fprintf(backform "\n")
(datainp2 = (datainp2 + 5))
)
fprintf(backform "FIELD TOCHECK\n")
fprintf(backform "FLOC 13 1\n")
fprintf(backform "MENUBUTTON \"Checking\" 10 4\n")
fprintf(backform "ENDFIELD\n")
fprintf(backform "\n")
fprintf(backform "\n")
fprintf(backform "ENDTILE\n")
fprintf(backform "\n")
fprintf(backform "ENDFORM\n")
drain()
close(backform)
)
)
procedure(back_Action(backform)
case((backform->curField)
("TOCHECK"
foreach(listlp3 list1
when(axlFormGetField(backform listlp3)
print(listlp3)
)
print(" ")
)
println(" ")
)
)
axlFormDisplay(backform)
)

Hi david thanks for the reply one last help please.

I would like to get like this output shown below. for me it shows nil I will attach my code below can you please recorrect my code. please

Input -                                                                                                                             Output -

                                                                                                                                                   aaa, 30.00

                                                                                                                                                   ccc, 40.00

code -

try the modified code below:

procedure(viamod_lyr_Action(viamod_lyrform)
let((StubVal finalrep)
case((viamod_lyrform->curField)
("TOCHECK"
foreach(listlp3 list1
when((axlFormGetField viamod_lyrform listlp3)
(StubVal = (axlFormGetField viamod_lyrform listlp3))
(finalrep = sprintf(nil "%s,%L" listlp3 StubVal))
;print(finalrep)
when(StubVal > 0.0
;push(finalrep sym_data)
println(finalrep)
)
)
)
)
)
(axlFormDisplay viamod_lyrform)
;sym_wrkng()
)
)