Insert Records then print

[Gustavo1478]

How would I go about writing a code to insert 100 records and then print the inserted records using a layout? I work at a school and I need to do this in order to print admission applications but with each application having a unique ID number. I am normally use to developing web applications and I have a clear idea of how to do this using sql, but my applications system is still using native dbf tables. Please help.

[Gustavo1478]

Re: Insert Records then print

Heres what I think the xbasic should look like

'Open the table that you want to update...
dim tbl as p 
dim Count as n
dim AddNum as n
Count = 0
AddNum = 1

tbl = table.open("app requests",FILE_RW_SHARED)


If Count < 100 then
	'Loop through this code
	'Add new record and set count until count reaches 100

         tbl.enter_begin()
         tbl.CRAFT = "Laborers"
         tbl.enter_end(.t.)
         Count = Count + AddNum
else
	'stop code from looping and display a box saying Process is complete
end if
tbl.close()

[GGandhi]

Re: Insert Records then print

this looks good
usually in desktop, dbf i see
this way

dim i as n
for i = 1 to 100
         tbl.enter_begin()
         tbl.CRAFT = "Laborers"
         tbl.enter_end(.t.)
next i
msgbox("RESULT", "All done")

[Gustavo1478]

Re: Insert Records then print

this looks good
usually in desktop, dbf i see
this way

dim i as n
for i = 1 to 100
         tbl.enter_begin()
         tbl.CRAFT = "Laborers"
         tbl.enter_end(.t.)
next i
msgbox("RESULT", "All done")

Is there anything you don't know Gandhi, thank you for that. Now how would I print the records which were just inserted? How do i get the range of IDs that were entered for printing?

I want it to send a print job for all the records that were just inserted after the loop through has finished, then show a message box once the entire operation has completed.

[Stan Mathews]

Re: Insert Records then print

None of the code shown creates an id that I can see unless your dbf has an id auto increment field. "Print jobs" for dbf tables are reports. You create a report which contains the fields from the dbf you want to show on the report and filter for the records you want to show on the report.

If you actually have a table named app requests, change it to app_requests or apprequests or similar. Alpha desktop abhors a vacuum.

[GGandhi]

Re: Insert Records then print

How do i get the range of IDs that were entered for printing?

that would require to get the intial count before the script runs
something like
dim total_records as n
total_records = tbl.records_get() -- i do not know spaces are good idea, somebody will alert you on that.
then run your script
then when ready to print
you will
for i = total_records to total_records + 100
do the printing
next i

something like that

edit:
see stan pointed that out.

edit2: corrected the records get

[Stan Mathews]

Re: Insert Records then print

For a report on a single dbf with no deleted records, the most recently added 100 records can be filtered for with

between(recno(),table.current().records_get()-99,table.current().records_get())

[Gustavo1478]

Re: Insert Records then print

Thank you for all your inputs, here is what I was able to create from your inputs:

'Date Created: 13-Apr-2017 07:12:19 AM
'Last Updated: 13-Apr-2017 07:13:27 AM
'Created By  : ivan
'Updated By  : ivan

tbl = table.open("app requests",FILE_RW_SHARED)

	dim i as n
	for i = 1 to 5
         tbl.enter_begin()
         tbl.CRAFT = "Laborers"
         tbl.enter_end(.t.)
	next i
tbl.close()


'Print a report, label, letter, form or browse layout. You can specify which records to print.

query.filter = "between(recno(),table.current(\"app requests\").records_get()-4,table.current().records_get())"
query.order = "recno()"

:Letter.Print("APP_REQ_APPLICATION_BLAN",query.filter,query.order)

msgbox("RESULT", "All done")

The ID field is auto-increment. I brought the number of records entered down to 5 just to test its operation.
However, when I try to print I get an invalid filter expression. Is the filter expression missing parameters that I am not seeing?

[Gustavo1478]

Re: Insert Records then print

None of the code shown creates an id that I can see unless your dbf has an id auto increment field. "Print jobs" for dbf tables are reports. You create a report which contains the fields from the dbf you want to show on the report and filter for the records you want to show on the report.

If you actually have a table named app requests, change it to app_requests or apprequests or similar. Alpha desktop abhors a vacuum.

I know that using blank spaces for a table is not good, I've been a hesitant to change it as I am planning to move this into sql anyway. I had an immediate need to create this quick operation while I move this into sql. I inherited this system from the previous DBA.

[GGandhi]

Re: Insert Records then print

query.filter = "between(recno(),table.current("app requests").records_get()-4,table.current().records_get())"

when you say table.current it is referring to the open table, you do not need another specification
query.filter = "between(recno(),table.current().records_get()-4,table.current().records_get())"
should do well.

[GGandhi]

Re: Insert Records then print

may be this way

tbl = table.open("app requests",FILE_RW_SHARED)

	dim i as n
	for i = 1 to 5
         tbl.enter_begin()
         tbl.CRAFT = "Laborers"
         tbl.enter_end(.t.)
	next i


'Print a report, label, letter, form or browse layout. You can specify which records to print.

query.filter = "between(recno(),table.current().records_get()-4,table.current().records_get())"
query.order = "recno()"

:Letter.Print("APP_REQ_APPLICATION_BLAN",query.filter,query.order)
tbl.close()


msgbox("RESULT", "All done")

[Gustavo1478]

Re: Insert Records then print

may be this way

tbl = table.open("app requests",FILE_RW_SHARED)

	dim i as n
	for i = 1 to 5
         tbl.enter_begin()
         tbl.CRAFT = "Laborers"
         tbl.enter_end(.t.)
	next i


'Print a report, label, letter, form or browse layout. You can specify which records to print.

query.filter = "between(recno(),table.current().records_get()-4,table.current().records_get())"
query.order = "recno()"

:Letter.Print("APP_REQ_APPLICATION_BLAN",query.filter,query.order)
tbl.close()


msgbox("RESULT", "All done")

Perfect! That worked nicely, Thank you all!