аЯрЁБс>ўџ ўџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџ§џџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџџџџџўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџRoot EntryџџџџџџџџрsУк 'ЮЕ+С/?-ž 0ТX“лПўџџџContentsџџџџџџџџџџџџ™џџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџўџџџ§џџџ ўџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџџhdArialocumtџџџ)Version8-(Title8-\Name8-&[Date] &[Time]8-File: &[File]8-Page &[Page] of &[Pages]8-;NїwwІFџСю cb_catalogІ,)Clickedj,","9џССёџ-ўDeclare variables,"˜Џџdatetime: ThisDate,"˜=џѕUstring: CrLf, ThisEnterprise, CatDateTime, Descr, CatPrice, CatFileName, CatNoteTextѕ,"S˜ЫўТinteger: GSIdТ,"˜Yўœ long: Priceœ,"9I§ˆˆt§§фќConnect to the Databaset,"Л§RConnect using SQLCAR,"§OOz‹§ЋќSQLCA.SQLCode <> 0, 1z," зI§™MessageBox can't connect™,"aззќ8Halt8,"9сћnn {ќ]ћSetup CatEntry as CURSOR ,"1сћnnw#DECLARE CatEntry CURSOR FOR SELECTw," id, descr, priceє,"FROM goods_and_servicesЃ,"WHERE class in ('S','G')a," USING SQLCAл,"9@њССd-ћЂљRead First Row,є,"Handle empty CURSOR d,"ѕыњлOpen CatEntryл,"ѕyњw*FETCH CatEntry INTO :GSId, :Descr, :Pricew,"ѕЮљOOлIњiљ SQLCode <> 0л,"(њиMessageBox about empty tableи,"(•љ8Halt8,"!9ОјOO 9љYјInitialize Variables ,"žїјЃCrLf<-- char(13) + char(10)Ѓ,"ž…јzThisEnterprise <-- "9009"z,"09uїˆˆЕ)јзі Format DateЕ,"FчїO&ThisDate <-- DateTime(Today(), Now())O,"Fuї63CatDateTime <-- string(ThisDate, "yyyymmddhhmmss")6,"Fї‡;CatFileName <-- "D:\!BUS465SU00\T" + right (CatDateTime,6)‡,"98єCCЇіпёSetup CatNoteText,"0ЊeіюCCatNoteText <-- "CAT*" + ThisEnterprise + "*" + CatDateTime + CrLfю,"Њ8єбб 5іQђAdd ITEM* lineе,"for each CatEntry ,"0 ѓѕ#While SQLCode = 0#,"B ѕ&CatEntryCounter ++&," ѕGSIdHash += GSId," єы#CatPrice <-- string(Price,"#0.00")ы," є,,‡.CatPrice <-- left(CatPrice,len(CatPrice)-3) +‡,"& right(CatPrice,2)Џ," wѓ,,q=CatNoteText += "ITEM*" + string(GSId) + "*" + Descr + "*" + q,"2 CatPrice + "*" + CrLf6," яђt*FETCH CatEntry INTO :GsId, :Descr, :Pricet,"e }ђKLoopK,"Њ ђŽLCatNoteText += "ECAT*" + string(CatEntryCounter+2) + "*" + string(GSIdHash)Ž,"9™ёоClose CatEntryо,"9'ё/(CatFile <-- FileOpen(CatFileName, ....)/," 9|№OOЉї№№ CatFile = -1Љ,":Е№Х MessageBoxХ," :C№8Halt8,"9бяШ FileWrite(CatFile, CatNoteText)Ш,"A9_яFileClose(CatFile),"9эюEMessageBox("Done")E,"Ъd