Neil
/
Q5


			
							12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218321932203221322232233224322532263227322832293230323132323233323432353236323732383239324032413242324332443245324632473248324932503251325232533254325532563257325832593260326132623263326432653266326732683269327032713272327332743275327632773278327932803281328232833284328532863287328832893290329132923293329432953296329732983299330033013302330333043305330633073308330933103311331233133314331533163317331833193320332133223323332433253326332733283329333033313332333333343335333633373338333933403341334233433344334533463347334833493350335133523353335433553356335733583359336033613362336333643365336633673368336933703371337233733374337533763377337833793380338133823383338433853386338733883389339033913392339333943395339633973398339934003401340234033404340534063407340834093410341134123413341434153416341734183419342034213422342334243425342634273428342934303431343234333434343534363437343834393440344134423443344434453446344734483449345034513452345334543455345634573458345934603461346234633464346534663467346834693470347134723473347434753476347734783479348034813482348334843485348634873488348934903491349234933494349534963497349834993500350135023503350435053506350735083509351035113512351335143515351635173518351935203521352235233524352535263527352835293530353135323533353435353536353735383539354035413542354335443545354635473548354935503551355235533554355535563557355835593560356135623563356435653566356735683569357035713572357335743575357635773578357935803581358235833584358535863587358835893590359135923593359435953596359735983599360036013602360336043605360636073608360936103611361236133614361536163617361836193620362136223623362436253626362736283629363036313632363336343635363636373638363936403641364236433644364536463647364836493650365136523653365436553656365736583659366036613662366336643665366636673668366936703671367236733674367536763677367836793680368136823683368436853686368736883689369036913692369336943695369636973698369937003701370237033704370537063707370837093710371137123713371437153716371737183719372037213722372337243725372637273728372937303731373237333734373537363737373837393740374137423743374437453746374737483749375037513752375337543755375637573758375937603761376237633764376537663767376837693770377137723773377437753776377737783779378037813782378337843785378637873788378937903791379237933794379537963797379837993800380138023803380438053806380738083809381038113812381338143815381638173818381938203821382238233824382538263827382838293830383138323833383438353836383738383839384038413842384338443845384638473848384938503851385238533854385538563857385838593860386138623863386438653866386738683869387038713872387338743875387638773878387938803881388238833884388538863887388838893890389138923893389438953896389738983899390039013902390339043905390639073908390939103911391239133914391539163917391839193920392139223923392439253926392739283929393039313932393339343935393639373938393939403941394239433944394539463947394839493950395139523953395439553956395739583959396039613962396339643965396639673968396939703971397239733974397539763977397839793980398139823983398439853986398739883989399039913992399339943995399639973998399940004001400240034004400540064007400840094010401140124013401440154016401740184019402040214022402340244025402640274028402940304031403240334034403540364037403840394040404140424043404440454046404740484049405040514052405340544055405640574058405940604061406240634064406540664067406840694070407140724073407440754076407740784079408040814082408340844085408640874088408940904091409240934094409540964097409840994100410141024103410441054106410741084109411041114112411341144115411641174118411941204121412241234124412541264127412841294130413141324133413441354136413741384139414041414142414341444145414641474148414941504151415241534154415541564157415841594160416141624163416441654166416741684169417041714172417341744175417641774178417941804181418241834184418541864187418841894190419141924193419441954196419741984199420042014202420342044205420642074208420942104211421242134214421542164217421842194220422142224223422442254226422742284229423042314232423342344235423642374238423942404241424242434244424542464247424842494250425142524253425442554256425742584259426042614262426342644265426642674268426942704271427242734274427542764277427842794280428142824283428442854286428742884289429042914292429342944295429642974298429943004301430243034304430543064307430843094310431143124313431443154316431743184319432043214322432343244325432643274328432943304331433243334334433543364337433843394340434143424343434443454346434743484349435043514352435343544355435643574358435943604361436243634364436543664367436843694370437143724373437443754376437743784379438043814382438343844385438643874388438943904391439243934394439543964397439843994400440144024403440444054406440744084409441044114412441344144415441644174418441944204421442244234424442544264427442844294430443144324433443444354436443744384439444044414442444344444445444644474448444944504451445244534454445544564457445844594460446144624463446444654466446744684469447044714472447344744475447644774478447944804481448244834484448544864487448844894490449144924493449444954496449744984499450045014502450345044505450645074508450945104511451245134514451545164517451845194520452145224523452445254526452745284529453045314532453345344535453645374538453945404541454245434544454545464547454845494550455145524553455445554556455745584559456045614562456345644565456645674568456945704571457245734574457545764577457845794580458145824583458445854586458745884589459045914592459345944595459645974598459946004601460246034604460546064607460846094610461146124613461446154616461746184619462046214622462346244625462646274628462946304631463246334634463546364637463846394640464146424643464446454646464746484649465046514652465346544655465646574658465946604661466246634664466546664667466846694670467146724673467446754676467746784679468046814682468346844685468646874688468946904691469246934694469546964697469846994700470147024703470447054706470747084709471047114712471347144715471647174718471947204721472247234724472547264727472847294730473147324733473447354736473747384739474047414742474347444745474647474748474947504751475247534754475547564757475847594760476147624763476447654766476747684769477047714772477347744775477647774778477947804781478247834784478547864787478847894790479147924793479447954796479747984799480048014802480348044805480648074808480948104811481248134814481548164817481848194820482148224823482448254826482748284829483048314832483348344835483648374838483948404841484248434844484548464847484848494850485148524853485448554856485748584859486048614862486348644865486648674868486948704871487248734874487548764877487848794880488148824883488448854886488748884889489048914892489348944895489648974898489949004901490249034904490549064907490849094910491149124913491449154916491749184919492049214922492349244925492649274928492949304931493249334934493549364937493849394940494149424943494449454946494749484949495049514952495349544955495649574958495949604961496249634964496549664967496849694970497149724973497449754976497749784979498049814982498349844985498649874988498949904991499249934994499549964997499849995000500150025003500450055006500750085009501050115012501350145015501650175018501950205021502250235024502550265027502850295030503150325033503450355036503750385039504050415042504350445045504650475048504950505051505250535054505550565057505850595060506150625063506450655066506750685069507050715072507350745075507650775078507950805081508250835084508550865087508850895090509150925093509450955096509750985099510051015102510351045105510651075108510951105111511251135114511551165117511851195120512151225123512451255126512751285129513051315132513351345135513651375138513951405141514251435144514551465147514851495150515151525153515451555156515751585159516051615162516351645165516651675168516951705171517251735174517551765177517851795180518151825183518451855186518751885189519051915192519351945195519651975198519952005201520252035204520552065207520852095210521152125213521452155216521752185219522052215222522352245225522652275228522952305231523252335234523552365237523852395240524152425243524452455246524752485249525052515252525352545255525652575258525952605261526252635264526552665267526852695270527152725273527452755276527752785279528052815282528352845285528652875288528952905291529252935294529552965297529852995300530153025303530453055306530753085309531053115312531353145315531653175318531953205321532253235324532553265327532853295330533153325333533453355336533753385339534053415342534353445345534653475348534953505351535253535354535553565357535853595360536153625363536453655366536753685369537053715372537353745375537653775378537953805381538253835384538553865387538853895390539153925393539453955396539753985399540054015402540354045405540654075408540954105411541254135414541554165417541854195420542154225423542454255426542754285429543054315432543354345435543654375438543954405441544254435444544554465447544854495450545154525453545454555456545754585459546054615462546354645465546654675468546954705471547254735474547554765477547854795480548154825483548454855486548754885489549054915492549354945495549654975498549955005501550255035504550555065507550855095510551155125513551455155516551755185519552055215522552355245525552655275528552955305531553255335534553555365537553855395540554155425543554455455546554755485549555055515552555355545555555655575558555955605561556255635564556555665567556855695570557155725573557455755576557755785579558055815582558355845585558655875588558955905591559255935594559555965597559855995600560156025603560456055606560756085609561056115612561356145615561656175618561956205621562256235624562556265627562856295630563156325633563456355636563756385639564056415642564356445645564656475648564956505651565256535654565556565657565856595660566156625663566456655666566756685669567056715672567356745675567656775678567956805681568256835684568556865687568856895690569156925693569456955696569756985699570057015702570357045705570657075708570957105711571257135714571557165717571857195720572157225723572457255726572757285729573057315732573357345735573657375738573957405741574257435744574557465747574857495750575157525753575457555756575757585759576057615762576357645765576657675768576957705771577257735774577557765777577857795780578157825783578457855786578757885789579057915792579357945795579657975798579958005801580258035804580558065807580858095810581158125813581458155816581758185819582058215822582358245825582658275828582958305831583258335834583558365837583858395840584158425843584458455846584758485849585058515852585358545855585658575858585958605861586258635864586558665867586858695870587158725873587458755876587758785879588058815882588358845885588658875888588958905891589258935894589558965897589858995900590159025903590459055906590759085909591059115912591359145915591659175918591959205921592259235924592559265927592859295930593159325933593459355936593759385939594059415942594359445945594659475948594959505951595259535954595559565957595859595960596159625963596459655966596759685969597059715972597359745975597659775978597959805981598259835984598559865987598859895990599159925993599459955996599759985999600060016002600360046005600660076008600960106011601260136014601560166017601860196020602160226023602460256026602760286029603060316032603360346035603660376038603960406041604260436044604560466047604860496050605160526053605460556056605760586059606060616062606360646065606660676068606960706071607260736074607560766077607860796080608160826083608460856086608760886089609060916092609360946095609660976098609961006101610261036104610561066107610861096110611161126113611461156116611761186119612061216122612361246125612661276128612961306131613261336134613561366137613861396140614161426143614461456146614761486149615061516152615361546155615661576158615961606161616261636164616561666167616861696170617161726173617461756176617761786179618061816182618361846185618661876188618961906191619261936194619561966197619861996200620162026203620462056206620762086209621062116212621362146215621662176218621962206221622262236224622562266227622862296230623162326233623462356236623762386239624062416242624362446245624662476248624962506251625262536254625562566257625862596260626162626263626462656266626762686269627062716272627362746275627662776278627962806281628262836284628562866287628862896290629162926293629462956296629762986299630063016302630363046305630663076308630963106311631263136314631563166317631863196320632163226323632463256326632763286329633063316332633363346335633663376338633963406341634263436344634563466347634863496350635163526353635463556356635763586359636063616362636363646365636663676368636963706371637263736374637563766377637863796380638163826383638463856386638763886389639063916392639363946395639663976398639964006401640264036404640564066407640864096410641164126413641464156416641764186419642064216422642364246425642664276428642964306431643264336434643564366437643864396440644164426443644464456446644764486449645064516452645364546455645664576458645964606461646264636464646564666467646864696470647164726473647464756476647764786479648064816482648364846485648664876488648964906491649264936494649564966497649864996500650165026503650465056506650765086509651065116512651365146515651665176518651965206521652265236524652565266527652865296530653165326533653465356536653765386539654065416542654365446545654665476548654965506551655265536554655565566557655865596560656165626563656465656566656765686569657065716572657365746575657665776578657965806581658265836584658565866587658865896590659165926593659465956596659765986599660066016602660366046605660666076608660966106611661266136614661566166617661866196620662166226623662466256626662766286629663066316632663366346635663666376638663966406641664266436644664566466647664866496650665166526653665466556656665766586659666066616662666366646665666666676668666966706671667266736674667566766677667866796680668166826683668466856686668766886689669066916692669366946695669666976698669967006701670267036704670567066707670867096710671167126713671467156716671767186719672067216722672367246725672667276728672967306731673267336734673567366737673867396740674167426743674467456746674767486749675067516752675367546755675667576758675967606761676267636764676567666767676867696770677167726773677467756776677767786779678067816782678367846785678667876788678967906791679267936794679567966797679867996800680168026803680468056806680768086809681068116812681368146815681668176818681968206821682268236824682568266827682868296830683168326833683468356836683768386839684068416842684368446845684668476848684968506851685268536854685568566857685868596860686168626863686468656866686768686869687068716872687368746875687668776878687968806881688268836884688568866887688868896890689168926893689468956896689768986899690069016902690369046905690669076908690969106911691269136914691569166917691869196920692169226923692469256926692769286929693069316932693369346935693669376938693969406941694269436944694569466947694869496950695169526953695469556956695769586959696069616962696369646965696669676968696969706971697269736974697569766977697869796980698169826983698469856986698769886989699069916992699369946995699669976998699970007001700270037004700570067007700870097010701170127013701470157016701770187019702070217022702370247025702670277028702970307031703270337034703570367037703870397040704170427043704470457046704770487049705070517052705370547055705670577058705970607061706270637064706570667067706870697070707170727073707470757076707770787079708070817082708370847085708670877088708970907091709270937094709570967097709870997100710171027103710471057106710771087109711071117112711371147115711671177118711971207121712271237124712571267127712871297130713171327133713471357136713771387139714071417142714371447145714671477148714971507151715271537154715571567157715871597160716171627163716471657166716771687169717071717172717371747175717671777178717971807181718271837184718571867187718871897190719171927193719471957196719771987199720072017202720372047205720672077208720972107211721272137214721572167217721872197220722172227223722472257226722772287229723072317232723372347235723672377238723972407241724272437244724572467247724872497250725172527253725472557256725772587259726072617262726372647265726672677268726972707271727272737274727572767277727872797280728172827283728472857286728772887289729072917292729372947295729672977298729973007301730273037304730573067307730873097310731173127313731473157316731773187319732073217322732373247325732673277328732973307331733273337334733573367337733873397340734173427343734473457346734773487349735073517352735373547355735673577358735973607361736273637364736573667367736873697370737173727373737473757376737773787379738073817382738373847385738673877388738973907391739273937394739573967397739873997400740174027403740474057406740774087409741074117412741374147415741674177418741974207421742274237424742574267427742874297430743174327433743474357436743774387439744074417442744374447445744674477448744974507451745274537454745574567457745874597460746174627463746474657466746774687469747074717472747374747475747674777478747974807481748274837484748574867487748874897490749174927493749474957496749774987499750075017502750375047505750675077508750975107511751275137514751575167517751875197520752175227523752475257526752775287529753075317532753375347535753675377538753975407541754275437544754575467547754875497550755175527553755475557556755775587559756075617562756375647565756675677568756975707571757275737574757575767577757875797580758175827583758475857586758775887589759075917592759375947595759675977598
							$PBExportHeader$w_email_view.srw
forward
global type w_email_view from w_publ_base
end type
type cb_rev from uo_imflatbutton within w_email_view
end type
type cb_send from uo_imflatbutton within w_email_view
end type
type cb_write from uo_imflatbutton within w_email_view
end type
type cb_back from uo_imflatbutton within w_email_view
end type
type lv_fj from uo_email_lv within w_email_view
end type
type dw_mail from u_dw_rbtnfilter within w_email_view
end type
type dw_rep from u_dw_rbtnfilter within w_email_view
end type
type dw_fj from u_dw_rbtnfilter within w_email_view
end type
type cb_sendother from uo_imflatbutton within w_email_view
end type
type cb_del from uo_imflatbutton within w_email_view
end type
type cb_rep from uo_imflatbutton within w_email_view
end type
type cb_fresh from uo_imflatbutton within w_email_view
end type
type lb_1 from listbox within w_email_view
end type
type cb_help from uo_imflatbutton within w_email_view
end type
type p_resize from picture within w_email_view
end type
type p_resize1 from picture within w_email_view
end type
type ln_bar from line within w_email_view
end type
type ln_bar2 from line within w_email_view
end type
type r_bar from rectangle within w_email_view
end type
type tv_1 from treeview within w_email_view
end type
type sp_v1 from u_lbs_stsplitbar within w_email_view
end type
type sp_h1 from u_lbs_stsplitbar within w_email_view
end type
type ole_1 from olecustomcontrol within w_email_view
end type
type st_3 from statictext within w_email_view
end type
type em_1 from editmask within w_email_view
end type
type pb_em1 from picturebutton within w_email_view
end type
type st_4 from statictext within w_email_view
end type
type em_2 from editmask within w_email_view
end type
type pb_em2 from picturebutton within w_email_view
end type
type pb_2 from picturebutton within w_email_view
end type
type p_1 from picture within w_email_view
end type
type st_refresh from statictext within w_email_view
end type
type dw_user from u_dw_rbtnfilter within w_email_view
end type
type dw_list from u_dw_rbtnfilter within w_email_view
end type
type cb_1 from uo_imflatbutton within w_email_view
end type
type st_del from uo_text_m_main within w_email_view
end type
type p_del from picture within w_email_view
end type
type cbx_showmeredeal from checkbox within w_email_view
end type
type cb_viewbill from commandbutton within w_email_view
end type
type cb_view_his from commandbutton within w_email_view
end type
type sle_find from singlelineedit within w_email_view
end type
type cb_find from uo_imflatbutton within w_email_view
end type
type ddlb_1 from dropdownlistbox within w_email_view
end type
type em_3 from editmask within w_email_view
end type
end forward

global type w_email_view from w_publ_base
integer y = 388
integer width = 5321
integer height = 2381
string title = "消息管理"
boolean maxbox = true
windowstate windowstate = maximized!
event ue_revall ( )
event ue_revcur ( )
event ue_sendall ( )
event ue_sendcur ( )
event ue_open_fj ( )
event ue_emailset ( )
event ue_rev_email ( )
event ue_retr_all ( )
event ue_retr_cur ( )
event ue_1 ( )
event ue_reply ( )
event ue_sendother ( )
event ue_del ( )
event ue_send ( )
event ue_saveas ( )
event ue_import_eml ( )
event ue_msg_retr ( )
event ue_msg_back ( )
event ue_msg_del ( )
event ue_msg_his ( )
event ue_msg_view1 ( )
event ue_msg_view2 ( )
event ue_date1 ( )
event ue_date2 ( )
event ue_date3 ( )
event ue_msg_send ( )
event ue_emailset_property ( )
event ue_export_eml ( )
event ue_newlebox ( )
event ue_renamebox ( )
event ue_delbox ( )
event ue_newbox ( )
event ue_set_signature ( )
event ue_revlemsg ( )
event ue_afteropen ( )
event ue_viewbill_msg ( )
event ue_move_eml ( )
event ue_set_cust ( )
event ue_set_email_move ( )
event ue_autorev ( )
event ue_rep_group ( )
cb_rev cb_rev
cb_send cb_send
cb_write cb_write
cb_back cb_back
lv_fj lv_fj
dw_mail dw_mail
dw_rep dw_rep
dw_fj dw_fj
cb_sendother cb_sendother
cb_del cb_del
cb_rep cb_rep
cb_fresh cb_fresh
lb_1 lb_1
cb_help cb_help
p_resize p_resize
p_resize1 p_resize1
ln_bar ln_bar
ln_bar2 ln_bar2
r_bar r_bar
tv_1 tv_1
sp_v1 sp_v1
sp_h1 sp_h1
ole_1 ole_1
st_3 st_3
em_1 em_1
pb_em1 pb_em1
st_4 st_4
em_2 em_2
pb_em2 pb_em2
pb_2 pb_2
p_1 p_1
st_refresh st_refresh
dw_user dw_user
dw_list dw_list
cb_1 cb_1
st_del st_del
p_del p_del
cbx_showmeredeal cbx_showmeredeal
cb_viewbill cb_viewbill
cb_view_his cb_view_his
sle_find sle_find
cb_find cb_find
ddlb_1 ddlb_1
em_3 em_3
end type
global w_email_view w_email_view

type prototypes
Function ulong FindWindow(string  lpClassName, string lpWindowName ) LIBRARY "user32.dll" ALIAS FOR "FindWindowW"
end prototypes

type variables
//s_email_set cur_set
//s_email_set s_set[]
//Boolean have_text = false
//Boolean have_html = false
boolean have_fj = false
boolean have_inout = false
boolean have_rep = false
string fjfilepathname = 'fjtemp'
//long all_count 
uo_email mail
//Long cur_hand
//TreeViewItem l_tvi 
//String Pathname
//string cur_address
////uo_email obj_emial
//
long tv_root

Int ls_dealflag = 0 // 内部消息
//
boolean have_user = false

long ins_can_see_other = 0
long ins_can_edit = 0

string C_root = '根'
string C_innerroot = '内部消息'
string C_innerrev = '内部消息收件箱'
string C_innersend = '内部消息发件箱'
string C_mailacount = '邮箱帐号'
string C_mailbox = '邮箱'
string C_smsroot = '短信'
string C_smssend = '短信发件箱'
string C_leroot = 'LE'
string C_lebox = 'LE箱'

transaction Commit_Tran  // 帐号表所有数据库
boolean has_fj_tran = false
transaction fj_tran      // 邮件附件数据库

long ins_deletingrow = 0

boolean ins_candrag = false
 
string C_Sys_admsg_fj = 'Sys_admsg_fj'
string C_u_email_fj = 'u_email_fj'
string C_from_file = 'from_file'
s_tv_data1 tv_data_move
s_tv_data1 tv_data_move1
long ins_innerrevhandle
//20130720荣 查邮件时显示主题信息
string lss_subject,lss_sendman,lss_senddate,lss_revdate
//20130720荣 查邮件时显示主题信息
boolean if_autorev=false //是否自动收邮件
long ll_autotime=0//自动收邮件间隔
long handle1_email


long cur_send = -1
end variables

forward prototypes
public function integer wf_init (ref string arg_msg)
public subroutine wf_delfj ()
public function integer wf_revemail (s_email_set arg_set, ref string arg_msg)
public function integer wf_retrievemx (long arg_id, integer arg_fjtype, string arg_address, ref string arg_msg)
public subroutine wf_retreve_inout (string arg_address)
public subroutine wf_retreve_rep (long arg_id, integer arg_fjtype)
public subroutine pf_retrievetree (long arg_handl, integer arg_flag)
public subroutine wf_retrieve ()
public subroutine wf_retrievetree (integer arg_flag)
public function integer wf_import_eml (string arg_file, ref string arg_msg)
public function integer days_in_month (integer month, integer year)
public subroutine wf_set_read (long row)
public subroutine wf_set_unread (long row)
public function integer wf_tv_build_tree (ref string arg_msg)
public function long wf_tv_insert (long arg_handle, string arg_label, long arg_picindex, any arg_data)
public subroutine wf_tv_insertallacount (long handle)
public subroutine wf_tv_insertallbox (long handle)
public function s_tv_data1 wf_tv_getdata (long handle)
public function integer wf_ds_getmailset (ref s_email_set arg_set[], ref string arg_msg)
public function integer wf_ds_getmailbox (long arg_mailid, long arg_parentid, ref s_email_box arg_box[], ref string arg_msg)
public function long wf_tv_getcurrent ()
public subroutine wf_tv_setcurrenttext (string arg_text)
public subroutine wf_dw_rowfocuschanged_innermsg_rev ()
public subroutine wf_dw_rowfocuschanged_innermsg_send ()
public subroutine wf_dw_rowfocuschanged_mailmsg ()
public function long wf_tv_getacount (long arg_handle)
public subroutine wf_ui_reflash ()
public subroutine wf_dw_retrieve_innermsg_rev ()
public subroutine wf_dw_retrieve_innermsg_send ()
public function integer wf_ds_get_mail_set (long arg_mailid, ref s_email_set arg_set, ref string arg_msg)
public function integer wf_ds_get_mail_box (long arg_boxid, ref s_email_box arg_box, ref string arg_msg)
public function integer wf_ds_del_msg (long arg_id, ref string arg_msg)
public function long wf_ds_gettrunkbox (long arg_mailid)
public function integer wf_ds_move_msg_box (long arg_id, long arg_boxid, ref string arg_msg)
protected function long wf_box_gettotle (long arg_boxid)
public function long wf_box_getunread (long arg_boxid)
public subroutine wf_box_update_label (long arg_boxid)
public subroutine wf_tv_settext (long arg_handle, string arg_label)
public subroutine wf_html_set (string arg_text)
public function integer wf_admsg_getfj (long arg_msgid, ref s_email_lvfj arg_lvfj[], ref string arg_msg)
public function integer wf_mail_gethtml (long arg_msgid, ref string arg_text, ref string arg_msg)
public function integer wf_admsg_gethtml (long arg_msgid, ref string arg_text, ref string arg_msg)
public subroutine wf_str_replace (ref string arg_source, string arg_str1, string arg_str2)
public function integer wf_mail_getfj (long arg_id, ref s_email_lvfj arg_lvfj[], ref string arg_msg)
public function integer wf_admsg_getfjblob (long arg_fjid, ref blob arg_fjblob, ref string arg_msg)
public function integer wf_mail_getfjblob (long arg_fjid, ref blob arg_fjblob, ref string arg_msg)
public subroutine wf_blob_saveas (ref blob arg_blob, string arg_filename)
public subroutine wf_blob_runfj (ref blob arg_blob, string arg_filename)
public subroutine wf_ui_row (long arg_row)
public subroutine wf_ui_unselectall ()
public subroutine wf_revert_read (long arg_row)
public subroutine wf_read_row (long arg_row)
public subroutine wf_tv_setdata (long arg_handle, s_tv_data1 arg_data)
public subroutine wf_tv_reflash (long arg_handle)
public function long wf_tv_gettrunkhandle (long arg_handle)
public subroutine wf_tv_retrieve ()
public subroutine wf_tv_retrieveallchildbox (long arg_handle)
public subroutine wf_tv_getchild (long arg_handle, ref long arg_child[])
public function boolean wf_hasdotnet ()
public subroutine wf_str_modfilepath (ref string ls_filepath)
public subroutine wf_dw_readlayout ()
public subroutine wf_dw_retrieve_smssend ()
public subroutine wf_tv_insertlebox (long arg_handle, long arg_parentid)
public subroutine wf_dw_retrieve_le (long arg_boxid)
public subroutine wf_dw_retrieve_smssendmx ()
public subroutine wf_dw_retrieve_mailmsg (long arg_mailid, long arg_boxid, string arg_boxname)
public function long wf_findtreeitem (treeview tv_tree, boolean findby, any data)
public function string of_globalreplace (string as_source, string as_old, string as_new)
public subroutine wf_move ()
end prototypes

event ue_revall();ULong    lu_class
String   ls_name
SetNull(lu_class)
//ls_name = "龙嘉接收邮件工具"
//IF  FindWindowA(lu_class, ls_name) > 0 THEN
//	MessageBox('提示','正在收取邮件,请稍后!',information!,OK!)
//	RETURN
//END IF

IF NOT FileExists(sys_cur_path + 'longjoe_rev.exe') THEN
	MessageBox('提示','longjoe_rev.exe文件缺失,请联系软件供应商!',information!,OK!)
	RETURN
END IF

// DONE: 检测是否安装.net
if not wf_hasDotNet() then
	MessageBox('提示','如需收发邮件请安装.net2.0!',information!,OK!)
	RETURN		
end if

if not has_fj_tran then
	MessageBox('提示','未设置邮件数据库!',information!,OK!)
	RETURN			
end if

String ls_run
ls_run = 'longjoe_rev.exe -longjoe&'&
		+ sys_system_id + '&'&
		+ sys_cur_version + '&'&
		+ String(sys_if_register) + '&'&
		+ Commit_Tran.Database + '&'&
		+ Commit_Tran.UserID + '&'&
		+ f_psw_bczh(Commit_Tran.DBPass,0,sys_power_key) + '&'&
		+ Commit_Tran.LogID + '&'&
		+ f_psw_bczh(Commit_Tran.LogPass,0,sys_power_key) + '&'&
		+ Commit_Tran.ServerName + '&'&
		+ string(sys_empid) + '&'&
		+ '-1&'&
		+ '0&'&
		+ fj_tran.Database + '&'&
		+ fj_tran.UserID + '&'&
		+ f_psw_bczh(fj_tran.DBPass,0,sys_power_key) + '&'&
		+ fj_tran.LogID + '&'&
		+ f_psw_bczh(fj_tran.LogPass,0,sys_power_key) + '&'&
		+ fj_tran.ServerName + '&'

IF Run(sys_cur_path + ls_run) = -1 THEN
	MessageBox('错误','运行程序失败！',stopsign!,ok!)
	RETURN
END IF

//alltimmer.of_start(3,"ue_retr_all",'1')
Long ll_cpu,ll_cpu1,ll_hwnd
ll_cpu = CPU()
DO WHILE CPU() - ll_cpu <2000
	Yield()
LOOP
DO
	
	DO WHILE CPU() - ll_cpu < 2000
		Yield()
	LOOP
	
	ll_hwnd = findWindow("WindowsForms10.Window.8.app.0.33c0d9d","收取邮件")
	IF ll_hwnd = 0 THEN
		ll_cpu1 = CPU()
		DO WHILE CPU() - ll_cpu1 < 1000
			Yield()
		LOOP
		ll_hwnd = findWindow("WindowsForms10.Window.8.app.0.33c0d9d","收取邮件")
		IF   ll_hwnd = 0  THEN
			
			EXIT
		END IF
		
	END IF
LOOP Until(1 = 2)
wf_move()


end event

event ue_revcur();//String ls_msg
//
//IF wf_revemail(cur_set,ls_msg) = 0 THEN 
//	MessageBox('错误',ls_msg,stopsign!,OK!)
//	RETURN
//ELSE 
//	wf_retrievetree(1)
//	MessageBox('提示','收取邮件完成!',information!,OK!)
//END IF
//

//if cur_set.mailid <= 0 then // DONE: cur_set不准确
//	MessageBox('提示', '请先选择邮件账号', information!, OK!)
//	return
//end if

Long Handle
Handle = wf_tv_getacount(wf_tv_getcurrent())

IF Handle <= 0 THEN
	MessageBox('提示', '请先选择邮件帐号', information!, OK!)
	RETURN
END IF

s_tv_data1 tv_data
tv_data = wf_tv_getdata(Handle)

Long ll_mailid
ll_mailid = tv_data.relid


ULong    lu_class
String   ls_name
SetNull(lu_class)
//ls_name = "龙嘉接收邮件工具" 
//IF  FindWindowA(lu_class, ls_name) > 0 THEN
//	MessageBox('提示','正在收取邮件,请稍后!',information!,OK!)
//	RETURN
//END IF

IF Not FileExists(sys_cur_path + 'longjoe_rev.exe') THEN
	MessageBox('提示','longjoe_rev.exe文件缺失,请联系软件供应商!',information!,OK!)
	RETURN
END IF

// DONE: 检测是否安装.net
IF Not wf_hasDotNet() THEN
	MessageBox('提示','如需收发邮件请安装.net2.0!',information!,OK!)
	RETURN
END IF

IF Not has_fj_tran THEN
	MessageBox('提示','未设置邮件数据库!',information!,OK!)
	RETURN
END IF

String ls_run
//MESSAGEBOX('','RUN')
ls_run = 'longjoe_rev.exe -longjoe&'&
	+ sys_system_id + '&'&
	+ sys_cur_version + '&'&
	+ String(sys_if_register) + '&'&
	+ Commit_Tran.Database + '&'&
	+ Commit_Tran.UserID + '&'&
	+ f_psw_bczh(Commit_Tran.DBPass,0,sys_power_key) + '&'&
	+ Commit_Tran.LogID + '&'&
	+ f_psw_bczh(Commit_Tran.LogPass,0,sys_power_key) + '&'&
	+ Commit_Tran.ServerName + '&'&
	+ String(sys_empid) + '&'&
	+ String(ll_mailid) + '&'&
	+ '0&'&
	+ fj_tran.Database + '&'&
	+ fj_tran.UserID + '&'&
	+ f_psw_bczh(fj_tran.DBPass,0,sys_power_key) + '&'&
	+ fj_tran.LogID + '&'&
	+ f_psw_bczh(fj_tran.LogPass,0,sys_power_key) + '&'&
	+ fj_tran.ServerName + '&'
//messagebox('','exit')
IF Run(sys_cur_path + ls_run) = -1 THEN
	MessageBox('错误','运行程序失败！',stopsign!,OK!)
	RETURN
END IF
//WindowsForms10.Window.8.app.0.33c0d9d
//curtimmer.of_start(3,"ue_retr_cur",'1')‘
Long ll_cpu,ll_cpu1,ll_hwnd
ll_cpu = CPU()
DO WHILE CPU() - ll_cpu <2000
	Yield()
LOOP
DO
	
	DO WHILE CPU() - ll_cpu < 2000
		Yield()
	LOOP
	
	ll_hwnd = findWindow("WindowsForms10.Window.8.app.0.33c0d9d","收取邮件")
	IF ll_hwnd = 0 THEN
		ll_cpu1 = CPU()
		DO WHILE CPU() - ll_cpu1 < 1000
			Yield()
		LOOP
		ll_hwnd = findWindow("WindowsForms10.Window.8.app.0.33c0d9d","收取邮件")
		IF   ll_hwnd = 0  THEN
			
			EXIT 
		END IF
		
	END IF
LOOP Until(1 = 2)
wf_move()

 
end event

event ue_sendall();ULong    lu_class 
String   ls_name
SetNull(lu_class)
//ls_name = "龙嘉发送邮件工具" 
//IF  FindWindowA(lu_class, ls_name) > 0 THEN
//	MessageBox('提示','正在发送邮件,请稍后!',information!,OK!)
//	RETURN
//END IF

if not FileExists(sys_cur_path + 'longjoe_rev.exe') then
	MessageBox('提示','longjoe_rev.exe文件缺失,请联系软件供应商!',information!,OK!)
	RETURN
end if

// DONE:检测是否安装.net
if not wf_hasDotNet() then
	MessageBox('提示','如需收发邮件请安装.net2.0!',information!,OK!)
	RETURN		
end if

if not has_fj_tran then
	MessageBox('提示','未设置邮件数据库!',information!,OK!)
	RETURN			
end if

string ls_run
ls_run = 'longjoe_rev.exe -longjoe&'&
		+ sys_system_id + '&'&
		+ sys_cur_version + '&'&
		+ String(sys_if_register) + '&'&
		+ Commit_Tran.Database + '&'&
		+ Commit_Tran.UserID + '&'&
		+ f_psw_bczh(Commit_Tran.DBPass,0,sys_power_key) + '&'&
		+ Commit_Tran.LogID + '&'&
		+ f_psw_bczh(Commit_Tran.LogPass,0,sys_power_key) + '&'&
		+ Commit_Tran.ServerName + '&'&
		+ string(sys_empid) + '&'&
		+ '-1&'&
		+ '1&'&
		+ fj_tran.Database + '&'&
		+ fj_tran.UserID + '&'&
		+ f_psw_bczh(fj_tran.DBPass,0,sys_power_key) + '&'&
		+ fj_tran.LogID + '&'&
		+ f_psw_bczh(fj_tran.LogPass,0,sys_power_key) + '&'&
		+ fj_tran.ServerName + '&'

IF Run(sys_cur_path + ls_run) = -1 THEN
	MessageBox('错误','运行程序失败！',stopsign!,ok!)
	RETURN
END IF


//alltimmer.of_start(3,"ue_retr_all",'1')

//Long i,sendcount,j,sendmxcount,k,l,fjcount,rslt = 1,ll_cnt_lp
//datastore ds_revlist,ds_send,ds_fj
//String errmsg,arg_msg
//ds_revlist = CREATE datastore
//ds_send = CREATE datastore
//ds_fj = CREATE datastore
//ds_revlist.DataObject = 'dw_email_sendmx'
//ds_revlist.SetTransObject(sqlca)
//ds_send.DataObject = 'dw_email_view_send'
//ds_send.SetTransObject(sqlca)
//ds_fj.DataObject = 'ds_email_fj'
//ds_fj.SetTransObject(sqlca)
//
//s_email_send s_send, s_send_null
//s_email_sendmx s_sendmx ,s_sendmx_null
//s_email_fj s_fj, s_fj_null
//s_email_set ss_set, ss_set_null
//
//
//
//FOR i = 1 TO all_count
//	ss_set = ss_set_null
//	ss_set = s_set[i]
//	sendcount = ds_send.Retrieve(s_set[i].mailid)
//	IF sendcount > 0 THEN
//		Open(w_sys_wait_jdt) //初始化进度条
//		w_sys_wait_jdt.Show()
//		w_sys_wait_jdt.wf_accepttol(sendcount)
//		ll_cnt_lp = 0
//		FOR j = 1 TO sendcount
//			
//			ll_cnt_lp++
//			w_sys_wait_jdt.st_msg.Text = cur_set.mailuser + "<" + cur_set.mailAddress + ">"+ " 正在发送邮件(" + String(j) + "/" + String(sendcount) + ")." //进度信息
//			w_sys_wait_jdt.wf_inc(ll_cnt_lp)
//			
//			s_send = s_send_null
//			s_sendmx  = s_sendmx_null
//			s_fj = s_fj_null
//			
//			sendmxcount =  ds_revlist.Retrieve(ds_send.Object.id[j])
//			fjcount = ds_fj.Retrieve(ds_send.Object.id[j],0)
//			IF sendmxcount > 0 THEN
//				
//				s_send.Subject = Trim(ds_send.Object.Subject[j])
//				s_send.Priority = ds_send.Object.Priority[j]
//				s_send.Textbody = Trim(ds_send.Object.Textbody[j])
//				s_send.sendid = ds_send.Object.id[j]
//				
//				FOR k = 1 TO sendmxcount
//					IF Trim(ds_revlist.Object.revaddress[k]) <> '' THEN
//						s_sendmx.revaddress[k] = 	Trim(ds_revlist.Object.revaddress[k])
//					END IF
//				NEXT
//				
//				IF fjcount > 0 THEN
//					FOR l = 1 TO fjcount
//						s_fj.fjid[l] = ds_fj.Object.fjid[l]
//						s_fj.Filename[l] = ds_fj.Object.Filename[l]
//					NEXT
//				END IF
//				
//				IF obj_email.f_send(ss_set,s_send,s_sendmx,s_fj,arg_msg) = 0 THEN
//					errmsg = ss_set.mailuser + "<" + ss_set.mailAddress + ">"+ arg_msg + '~n'
//					rslt = 0
//					GOTO ext
//				END IF
//				
//			END IF
//			
//		NEXT
//		IF IsValid(w_sys_wait_jdt) THEN
//			Close(w_sys_wait_jdt)
//		END IF
//	END IF
//NEXT
//
//ext:
//IF IsValid(w_sys_wait_jdt) THEN
//	Close(w_sys_wait_jdt)
//END IF
//IF rslt = 0 THEN
//	MessageBox('错误',errmsg, StopSign!, OK! )
//	ROLLBACK;
//ELSE
//	wf_retrievetree(-1)
//	MessageBox('提示','发送全部邮件成功' )
//	COMMIT;
//END IF
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
//
end event

event ue_sendcur();//if cur_set.mailid <= 0 then // cur_set不准确
//	MessageBox('提示', '请先选择邮件账号', information!, OK!)
//	return
//end if

long handle
handle = wf_tv_getacount(wf_tv_getcurrent())

if handle <= 0 then
	MessageBox('提示', '请先选择邮件帐号', information!, OK!)
	return
end if

s_tv_data1 tv_data
tv_data = wf_tv_getdata(handle)

long ll_mailid
ll_mailid = tv_data.relid


ULong    lu_class 
String   ls_name
SetNull(lu_class)
//ls_name = "龙嘉发送邮件工具" 
//IF  FindWindowA(lu_class, ls_name) > 0 THEN
//	MessageBox('提示','正在发送邮件,请稍后!',information!,OK!)
//	RETURN
//END IF

if not FileExists(sys_cur_path + 'longjoe_rev.exe') then
	MessageBox('提示','longjoe_rev.exe文件缺失,请联系软件供应商!',information!,OK!)
	RETURN
end if
 
// DONE: 检测是否安装.net
if not wf_hasDotNet() then
	MessageBox('提示','如需收发邮件请安装.net2.0!',information!,OK!)
	RETURN		
end if

if not has_fj_tran then
	MessageBox('提示','未设置邮件数据库!',information!,OK!)
	RETURN			
end if
 
string ls_run
ls_run = 'longjoe_rev.exe -longjoe&'&
		+ sys_system_id + '&'&
		+ sys_cur_version + '&'&
		+ String(sys_if_register) + '&'&
		+ Commit_Tran.Database + '&'&
		+ Commit_Tran.UserID + '&'&
		+ f_psw_bczh(Commit_Tran.DBPass,0,sys_power_key) + '&'&
		+ Commit_Tran.LogID + '&'&
		+ f_psw_bczh(Commit_Tran.LogPass,0,sys_power_key) + '&'&
		+ Commit_Tran.ServerName + '&'&
		+ string(sys_empid) + '&'&
		+ string(ll_mailid) + '&'&
		+ '1&'&
		+ fj_tran.Database + '&'&
		+ fj_tran.UserID + '&'&
		+ f_psw_bczh(fj_tran.DBPass,0,sys_power_key) + '&'&
		+ fj_tran.LogID + '&'&
		+ f_psw_bczh(fj_tran.LogPass,0,sys_power_key) + '&'&
		+ fj_tran.ServerName + '&'

IF Run(sys_cur_path + ls_run) = -1 THEN
	MessageBox('错误','运行程序失败！',stopsign!,ok!)
	RETURN
END IF

//curtimmer.of_start(3,"ue_retr_cur",'1')

//
//
//Long i,sendcount,j,sendmxcount,k,l,fjcount,rslt = 1,ll_cnt_lp
//datastore ds_revlist,ds_send,ds_fj
//String errmsg
//ds_revlist = CREATE datastore
//ds_send = CREATE datastore
//ds_fj = CREATE datastore
//ds_revlist.DataObject = 'dw_email_sendmx'
//ds_revlist.SetTransObject(sqlca)
//ds_send.DataObject = 'dw_email_view_send'
//ds_send.SetTransObject(sqlca)
//ds_fj.DataObject = 'ds_email_fj'
//ds_fj.SetTransObject(sqlca)
//s_email_send s_send, s_send_null
//s_email_sendmx s_sendmx ,s_sendmx_null
//s_email_fj s_fj, s_fj_null
//
//
//sendcount = ds_send.Retrieve(cur_set.mailid)
//IF sendcount > 0 THEN
//	Open(w_sys_wait_jdt) //初始化进度条
//	w_sys_wait_jdt.Show()
//	w_sys_wait_jdt.wf_accepttol(sendcount)
//	FOR j = 1 TO sendcount
//		ll_cnt_lp++
//		w_sys_wait_jdt.st_msg.Text = cur_set.mailuser + "<" + cur_set.mailAddress + ">"+ " 正在发送邮件(" + String(j) + "/" + String(sendcount) + ")." //进度信息
//		w_sys_wait_jdt.wf_inc(ll_cnt_lp)
//		
//		s_send = s_send_null
//		s_sendmx  = s_sendmx_null
//		s_fj = s_fj_null
//		
//		sendmxcount =  ds_revlist.Retrieve(ds_send.Object.id[j])
//		fjcount = ds_fj.Retrieve(ds_send.Object.id[j],0)
//		IF sendmxcount > 0 THEN
//			
//			s_send.Subject = Trim(ds_send.Object.Subject[j])
//			s_send.Priority = ds_send.Object.Priority[j]
//			s_send.Textbody = Trim(ds_send.Object.Textbody[j])
//			s_send.sendid = ds_send.Object.id[j]
//			
//			FOR k = 1 TO sendmxcount
//				IF Trim(ds_revlist.Object.revaddress[k]) <> '' THEN
//					s_sendmx.revaddress[k] = 	Trim(ds_revlist.Object.revaddress[k])
//				END IF
//			NEXT
//			
//			IF fjcount > 0 THEN
//				FOR l = 1 TO fjcount
//					s_fj.fjid[l] = ds_fj.Object.fjid[l]
//					s_fj.Filename[l] = ds_fj.Object.Filename[l]
//				NEXT
//			END IF
//			
//			IF obj_email.f_send(cur_set,s_send,s_sendmx,s_fj,errmsg) = 0 THEN
//				errmsg = cur_set.mailuser + "<" + cur_set.mailAddress + ">"+ errmsg + '~n'
//				rslt = 0
//				GOTO ext
//			END IF
//		END IF
//		
//		
//	NEXT
//	
//END IF
//
//ext:
//
//IF IsValid(w_sys_wait_jdt) THEN
//	Close(w_sys_wait_jdt)
//END IF
//
//IF rslt = 0 THEN
//	MessageBox('错误',errmsg, StopSign!, OK! )
//	ROLLBACK;
//ELSE
//	wf_retrievetree(1)
//	MessageBox('提示','发送邮件成功' )
//	COMMIT;
//END IF
//
//
//
//
//
//
//
end event

event ue_open_fj();dw_fj.AcceptText()

IF dw_fj.GetRow() = 0 THEN RETURN

Blob ls_filedata
Long ll_fjid
String ins_cur_fjname,errmsg,lsNull,ls_Pathname
SetNull(lsNull)


ins_cur_fjname = dw_fj.Object.u_email_fj_filename[dw_fj.GetRow()]
ll_fjid = dw_fj.Object.u_email_fj_fjid[dw_fj.GetRow()]

SELECTBLOB Fileblob
INTO :ls_filedata
FROM u_email_fj
Where (fjid = :ll_fjid);


ls_Pathname = sys_cur_path+fjfilePathname+'\'+ins_cur_fjname

IF Trim(ls_Pathname) <> '' THEN
	
	IF FileExists(ls_Pathname)	 THEN FileDelete(ls_Pathname)
	IF f_blobtofile(ls_Pathname,ls_filedata,errmsg) = 0 THEN
		MessageBox('系统提示',errmsg)
		RETURN
	ELSE
		//打开附件
		ShellExecute32( Handle(THIS), lsNull, ls_Pathname, lsNull, lsNull, 1 )
	END IF
END IF

end event

event ue_emailset();IF Not uo_email_power.can_see_mailset(sys_msg_pow)  THEN
	MessageBox(publ_operator,'你没有使用权限')
	RETURN
END IF

//s_edit_index_tran s_tran //传递参数使用
//OpenWithParm(w_email_set,s_tran)

Open(w_email_set_list)

//String ls_msg
//wf_init(ls_msg)


end event

event ue_rev_email();//Long i
//string ls_msg
//i = Message.LongParm
//
//IF wf_revemail(s_set[i],ls_msg) = 0 THEN
//	MessageBox('错误',ls_msg,stopsign!,OK!)
//	RETURN
//END IF
//
end event

event ue_retr_all();ULong    lu_class ,lu_class1
String   ls_name,ls_name1
SetNull(lu_class)
SetNull(lu_class1)
ls_name = "龙嘉发送邮件工具"
ls_name1 = "龙嘉接收邮件工具"
IF  FindWindowA(lu_class, ls_name) > 0 or  FindWindowA(lu_class1, ls_name1) > 0  THEN
	wf_retrievetree(-1)
else
//	alltimmer.stop()
END IF


end event

event ue_retr_cur();ULong    lu_class ,lu_class1
String   ls_name,ls_name1
SetNull(lu_class)
SetNull(lu_class1)
ls_name = "龙嘉发送邮件工具"
ls_name1 = "龙嘉接收邮件工具"
IF  FindWindowA(lu_class, ls_name) > 0 or  FindWindowA(lu_class1, ls_name1) > 0  THEN
	wf_retrievetree(1)
else
//	alltimmer.stop()
END IF


end event

event ue_reply();if dw_list.dataobject <> 'dw_email_view_msg' then return
dw_list.accepttext()
if dw_list.getrow() <= 0 then return

s_email_set s_parm
string ls_msg
S_PARM.ID=dw_list.object.id[dw_list.getrow()]
s_parm.mailid = dw_list.object.mailid[dw_list.getrow()]

if wf_ds_get_mail_set(s_parm.mailid, s_parm, ls_msg) <> 1 then
	return
end if

s_parm.flag = 1
s_parm.revuser = dw_list.object.senduser[dw_list.getrow()]
s_parm.revaddress = dw_list.object.sendaddress[dw_list.getrow()]
s_parm.relid= dw_list.Object.id[dw_list.GetRow()]
s_parm.reltype = 3
s_parm.subject =" RE:" + dw_list.object.subject[dw_list.getrow()]//带主题
OpenWithParm(w_email_send_new,s_parm)

end event

event ue_sendother();dw_list.AcceptText()
IF dw_list.GetRow() <= 0 THEN RETURN
s_email_set s_parm
String ls_msg


IF dw_list.DataObject = 'dw_deal_admsg_1_copy' Or dw_list.DataObject = 'dw_hismsg_copy' THEN
	// 选择账号
	Long ll_id = 0 //传递参数使用
	OpenWithParm(w_email_set,ll_id)
	s_parm = Message.PowerObjectParm
	IF s_parm.mailid <= 0 THEN
		RETURN
	END IF
	
ELSEIF dw_list.DataObject = 'dw_email_view_msg' THEN
	
	Long mailid
	mailid = dw_list.Object.mailid[dw_list.GetRow()]
	IF wf_ds_get_mail_set(mailid, s_parm, ls_msg) <> 1 THEN
		MessageBox('错误', ls_msg, stopsign!)
		RETURN
	END IF
	
ELSEIF dw_list.DataObject = 'dw_sms_spring_send' THEN
	
	s_spring_send s_send
	s_send.msg = dw_list.Object.msg[dw_list.GetRow()]
	s_send.sendid = 0
	s_send.sendflag = 2
	s_send.empid = sys_empid
	openwithparm(w_sms_send_new, s_send)
	
	RETURN
ELSE
	RETURN
END IF
s_parm.flag = 2

IF dw_list.DataObject = 'dw_deal_admsg_1_copy' THEN
	s_parm.Title = dw_list.Object.sys_admsgmx_s_msgtitle[dw_list.GetRow()]
	s_parm.reltype = 2
	s_parm.relid = dw_list.Object.sys_admsgmx_msgid[dw_list.GetRow()]
	IF wf_admsg_gethtml(s_parm.relid, s_parm.htmlbody, ls_msg) <> 1 THEN
		MessageBox('错误', ls_msg, stopsign!)
		RETURN
	END IF
ELSEIF dw_list.DataObject = 'dw_hismsg_copy' THEN
	s_parm.Title = dw_list.Object.s_msgtitle[dw_list.GetRow()]
	s_parm.reltype = 2
	s_parm.relid = dw_list.Object.msgid[dw_list.GetRow()]
	IF wf_admsg_gethtml(s_parm.relid, s_parm.htmlbody, ls_msg) <> 1 THEN
		MessageBox('错误', ls_msg, stopsign!)
		RETURN
	END IF
ELSEIF dw_list.DataObject = 'dw_email_view_msg' THEN
	s_parm.reltype = 0
	s_parm.relid = dw_list.Object.id[dw_list.GetRow()]
	s_parm.Title = dw_list.Object.Subject[dw_list.GetRow()]
	IF wf_mail_gethtml(s_parm.relid, s_parm.htmlbody, ls_msg) <> 1 THEN
		MessageBox('错误', ls_msg, stopsign!)
		RETURN
	END IF
ELSEIF dw_list.DataObject = '' then
	
elseif dw_list.DataObject = '' then
	
END IF

//s_parm.textbody = ole_1.object.document.body.innertext
//s_parm.htmlbody = blob(ole_1.object.document.body.innerhtml)
S_PARM.ID=dw_list.object.id[dw_list.getrow()]
OpenWithParm(w_email_send_new,s_parm)
//wf_retrievetree(1)

end event

event ue_del();
//messagebox('','del')
IF tv_data_move.a_long = 0 Or tv_data_move.b_string <> "废件箱"  THEN
	IF Not uo_email_power.can_deleteemail(sys_msg_pow)  THEN
		MessageBox(publ_operator,'你没有删除邮件的权限')
		RETURN
	END IF
ELSEIF tv_data_move.a_long <> 0 And tv_data_move.b_string = "废件箱"  THEN
	IF Not uo_email_power.can_deleteemail_forever(sys_msg_pow)  THEN
		MessageBox(publ_operator,'你没有彻底删除邮件的权限')
		RETURN
	END IF
END IF


If (dw_list.DataObject <> 'dw_email_view_msg' ) Or Not (dw_list.RowCount() > 0) THEN RETURN
s_email_box box
String ls_msg
Long i
IF wf_ds_get_mail_box(dw_list.Object.boxid[1], box, ls_msg) <> 1 THEN
	RETURN
END IF

IF box.boxtype = '废件箱' THEN
	IF MessageBox ("询问","是否确定要永久删除选中邮件吗",Question!,YesNo! ) = 2 THEN RETURN
	dw_list.SetRedraw(False)
	FOR i = dw_list.RowCount() To 1 Step -1
		IF dw_list.IsSelected(i) THEN
			IF wf_ds_del_msg(dw_list.Object.id[i], ls_msg) = 1 THEN
				ins_deletingrow = 1
				dw_list.DeleteRow(i)
				ins_deletingrow = 0
			END IF
		END IF
	NEXT
	dw_list.Trigger Event RowFocusChanged(dw_list.GetRow())
	dw_list.SetRedraw(True)
	wf_tv_reflash(wf_tv_getcurrent())
ELSE
	IF MessageBox ("询问","是否确定要把当前邮件放入废件吗",Question!,YesNo! ) = 2 THEN RETURN
	
	Long trunkboxid
	trunkboxid = wf_ds_gettrunkbox(dw_list.Object.mailid[1])
	IF trunkboxid <= 0 THEN
		MessageBox('错误', '查找帐号的废件箱失败', stopsign!)
		RETURN
	END IF
	
	
	dw_list.SetRedraw(False)
	FOR i = dw_list.RowCount() To 1 Step -1
		IF dw_list.IsSelected(i) THEN
			IF wf_ds_move_msg_box(dw_list.Object.id[i], trunkboxid, ls_msg) = 1 THEN
				ins_deletingrow = 1
				dw_list.DeleteRow(i)
				ins_deletingrow = 0
			END IF
		END IF
	NEXT
	dw_list.Trigger Event RowFocusChanged(dw_list.GetRow())
	dw_list.SetRedraw(True)
	wf_tv_reflash(wf_tv_getcurrent())
	wf_tv_reflash(wf_tv_gettrunkhandle(wf_tv_GetCurrent()))
END IF


end event

event ue_send();//// DONE: 发送选中邮件
//int rslt = 1
//s_email_send s_send
//s_email_sendmx s_sendmx
//s_email_fj s_fj
//string ls_msg
//long ll_row, ll_sendid, ll_sendmx_count, ll_fj_count
//ll_row = dw_list.getrow( )
//if ll_row <= 0 then return
//ll_sendid = dw_list.object.id[ll_row]
//
//if cur_set.viewtype <> 2 then // 不是发件箱的邮件另存后再发送
//	if obj_email.uf_get_send(ll_sendid, s_send, ls_msg) <> 1 then
//		MessageBox('系统提示', ls_msg, StopSign!)
//		rslt = 0 
//		goto ext
//	end if
//	
//	if obj_email.uf_get_sendmx(ll_sendid, s_sendmx, ll_sendmx_count, ls_msg) <> 1 then
//		MessageBox('系统提示', ls_msg, StopSign!)
//		rslt = 0
//		goto ext
//	end if
//	
//	if obj_email.uf_get_fj(ll_sendid, 0, s_fj, ll_fj_count, ls_msg, true) <> 1 then
//		MessageBox('系统提示', ls_msg, StopSign!)
//		rslt = 0
//		goto ext
//	end if
//	
//	s_send.sendid = 0
//	s_send.mailtype = 0
//	if obj_email.f_save(s_send, s_sendmx, s_fj, ls_msg) <> 1 then
//		MessageBox('系统提示', ls_msg, StopSign!)
//		rslt = 0
//		goto ext
//	end if	
//	ll_sendid = s_send.sendid
//end if
//
//if obj_email.uf_get_send(ll_sendid, s_send, ls_msg) <> 1 then
//	MessageBox('系统提示', ls_msg, StopSign!)
//	rslt = 0 
//	goto ext
//end if
//
//if obj_email.uf_get_sendmx(ll_sendid, s_sendmx, ll_sendmx_count, ls_msg) <> 1 then
//	MessageBox('系统提示', ls_msg, StopSign!)
//	rslt = 0
//	goto ext
//end if
//
//if obj_email.uf_get_fj(ll_sendid, 0, s_fj, ll_fj_count, ls_msg, false) <> 1 then
//	MessageBox('系统提示', ls_msg, StopSign!)
//	rslt = 0
//	goto ext
//end if
//
//
//if obj_email.f_send(cur_set, s_send, s_sendmx, s_fj, ls_msg) <> 1 then
//	MessageBox('系统提示', ls_msg, StopSign!)
//	rslt = 0
//	goto ext
//end if
//
//MessageBox('提示', '发送成功')
//wf_retrieve()
//ext:
//if rslt = 0 then
//	rollback;
//elseif rslt = 1 then
//	commit;
//end if
end event

event ue_saveas();//// DONE: 另存一份到发件箱
//int rslt = 1
//s_email_send s_send
//s_email_sendmx s_sendmx
//s_email_fj s_fj
//string ls_msg
//long ll_row, ll_sendid, ll_sendmx_count, ll_fj_count
//ll_row = dw_list.getrow( )
//if ll_row <= 0 then return
//ll_sendid = dw_list.object.id[ll_row]
//if obj_email.uf_get_send(ll_sendid, s_send, ls_msg) <> 1 then
//	MessageBox('系统提示', ls_msg, StopSign!)
//	rslt = 0 
//	goto ext
//end if
//
//if obj_email.uf_get_sendmx(ll_sendid, s_sendmx, ll_sendmx_count, ls_msg) <> 1 then
//	MessageBox('系统提示', ls_msg, StopSign!)
//	rslt = 0
//	goto ext
//end if
//
//if obj_email.uf_get_fj(ll_sendid, 0, s_fj, ll_fj_count, ls_msg, true) <> 1 then
//	MessageBox('系统提示', ls_msg, StopSign!)
//	rslt = 0
//	goto ext
//end if
//
//s_send.sendid = 0
//s_send.mailtype = 0
//if obj_email.f_save(s_send, s_sendmx, s_fj, ls_msg) <> 1 then
//	MessageBox('系统提示', ls_msg, StopSign!)
//	rslt = 0
//	goto ext
//end if
//
//MessageBox('提示', '另存成功')
//wf_retrieve()
//ext:
//if rslt = 0 then
//	rollback;
//elseif rslt = 1 then
//	commit;
//end if
end event

event ue_import_eml();s_tv_data1 tv_data
tv_data = wf_tv_getdata(wf_tv_getcurrent())
if tv_data.a_string <> C_mailbox then
	MessageBox('提示', '请先选择导入邮箱')
	return
end if

string ls_title, ls_pathname, ls_filename[], ls_extension, ls_filter
ls_title = '选择eml文件导入'
ls_extension = 'eml'
ls_filter = 'eml文件,*.eml'

if GetFileOpenName(ls_title, ls_pathname, ls_filename, ls_extension, ls_filter) <> 1 then
	return
end if

long ll_i

open(w_sys_wait_jdt)
w_sys_wait_jdt.wf_accepttol(upperbound(ls_filename))
for ll_i = lowerbound(ls_filename) to upperbound(ls_filename)
	string ls_emlFile
	if upperbound(ls_filename) = 1 then
		ls_emlFile = ls_pathname
	else
		ls_emlFile = ls_pathname + '\' + ls_filename[ll_i]
	end if
	w_sys_wait_jdt.wf_set_msg('正在导入' + ls_emlFile)
	// 导入文件
	string ls_msg, ls_sumMsg = ''
	if wf_import_eml(ls_emlFile, ls_msg) <> 1 then
		// 导入文件失败
		ls_sumMsg = '导入文件失败:' + ls_emlFile + ';原因:' + ls_msg + '~r~n'
	end if
	w_sys_wait_jdt.wf_inc(ll_i)
next

close(w_sys_wait_jdt)

if ls_sumMsg <> '' then
	MessageBox('', ls_sumMsg)
end if
tv_1.trigger event selectionchanged(-1, wf_tv_getcurrent())


//if cur_set.mailid <= 0 then
//	MessageBox('提示', '请先选择导入账号')
//	return
//end if
//
//string ls_title, ls_pathname, ls_filename[], ls_extension, ls_filter
//ls_title = '选择eml文件导入'
//ls_extension = 'eml'
//ls_filter = 'eml文件,*.eml'
//
//if GetFileOpenName(ls_title, ls_pathname, ls_filename, ls_extension, ls_filter) <> 1 then
//	return
//end if
//
//long ll_i
//for ll_i = lowerbound(ls_filename) to upperbound(ls_filename)
//	string ls_emlFile
//	if upperbound(ls_filename) = 1 then
//		ls_emlFile = ls_pathname
//	else
//		ls_emlFile = ls_pathname + '\' + ls_filename[ll_i]
//	end if
//	// 导入文件
//	string ls_msg, ls_sumMsg = ''
//	if wf_import_eml(ls_emlFile, ls_msg) <> 1 then
//		// 导入文件失败
//		ls_sumMsg = '导入文件失败:' + ls_emlFile + ';原因:' + ls_msg + '~r~n'
//	end if
//next
//
//if ls_sumMsg <> '' then
//	MessageBox('', ls_sumMsg)
//end if
end event

event ue_msg_retr();wf_retrieve()
end event

event ue_msg_back();String sendemp,msgtitle,msg
Long ll_row

ll_row = dw_list.GetRow()

IF ll_row <= 0 THEN RETURN

sendemp = dw_list.Object.sendemp[ll_row]
msgtitle = dw_list.Object.sys_admsgmx_s_msgtitle[ll_row]
msg = dw_list.Object.sys_admsgmx_s_msg[ll_row]

s_admsg s_msg
s_msg.sendemp = sendemp
s_msg.msgtitle = msgtitle
s_msg.msg = msg
s_msg.ifback = 1

OpenWithParm(w_msg_send,s_msg)
end event

event ue_msg_del();Long rslt = 1,ls_msgid ,ls_empid,ls_senddtint,row
String arg_msg
uo_transmsg uo_msg
row = dw_list.GetRow()
IF  row > 0 THEN
	IF MessageBox ("询问","是否确定要确认当前消息记录?"+' '+String(dw_list.Object.sys_admsgmx_s_msgtitle[row]),Question!,YesNo! ) = 2 THEN RETURN
	ls_msgid = dw_list.Object.sys_admsgmx_msgid[row]
	ls_empid = dw_list.Object.sys_admsgmx_empid[row]
	ls_senddtint = dw_list.Object.sys_admsgmx_senddtint[row]
	rslt = uo_msg.f_redeal_admsg(ls_msgid,ls_senddtint,ls_empid,arg_msg,TRUE)
	IF rslt = 0 THEN
		MessageBox('提示',arg_msg,information!,ok!)
	ELSE
		THIS.TriggerEvent("ue_msg_retr")
	END IF
END IF

end event

event ue_msg_his();open(w_msg_his)
end event

event ue_msg_view1();ls_dealflag = 0
wf_retrieve()
end event

event ue_msg_view2();ls_dealflag = -1
wf_retrieve()
end event

event ue_date1();em_1.text = string(today(),"yyyy-mm-dd")
em_2.text = string(today(),"yyyy-mm-dd")
end event

event ue_date2();
Int li_DayNum
li_DayNum =  DayNumber(Today())
em_1.Text = String(RelativeDate ( Today(), 1 - li_DayNum ),"yyyy-mm-dd")
em_2.Text = String(RelativeDate ( Today(), 7 - li_DayNum ),"yyyy-mm-dd")


end event

event ue_date3();
Int li_Month, li_Year, li_Days
li_Month = Month(Today())
li_Year = Year(Today())
li_Days = days_in_month(li_Month, li_Year)
em_1.Text = String(Date(li_Year, li_Month, 1),"yyyy-mm-dd")
em_2.Text = String(Date(li_Year, li_Month, li_Days),"yyyy-mm-dd")

end event

event ue_msg_send();IF NOT IsValid(w_msg_send) THEN
	s_admsg s_msg
	s_msg.ifback = 0
	OpenWithParm(w_msg_send,s_msg)
END IF

end event

event ue_emailset_property();s_email_set s_setparm
s_tv_data1 tv_data
tv_data = wf_tv_getdata(wf_tv_getcurrent())

if tv_data.a_string <> C_mailacount then return

s_setparm.mailid = tv_data.relid
if s_setparm.mailid > 0 then
	if uo_email_power.can_edit(sys_msg_pow) then
		s_setparm.flag = 1
	else
		s_setparm.flag = 0
	end if
	openWithParm(w_email_set_detail, s_setparm)	
end if
end event

event ue_export_eml();if not has_fj_tran then
	MessageBox('提示','未设置邮件数据库!',information!,OK!)
	RETURN			
end if

//if cur_set.mailid <= 0 then return
long i, ll_cnt = 0
string ls_title, ls_filepath, ls_filename, ls_extension, ls_filter
long ll_id
blob lb_orgData
string ls_msg
for i = 1 to dw_list.RowCount()
	if dw_list.isselected(i) then
		ll_cnt ++
	end if
next

if ll_cnt < 1 then return

if ll_cnt > 1 then
	ls_title = '导出邮件'
	if GetFolder(ls_title, ls_filepath) <> 1 then
		return
	end if
	if right(ls_filepath, 1) <> '\' then
		ls_filepath = ls_filepath + '\'
	end if
	string ls_sum = ''
	string ls_file
	long ll_inc = 0
	open(w_sys_wait_jdt)
	w_sys_wait_jdt.wf_accepttol(ll_cnt)
	for i = 1 to dw_list.RowCount()
		if dw_list.isselected(i) then
			ll_inc ++
			ll_id = dw_list.object.id[i]			
			ls_file = dw_list.object.subject[i]
			ls_sum = ls_sum + '保存<' + ls_file + '>'
			w_sys_wait_jdt.wf_set_msg('正在导出<' + ls_file + '>')
			selectblob orgData INTO :lb_orgData from u_email_msg where ID = :ll_id using fj_tran;
			if fj_tran.sqlcode <> 0 then
				ls_sum = ls_sum + '失败,获取原始数据失败,' + fj_tran.sqlerrtext + '~r~n'
				continue
			end if
			
			wf_str_modFilePath(ls_file)
			if FileExists(ls_filepath + ls_file + '.eml') then
				long ll_num = 1
				do while FileExists(ls_filepath + ls_file + '('+string(ll_num)+').eml')
					ll_num ++
			   loop
				ls_file = ls_filepath + ls_file + '('+string(ll_num)+').eml'
			else
				ls_file = ls_filepath + ls_file + '.eml'
			end if

			if f_blobtofile(ls_file, lb_orgData, ls_msg) <> 1 then
				ls_sum = ls_sum + '失败,' + ls_msg + '~r~n'
				continue
			end if
			ls_sum = ls_sum + '成功,保存到' + ls_file + '~r~n'
			w_sys_wait_jdt.wf_set_msg('正在导出<' + ls_file + '>')
			w_sys_wait_jdt.wf_inc(ll_inc)
		end if
	next
	close(w_sys_wait_jdt)
	
	MessageBox('提示', ls_sum)
	
	return
end if

if dw_list.GetRow() <= 0 then return
ls_title = '导出邮件'
ls_extension = 'eml'
ls_filter = 'eml文件,*.eml'

ls_filepath = dw_list.object.subject[dw_list.GetRow()] + '.eml'

wf_str_modFilePath(ls_filepath)


if GetFileSaveName(ls_title, ls_filepath, ls_filename, ls_extension, ls_filter) <> 1 then
	return
end if

ll_id = dw_list.object.id[dw_list.GetRow()]
selectblob orgData INTO :lb_orgData from u_email_msg where ID = :ll_id using fj_tran;
if fj_tran.sqlcode <> 0 then
	MessageBox('系统错误', '网络或其它原因，获取原始数据失败：' + fj_tran.sqlerrtext, stopsign!)
	return
end if
if f_blobtofile(ls_filepath, lb_orgData, ls_msg) <> 1 then
	MessageBox('系统错误', '保存文件失败:' + ls_msg, stopsign!)
	return
end if

MessageBox('文件保存成功', ls_filepath)

end event

event ue_newlebox();s_tv_data1 tv_data

Long parentid

tv_data = wf_tv_getdata(wf_tv_getcurrent())

IF tv_data.a_string = C_leroot THEN
	parentid = 0
ELSEIF tv_data.a_string = C_lebox THEN
	parentid = tv_data.relid
ELSE
	RETURN
END IF

uo_ljmail_box uo_box
uo_box = Create uo_ljmail_box

String ls_msg
s_ljmail_box s_box

s_box.boxid = 0
s_box.boxname = '新目录'
s_box.empid = sys_empid
s_box.parentid = parentid
s_box.boxtype = 5

IF uo_box.uf_save(Ref s_box, Ref ls_msg) <> 1 THEN
	MessageBox('错误1', ls_msg, stopsign!)
	GOTO ext
END IF

tv_data.a_string = C_lebox
tv_data.relid = s_box.boxid
tv_data.b_string = s_box.boxname
tv_data.a_long = s_box.boxtype
tv_data.b_long = s_box.empid

Long boxhandle
boxhandle = wf_tv_insert(wf_tv_getcurrent(), s_box.boxname, 7, tv_data)
tv_1.SelectItem(boxhandle)
tv_1.EditLabel(boxhandle)

ext:
Destroy uo_box

//
//
//
//if box.uf_newbox(mailid, parentid, '新目录', true, ls_msg) <> 1 then
//	MessageBox('错误', ls_msg, stopsign!)
//	return
//end if
//
//s_tv_data1 s_box
//s_box.relid = box.boxid
//s_box.a_string = C_mailbox
//s_box.b_string = box.boxname
//s_box.a_long = mailid
//s_box.b_long = box.isdefault
//long unread
//unread = wf_box_getunread(box.boxid)
//long totle
//totle = wf_box_gettotle(box.boxid)
//string label
//label = trim(box.boxname) + '(' + string(unread) + '/' + string(totle) + ')'
//
//long boxhandle
//boxhandle = wf_tv_insert(wf_tv_getcurrent(), label, box.picindex, s_box)
//
//tv_1.SelectItem(boxhandle)
//
//tv_1.EditLabel(boxhandle)
//
//
//destroy box

end event

event ue_renamebox();tv_1.EditLabel(wf_tv_getcurrent())
end event

event ue_delbox();s_tv_data1 tv_data
long curhandle
curhandle = wf_tv_getcurrent()
tv_data = wf_tv_getdata(curhandle)

if tv_data.a_string <> C_mailbox then
	return
end if

uo_email_box box
box = create uo_email_box
box.commit_tran = commit_tran
box.fj_tran = fj_tran

string ls_msg
if box.uf_del(tv_data.relid, ls_msg) = 1 then
	tv_1.deleteitem(curhandle)
else
	MessageBox('删除失败', ls_msg, stopsign!)
end if

destroy box
end event

event ue_newbox();s_tv_data1 tv_data

long mailid, parentid

tv_data = wf_tv_getdata(wf_tv_getcurrent())

if tv_data.a_string = C_mailacount then
	mailid = tv_data.relid
	parentid = 0
elseif tv_data.a_string = C_mailbox then
	mailid = tv_data.a_long
	parentid = tv_data.relid
else
	return
end if

uo_email_box box
box = create uo_email_box
box.commit_tran = commit_tran
box.fj_tran = fj_tran

string ls_msg

if box.uf_newbox(mailid, parentid, '新目录', true, ls_msg) <> 1 then
	MessageBox('错误', ls_msg, stopsign!)
	return
end if

s_tv_data1 s_box
s_box.relid = box.boxid
s_box.a_string = C_mailbox
s_box.b_string = box.boxname
s_box.a_long = mailid
s_box.b_long = box.isdefault
long unread
unread = wf_box_getunread(box.boxid)
long totle
totle = wf_box_gettotle(box.boxid)
string label
label = trim(box.boxname) + '(' + string(unread) + '/' + string(totle) + ')'

long boxhandle
boxhandle = wf_tv_insert(wf_tv_getcurrent(), label, box.picindex, s_box)

tv_1.SelectItem(boxhandle)

tv_1.EditLabel(boxhandle)


destroy box
end event

event ue_set_signature();open(w_email_signmanage)
end event

event ue_revlemsg();open(w_ljmail_revmsg)
end event

event ue_afteropen();Long ll_num
Long ll_row
ll_num = Message.DoubleParm
tv_1.SelectItem(ins_innerrevhandle)
tv_1.trigger event selectionchanged(0, ins_innerrevhandle)

IF ll_num > 0 And dw_list.DataObject = 'dw_deal_admsg_1_copy' THEN
	ll_row = dw_list.Find('sys_admsgmx_msgid = ' + String(ll_num), 1, dw_list.RowCount())
	IF ll_row > 0 THEN
		dw_list.SetRow(ll_row)
		dw_list.ScrollToRow(ll_row)
		dw_list.SelectRow(0, False)
		dw_list.SelectRow(ll_row, True)
	END IF
END IF

IF dw_list.GetRow() > 0 THEN
	dw_list.Trigger Event RowFocusChanged(dw_list.GetRow())
END IF

end event

event ue_viewbill_msg();String ls_code
Long ll_scid
Long ll_row

IF dw_list.DataObject = 'dw_deal_admsg_1_copy' THEN
	ll_row = dw_list.GetRow()
	IF ll_row > 0 THEN
		ll_scid = dw_list.Object.sys_admsgmx_scid[ll_row]
		ls_code = dw_list.Object.sys_admsgmx_billcode[ll_row]
		
		IF ls_code <> '' THEN
			f_open_win(ll_scid,ls_code)
		END IF
	END IF
END IF

end event

event ue_move_eml();
//tv_data = wf_tv_getdata(Handle)
openwithparm(w_email_move, tv_data_move)
this.cb_fresh.TriggerEvent(Clicked!)
//s_return = message.powerobjectparm
 
end event

event ue_set_cust();s_edit_index_tran s_ch_tran //传递参数使用
s_ch_tran.if_retrieve_all = False //是否一次RETRIEVE所有行
s_ch_tran.work_mode = 1 //0-单纯编辑模式 1-选择\编辑模式
s_ch_tran.arg_pkid = 0 //目标定位PKID (备用)
String ls_souce,ls_name,ls_email
IF dw_list.RowCount() <= 0 THEN
	RETURN
END IF

s_custom s_tran_cust
ls_souce = String(dw_list.Object.sendman[dw_list.GetRow()])
ls_name = Left(ls_souce,Pos(ls_souce,"<") - 1)
ls_email = Right(ls_souce,Len(ls_souce) - Pos(ls_souce,"<") ) 
ls_email = Left(ls_email,Len(ls_email) - 1)

s_ch_tran.d_long = 1
s_tran_cust.cuscode = String(Today(), "yyyyMMddHHmmss")
s_tran_cust.Name = ls_name
s_tran_cust.email = ls_email

s_ch_tran.a_any = s_tran_cust


OpenWithParm(W_cust_edit,s_ch_tran) //调用


//long ll_row
//	
//	w_cust_edit_popup  w_me_cust_edit_popup
//	f_sys_main(105)
//	w_me_cust_edit_popup = s_sys_win_open[105].win
//	DO WHILE Not IsValid(w_me_cust_edit_popup)
//		Yield()
//	LOOP
//
//	w_me_cust_edit_popup.cb_add.TriggerEvent('clicked') //按新建客户
//	ll_row = w_me_cust_edit_popup.tab_1.tabpage_1.dw_base.GetRow()
//	w_me_cust_edit_popup.tab_1.tabpage_1.dw_base.Object.cuscode[ll_row] =string(today(), "yyyyMMddHHmmss") //编号
//	w_me_cust_edit_popup.tab_1.tabpage_1.dw_base.Object.Name[ll_row] =  string(dw_list.Object.sendman[dw_list.GetRow()]) //名称
//	w_me_cust_edit_popup.tab_1.tabpage_1.dw_base.Object.custype[ll_row] = "张三" //业务员
//	w_me_cust_edit_popup.tab_1.tabpage_1.dw_base.Object.rep[ll_row] = "小明" //联系人

end event

event ue_set_email_move();s_edit_index_tran ss_tran
Long ll_row,L1,L2
ll_row = dw_list.GetRow()
IF ll_row <= 0 THEN RETURN

ss_tran.b_long = dw_list.Object.mailID[ll_row]
ss_tran.b_string = dw_list.Object.sendman[ll_row]
L1 = Pos(ss_tran.b_string,"<")
L2 = Pos(ss_tran.b_string,">")

ss_tran.b_string = Mid(ss_tran.b_string,L1 + 1 ,L2 - L1 - 1)
//messagebox(string(ss_tran.b_long),ss_tran.b_string)
OpenWithParm(w_set_email_move,ss_tran)


end event

event ue_autorev();Open(w_email_ds_rev)


//f_SetProfileString (sys_empid,publ_userid+'_'+'sle_auottime', "autotime",String(long(trim(sle_auottime.text))))
ll_autotime = Long(f_ProfileString(sys_empid,publ_userid+'_'+'sle_auottime', "autotime",'0'))
IF ll_autotime > 0 THEN
	if_autorev = True
	timer(ll_autotime * 60)
END IF

end event

event ue_rep_group();s_edit_index_tran s_tranf


OpenWithParm(w_rep_group,s_tranf) //调用
end event

public function integer wf_init (ref string arg_msg);////用游标读取明细
//
Long i,NO_MXCHECK,rslt = 1
//Long ll_count
//i = 1
//all_count = 0
//DECLARE CUR_INWAERMX CURSOR FOR
//	SELECT u_email_set.mailID,
//	u_email_set.mailuser,
//	u_email_set.mailaddress,
//	u_email_set.mailpsw,
//	u_email_set.popset,
//	u_email_set.smtpset,
//	u_email_set.Othermsg,
//	0,
//	u_email_set.popport,
//	u_email_set.smtpport,
//	u_email_set.ifdelmsg,
//	u_email_set.gap
//	FROM u_email_set
//	WHERE  ( u_email_set.empid = :sys_empid AND  u_email_set.mailtype = 0)
//	OR  u_email_set.mailtype = 1;
//	
//OPEN CUR_INWAERMX;
//FETCH CUR_INWAERMX INTO :s_set[i].mailID,
//	:s_set[i].mailuser,
//	:s_set[i].mailaddress,
//	:s_set[i].mailpsw,
//	:s_set[i].popset,
//	:s_set[i].smtpset,
//	:s_set[i].Othermsg,
//	:s_set[i].viewtype,
//	:s_set[i].popport,
//	:s_set[i].smtpport,
//	:s_set[i].ifnodelmsg,
//	:s_set[i].gap;
//s_set[i].mailpsw = Trim(f_psw_bczh(s_set[i].mailpsw,1,sys_power_key))
//DO WHILE sqlca.SQLCode = 0
//	i++
//	FETCH CUR_INWAERMX INTO :s_set[i].mailID,
//		:s_set[i].mailuser,
//		:s_set[i].mailaddress,
//		:s_set[i].mailpsw,
//		:s_set[i].popset,
//		:s_set[i].smtpset,
//		:s_set[i].Othermsg,
//		:s_set[i].viewtype,
//		:s_set[i].popport,
//		:s_set[i].smtpport,
//		:s_set[i].ifnodelmsg,
//		:s_set[i].gap;
//	s_set[i].mailpsw = Trim(f_psw_bczh(s_set[i].mailpsw,1,sys_power_key))
//LOOP
//CLOSE CUR_INWAERMX;
//
////检验明细是否读入完整
//SELECT COUNT(*) INTO :NO_MXCHECK
//	FROM u_email_set
//	WHERE  ( u_email_set.empid = :sys_empid AND  u_email_set.mailtype = 0)
//	OR  u_email_set.mailtype = 1;
//IF sqlca.SQLCode <> 0 THEN
//	rslt = 0
//	arG_MSG = "查询操作失败,邮箱数量"
//	GOTO ext
//END IF
//
//IF i <> (NO_MXCHECK+1) THEN
//	rslt = 0
//	arG_MSG = "查询操作失败,邮箱数量"
//	GOTO ext
//END IF
//
//Long hand,li_handl,li_handl_son
//TreeViewItem ll_tvi
//String ls_mailuser
//Long tvi_hdl = 0
//Long ll_count1
//datastore ds_notread
//ds_notread = CREATE datastore
//ds_notread.DataObject = 'dw_email_view_rev_notread'
//ds_notread.SetTransObject(sqlca)
//
//datastore ds_temp
//ds_temp = CREATE datastore
//
//DO UNTIL tv_1.FindItem(RootTreeItem!, 0) = -1
//	tv_1.DeleteItem(tvi_hdl)
//LOOP
//
//
//hand = tv_1.InsertItemLast(0,'全部邮箱',1) 
//
//// 添加内部消息
//s_email_set s_tmp
//li_handl = tv_1.InsertItemLast(hand,'内部消息',8)
//IF tv_1.GetItem ( li_handl, ll_tvi) = 1 THEN
//	s_tmp.mailid = -1
//	s_tmp.viewtype = 0
//	ll_tvi.Data  = s_tmp
//	tv_1.SetItem( li_handl, ll_tvi )
//END IF
//li_handl_son =  tv_1.InsertItemLast(li_handl,'收件箱',7)
//IF tv_1.GetItem ( li_handl_son, ll_tvi) = 1 THEN
//	s_tmp.mailid = -1
//	s_tmp.viewtype = 1
//	ll_tvi.Data  = s_tmp
//	SELECT count(0) INTO :ll_count
//    	FROM sys_admsgmx  
//   	WHERE ( sys_admsgmx.dealflag = :ls_dealflag OR  
//         		:ls_dealflag = -1 ) AND  
//         sys_admsgmx.empid = :sys_empid;
//	if sqlca.sqlcode <> 0 then
//		rslt = 0
//		arg_msg = '数据库连接失败,获取内部消息收件箱数量失败'
//		goto ext
//	end if
//	ll_tvi.label = '收件箱(' + string(ll_count) + ')'
//	tv_1.SetItem( li_handl_son,ll_tvi )
//END IF
//li_handl_son =  tv_1.InsertItemLast(li_handl,'发件箱',8)
//IF tv_1.GetItem ( li_handl_son, ll_tvi) = 1 THEN
//	s_tmp.mailid = -1
//	s_tmp.viewtype = 2
//	ll_tvi.Data  = s_tmp
//	DateTime first_date, end_date
//	first_date = DateTime(Date(em_1.Text), Time(0))
//	end_date = datetime(date(em_2.Text), Time('23:59:59'))
//	SELECT count(0) INTO :ll_count
//		FROM Sys_admsg
//		WHERE (Sys_admsg.sendempid = :sys_empid )  AND
//		( sys_admsg.senddt >= :first_date ) AND
//		( sys_admsg.senddt < :end_date );
//	if sqlca.sqlcode <> 0 then
//		rslt = 0
//		arg_msg = '数据库连接失败,获取内部消息发件箱数量失败'
//		goto ext
//	end if
//	ll_tvi.label = '发件箱(' + string(ll_count) + ')'
//	tv_1.SetItem( li_handl_son,ll_tvi )
//END IF
//tv_1.expanditem(li_handl)
/////////////////////////////////////////
//
//FOR i = 1 TO NO_MXCHECK
//	ls_mailuser = Trim(s_set[i].mailuser) + '<' +  Trim(s_set[i].mailAddress) + '>'
//	li_handl = tv_1.InsertItemLast(hand,ls_mailuser,2)
//	IF tv_1.GetItem ( li_handl, ll_tvi) = 1 THEN
//		ll_tvi.Label = ls_mailuser
//		ll_tvi.Data  = s_set[i]
//		tv_1.SetItem( li_handl, ll_tvi )
//	END IF
//	
//	li_handl_son =  tv_1.InsertItemLast(li_handl,'收件箱',3)
//	IF tv_1.GetItem ( li_handl_son, ll_tvi) = 1 THEN
//		
//		ds_temp.DataObject = 'dw_email_view_rev'
//		ds_temp.SetTransObject(sqlca)
//		ll_count = ds_temp.Retrieve(s_set[i].mailID)
//		ll_count1 = ds_notread.Retrieve(s_set[i].mailID)
//		
//		IF ll_count = 0 THEN
//			ll_tvi.Label = '收件箱'
//		ELSE
//			ll_tvi.Label = '收件箱(' + String(ll_count1) + '/' + String(ll_count)  + ')'
//		END IF
//		s_set[i].viewtype = 1
//		ll_tvi.Data  = s_set[i]
//		tv_1.SetItem( li_handl_son,ll_tvi )
//	END IF
//	
//	li_handl_son =  tv_1.InsertItemLast(li_handl,'发件箱',4)
//	IF tv_1.GetItem ( li_handl_son, ll_tvi) = 1 THEN
//		ds_temp.DataObject = 'dw_email_view_send'
//		ds_temp.SetTransObject(sqlca)
//		ll_count = ds_temp.Retrieve(s_set[i].mailID)
//		IF ll_count = 0 THEN
//			ll_tvi.Label = '发件箱'
//		ELSE
//			ll_tvi.Label = '发件箱(' + String(ll_count)  + ')'
//		END IF
//		s_set[i].viewtype = 2
//		ll_tvi.Data  = s_set[i]
//		tv_1.SetItem( li_handl_son, ll_tvi )
//	END IF
//	
//	li_handl_son =  tv_1.InsertItemLast(li_handl,'已发件箱',5)
//	IF tv_1.GetItem ( li_handl_son, ll_tvi) = 1 THEN
//		ds_temp.DataObject = 'dw_email_view_sent'
//		ds_temp.SetTransObject(sqlca)
//		ll_count = ds_temp.Retrieve(s_set[i].mailID)
//		IF ll_count = 0 THEN
//			ll_tvi.Label = '已发件箱'
//		ELSE
//			ll_tvi.Label = '已发件箱(' + String(ll_count)  + ')'
//		END IF
//		s_set[i].viewtype = 3
//		ll_tvi.Data  = s_set[i]
//		tv_1.SetItem( li_handl_son,ll_tvi )
//	END IF
//	
//	li_handl_son =  tv_1.InsertItemLast(li_handl,'废件箱',6)
//	IF tv_1.GetItem ( li_handl_son, ll_tvi) = 1 THEN
//		ds_temp.DataObject = 'dw_email_view_dust'
//		ds_temp.SetTransObject(sqlca)
//		ll_count = ds_temp.Retrieve(s_set[i].mailID)
//		IF ll_count = 0 THEN
//			ll_tvi.Label = '废件箱'
//		ELSE
//			ll_tvi.Label = '废件箱(' + String(ll_count)  + ')'
//		END IF
//		s_set[i].viewtype = 4
//		ll_tvi.Data  = s_set[i]
//		tv_1.SetItem( li_handl_son,ll_tvi )
//	END IF
//	
//	tv_1.ExpandItem(li_handl)
//NEXT
//tv_1.ExpandItem(hand)
//
//all_count = NO_MXCHECK
//
//IF all_count = 0 THEN
//	cb_rev.Enabled = FALSE
//	cb_send.Enabled = FALSE
//	cb_write.Enabled = FALSE
//	cb_back.Enabled = FALSE
//	cb_sendother.Enabled = FALSE
//	cb_del.Enabled = FALSE
//END IF
//
//ext:
RETURN rslt
//
//
//
//
//
//
//
//
//
end function

public subroutine wf_delfj ();String ls_pathname
Long li_count,i
ls_pathname = sys_cur_path + fjfilepathname+'\' + '*.*'
lb_1.Reset()
lb_1.DirList(ls_pathname, 0)

li_count = lb_1.TotalItems()
IF li_count > 0 THEN
	FOR i = li_count TO 1 STEP -1
		ls_pathname = sys_cur_path+fjfilepathname+'\' + lb_1.Text(i)
		IF FileExists(ls_pathname)	 THEN FileDelete(ls_pathname)
	NEXT
END IF


end subroutine

public function integer wf_revemail (s_email_set arg_set, ref string arg_msg);Long rslt = 1
//String tUID
//Long ll_count
//Long ll_mailcount
//Long ll_attcount
//Long i,j
//String ls_pathname
//String ls_popport
//Blob lb_fileblob,lb_null
//Long ll_cnt_lp = 0
//String ls_msg
//ls_popport = String(arg_set.popport,'###0')
//arg_msg = ''
//oleobject jmail
//oleobject mailmsg
//oleobject Attachments
//oleobject Attachment
//jmail = CREATE oleobject
//mailmsg = CREATE oleobject
//Attachments = CREATE oleobject
//Attachment = CREATE oleobject
//jmail.ConnectToNewObject("JMail.pop3")
//mailmsg.ConnectToNewObject("JMail.Message")
//Attachments.ConnectToNewObject("JMail.Attachments")
//Attachment.ConnectToNewObject("JMail.Attachment")
//jmail.TimeOut = 3600
//TRY
//jmail.Connect(arg_set.mailAddress,arg_set.mailpsw,arg_set.popset, ls_popport )
//CATCH ( oleruntimeerror exIdentifier1 )
//arg_msg = '连接邮箱失败,邮箱设置不正确或者没有连接网络'
//END TRY
//
//IF arg_msg <> '' THEN
//	GOTO ext2
//END IF
//
//ll_mailcount = jmail.Count
//
//SetNull(lb_null)
//
//String ls_body[],ls_htmlBody[]
//Blob ls_filedata[]
//s_email_rev s_rev
//
//IF ll_mailcount = 0 THEN GOTO ext2
//
//Open(w_sys_wait_jdt) //初始化进度条
//w_sys_wait_jdt.Show()
//w_sys_wait_jdt.wf_accepttol(ll_mailcount)
//
//FOR i = 1 TO ll_mailcount
//	ll_cnt_lp++
//	w_sys_wait_jdt.st_msg.Text = arg_set.mailuser + "<" + arg_set.mailAddress + ">"+ " 正在收取邮件(" + String(i) + "/" + String(ll_mailcount) + ")." //进度信息
//	w_sys_wait_jdt.wf_inc(ll_cnt_lp)
//	
//	rslt = 1
//	ll_count = 0
//	jmail.downloadsinglemessage(i)
//	tUID = jmail.GetMessageUID(i)
//	
//	SELECT count(*)
//		INTO :ll_count
//		FROM  u_email_rev
//		Where tUID =  :tUID and mailtype <> 2;
//	IF sqlca.SQLCode <> 0 THEN
//		ls_msg = '获取已收邮件信息失败'
//		rslt = 0
//		GOTO ext1
//	END IF
//	
//	IF ll_count > 0  THEN CONTINUE
//	
//	mailmsg = jmail.Messages[i]
//	
//	s_rev.mailAddress = arg_set.mailAddress
//	s_rev.Subject = mailmsg.Subject
//	s_rev.textBody = String(mailmsg.Body)
//	
//	s_rev.htmlBody  = Blob(mailmsg.htmlBody)
//	s_rev.senduser = mailmsg.fromname
//	s_rev.sendaddress  = mailmsg.FROM
//	s_rev.mailsize = mailmsg.size
//	s_rev.RevID = f_sys_scidentity(0,"u_email_rev","RevID",ls_msg,TRUE, sqlca) //数据commit事务)
//	IF s_rev.RevID <= 0 THEN
//		rslt = 0
//		GOTO ext1
//	END IF
//	
//	INSERT INTO u_email_rev(
//		RevID,
//		mailID,
//		mailaddress,
//		mailtype,
//		Subject,
//		senduser,
//		sendaddress,
//		revdate,
//		mailSize,
//		textBody,
//		tUID)
//		VALUES
//		( :s_rev.RevID,
//		:arg_set.mailid,
//		:s_rev.mailaddress,
//		0,
//		:s_rev.Subject,
//		:s_rev.senduser,
//		:s_rev.sendaddress,
//		getdate(),
//		:s_rev.mailSize,
//		:s_rev.textBody,
//		:tUID);
//	IF sqlca.SQLCode <> 0 THEN
//		ls_msg = '向数据库插入已收邮件信息失败'
//		rslt = 0
//		GOTO ext1
//	ELSE
//		COMMIT;
//	END IF
//	
//	IF   String(s_rev.htmlBody)  <>   ""   THEN
//		UPDATEBLOB u_email_rev
//		Set htmltext = :s_rev.htmlBody
//		Where RevID = :s_rev.RevID;
//		IF sqlca.SQLCode <> 0 THEN
//			ls_msg = '向数据库插入已收邮件信息失败'
//			rslt = 0
//			GOTO ext1
//		END IF
//	END IF
//	
//	Attachments = mailmsg.Attachments
//	IF Attachments.Count  = 0 THEN goto ext1
//	s_email_fj s_fj
//	
//	FOR j = 0 TO Attachments.Count - 1
//		Attachment = Attachments.Item[j]
//		s_fj.fjid[j+1]  = f_sys_scidentity(0,"u_email_fj","fjid",ls_msg,TRUE, sqlca) //数据commit事务)
//		IF s_fj.fjid[j+1] <= 0 THEN
//			rslt = 0
//			GOTO ext1
//		END IF
//		s_fj.Filename[j+1] = Attachment.Name
//		s_fj.filesize[j+1] = Attachment.size
//		s_fj.FileType[j+1] = Attachment.contenttype
//		INSERT INTO u_email_fj
//			(	fjid,
//			fjtype,
//			Relid,
//			filename,
//			filesize,
//			filetype
//			) VALUES
//			( :s_fj.fjid[j+1],
//			1,
//			:s_rev.RevID,
//			:s_fj.filename[j+1],
//			:s_fj.filesize[j+1],
//			:s_fj.filetype[j+1]
//			);
//		IF sqlca.SQLCode <> 0 THEN
//			ls_msg = '向数据库插入已收邮件附件信息失败'
//			rslt = 0
//			GOTO ext1
//		ELSE
//			COMMIT;
//		END IF
//		
//		ls_pathname = sys_cur_path+fjfilepathname+'\'+s_fj.Filename[j+1]
//		IF FileExists(ls_pathname)	 THEN FileDelete(ls_pathname)
//		Attachment.savetofile(ls_pathname )
//		
//		lb_fileblob = lb_null
//		
//		IF f_filetoblob(ls_pathname,lb_fileblob,ls_msg) = 0 THEN
//			rslt = 0
//			GOTO ext1
//		END IF
//		
//		IF  String(lb_fileblob)  <>   ""   THEN
//			UPDATEBLOB u_email_fj
//			Set fileblob = :lb_fileblob
//			Where fjid = :s_fj.fjid[j+1];
//			IF sqlca.SQLCode <> 0 THEN
//				ls_msg = '向数据库插入已收邮件附件信息失败'
//				rslt = 0
//				GOTO ext1
//			ELSE
//				COMMIT;
//			END IF
//		END IF
//		
//		FileDelete(ls_pathname)
//	NEXT
//	
//	ext1:
//	IF rslt = 1 THEN
//		COMMIT;
//		if arg_set.ifnodelmsg = 0 then
//			jmail.deletesinglemessage(i)
//		end if
//	ELSEIF rslt = 0 THEN
//		ROLLBACK;
//		arg_msg = arg_msg + arg_set.mailuser + "<" + arg_set.mailAddress + ">第" + String(i) + '条,' + ls_msg + '~n'
//	END IF
//	
//	
//NEXT	
//
//
//ext2:
//
//IF IsValid(w_sys_wait_jdt) THEN
//	Close(w_sys_wait_jdt)
//END IF
//
//
//IF arg_msg <> '' THEN
//	rslt = 0
//	jmail.Disconnect()
//ELSE
//	rslt = 1
//END IF
//
//DESTROY jmail
RETURN rslt
//
//
//
//
//
//
//
//
//
//
//
//
end function

public function integer wf_retrievemx (long arg_id, integer arg_fjtype, string arg_address, ref string arg_msg);Int rslt = 1
//String ls_text,ls_html
//Blob lb_html
//String ls_address
//long ll_num, ll_size
//blob lb_temp
/////清空 
//
//IF FileExists(Pathname)	 THEN FileDelete(Pathname)
//have_fj = FALSE
//have_text = FALSE
//have_html = FALSE
//
//
//wf_retreve_inout(arg_address)
//wf_retreve_rep(arg_id,arg_fjtype)
//ole_1.object.navigate('about:blank')
//CHOOSE CASE arg_fjtype
//	CASE 1
//		
//		cb_back.Enabled = TRUE
//		cb_sendother.Enabled = TRUE
//		
//		SELECT u_email_rev.textBody
//			INTO :ls_text
//			FROM u_email_rev,
//			u_email_set
//			WHERE ( u_email_rev.mailID = u_email_set.mailID )  AND
//			( u_email_rev.revid	 = :arg_id ) ;
//		IF sqlca.SQLCode <> 0 THEN
//			arg_msg = '读取已收邮件失败'+sqlca.SQLErrText
//			rslt = 0
//			GOTO ext
//		END IF
//		
//		
//		IF IsNull(ls_text) OR len(trim(ls_text)) <= 0 THEN
//			
//		ELSE
////			tab_1.tabpage_1.mle_text.Text = ls_text
//			have_text = TRUE
//		END IF
//		
//		////
//		select datalength(htmltext) INTO :ll_size
//		from u_email_rev
//		where ( u_email_rev.revid	 = :arg_id );
//		if sqlca.sqlcode <> 0 then
//			rslt = 0
//			arg_msg = '获取网页正文大小失败>>'+sqlca.SQLErrText
//			GOTO ext
//		END IF
//		
//		if ll_size > 2048 then
//			SELECTBLOB htmltext
//			INTO :lb_html
//			FROM u_email_rev
//			Where ( u_email_rev.revid	 = :arg_id ) ;
//			IF sqlca.SQLCode <> 0 THEN
//				rslt = 0
//				arg_msg = '下载网页正文失败>>'+sqlca.SQLErrText
//				GOTO ext
//			END IF
//		else
//			SELECT htmltext
//			INTO :ls_html
//			FROM u_email_rev
//			Where ( u_email_rev.revid	 = :arg_id ) ;
//			IF sqlca.SQLCode <> 0 THEN
//				rslt = 0
//				arg_msg = '下载网页正文失败>>'+sqlca.SQLErrText
//				GOTO ext
//			END IF
//			lb_html = blob(ls_html)
//		end if
//		
//		IF IsNull(lb_html) OR len(trim(string(lb_html))) <= 0 THEN
//			
//		ELSE
//			have_html = TRUE
//			////			
////			
////			tab_1.tabpage_2.ole_html.Object.navigate('file:///' + Pathname)
//		END IF
//		
//		if have_html then
//			IF f_blobtofile(Pathname,lb_html,arg_msg) = 0 THEN
//				rslt = 0
//				GOTO ext
//			END IF
//			DO WHILE pos(Pathname,'\',1) > 0
//				Pathname = Replace(Pathname,pos(Pathname,'\',1),1,'/')
//			LOOP
//			ole_1.Object.navigate('file:///' + Pathname)
//		elseif have_text then	
//			lb_temp = blob(f_texttohtml(ls_text))
//			IF f_blobtofile(Pathname,lb_temp,arg_msg) = 0 THEN
//				rslt = 0
//				GOTO ext
//			END IF
//			DO WHILE pos(Pathname,'\',1) > 0
//				Pathname = Replace(Pathname,pos(Pathname,'\',1),1,'/')
//			LOOP
//			ole_1.object.navigate('file:///' + Pathname)
//		end if
//		
//	CASE 0
//		
//		dw_mail.Reset()
//		cb_back.Enabled = FALSE
//		cb_sendother.Enabled = true
//		SELECT u_email_send.textBody
//			INTO :ls_text
//			FROM u_email_send,
//			u_email_set
//			WHERE ( u_email_send.mailID = u_email_set.mailID )  AND
//			( u_email_send.sendid	 = :arg_id ) ;
//		IF sqlca.SQLCode <> 0 THEN
//			arg_msg = '读取已收邮件失败'+sqlca.SQLErrText
//			rslt = 0
//			GOTO ext
//		END IF
//		IF IsNull(ls_text) OR len(trim(ls_text)) <= 0 THEN
//			
//		ELSE
////			tab_1.tabpage_1.mle_text.Text = ls_text
//			have_text = TRUE
//		END IF
//		
//		////
//		select datalength(htmltext) INTO :ll_size
//		from u_email_send
//		where ( u_email_send.sendid	 = :arg_id );
//		if sqlca.sqlcode <> 0 then
//			rslt = 0
//			arg_msg = '获取网页正文大小失败>>'+sqlca.SQLErrText
//			GOTO ext
//		END IF
//		if ll_size > 2048 then
//			SELECTBLOB htmltext
//			INTO :lb_html
//			FROM u_email_send
//			Where ( u_email_send.sendid	 = :arg_id ) ;
//			IF sqlca.SQLCode <> 0 THEN
//				rslt = 0
//				arg_msg = '下载网页正文失败>>'+sqlca.SQLErrText
//				GOTO ext
//			END IF
//		else
//			SELECT htmltext
//			INTO :ls_html
//			FROM u_email_send
//			Where ( u_email_send.sendid	 = :arg_id ) ;
//			IF sqlca.SQLCode <> 0 THEN
//				rslt = 0
//				arg_msg = '下载网页正文失败>>'+sqlca.SQLErrText
//				GOTO ext
//			END IF
//			lb_html = blob(ls_html)
//		end if
//		
//		IF IsNull(lb_html) OR len(trim(string(lb_html))) <= 0 THEN
//			
//		ELSE
//			have_html = TRUE
//			////
//			
////			
////			tab_1.tabpage_2.ole_html.Object.navigate('file:///' + Pathname)
//		END IF
//		
//		///
//		if have_html then
//			IF f_blobtofile(Pathname,lb_html,arg_msg) = 0 THEN
//				rslt = 0
//				GOTO ext
//			END IF
//			DO WHILE pos(Pathname,'\',1) > 0
//				Pathname = Replace(Pathname,pos(Pathname,'\',1),1,'/')
//			LOOP
//			ole_1.object.navigate('file:///' + Pathname)
//		elseif have_text then
//			lb_temp = blob(f_texttohtml(ls_text))
//			IF f_blobtofile(Pathname,lb_temp,arg_msg) = 0 THEN
//				rslt = 0
//				GOTO ext
//			DO WHILE pos(Pathname,'\',1) > 0
//				Pathname = Replace(Pathname,pos(Pathname,'\',1),1,'/')
//			LOOP
//			END IF
//			ole_1.object.navigate('file:///' + Pathname)
//		end if
//		
//END CHOOSE
//
////附件列表
//
//Long count,ls_i
//listviewitem l_lvi
//s_email_lvfj s_lvfj[]
//
//SELECT count(*)
//	INTO :count
//	FROM u_email_fj
//	Where ( u_email_fj.relid = :arg_id AND u_email_fj.fjtype = :arg_fjtype );
//IF count > 0 THEN
//	lv_fj.Visible = TRUE
//	have_fj = TRUE
//ELSE
//	lv_fj.Visible = FALSE
//	have_fj = FALSE
//	GOTO ext
//END IF
//
//DECLARE fj_cur CURSOR FOR
//	SELECT fjid,
//	filename,
//	filesize,
//	filetype
//	FROM u_email_fj
//	Where ( u_email_fj.relid = :arg_id AND u_email_fj.fjtype = :arg_fjtype );
//OPEN fj_cur;
//
//count = 1
//FETCH fj_cur INTO :s_lvfj[count].fjid,&
//	:s_lvfj[count].filename,&
//	:s_lvfj[count].filesize,&
//	:s_lvfj[count].FileType;
//DO WHILE sqlca.SQLCode = 0
//	count++
//	FETCH fj_cur INTO :s_lvfj[count].fjid,&
//		:s_lvfj[count].filename,&
//		:s_lvfj[count].filesize,&
//		:s_lvfj[count].FileType;
//LOOP
//
//count = count - 1
//CLOSE fj_cur;
//
//
//FOR ls_i = 1 TO count
//	l_lvi.PictureIndex = 1
//	l_lvi.Label = s_lvfj[ls_i].Filename
//	l_lvi.Data = s_lvfj[ls_i]
//	lv_fj.InsertItem(ls_i,l_lvi)
//NEXT
//
//
//
//ext:
//
////IF have_html THEN
////	tab_1.SelectTab (2)
////ELSE
////	tab_1.SelectTab (1)
////END IF
////
////tab_1.tabpage_1.Visible = have_text
////tab_1.tabpage_1.mle_text.Visible = have_text
////tab_1.tabpage_2.Visible = have_html
////tab_1.tabpage_2.ole_html.Visible = have_html
//
//lv_fj.Visible =  have_fj
//
//this.triggerevent('resize')
//
//
RETURN rslt
//
end function

public subroutine wf_retreve_inout (string arg_address);//IF have_inout and arg_address <> '' THEN
//	dw_mail.SetRedraw (FALSE)
//	dw_mail.Retrieve(cur_set.mailid,arg_address)
//	dw_mail.SetRedraw (TRUE)
//	dw_fj.SetRedraw (FALSE)
//	dw_fj.Retrieve(cur_set.mailid,arg_address)
//	dw_fj.SetRedraw (TRUE)
//ELSE
//	dw_mail.Reset()
//	dw_fj.Reset()
//END IF
end subroutine

public subroutine wf_retreve_rep (long arg_id, integer arg_fjtype);//IF arg_fjtype = 1 THEN
//	IF have_rep THEN
//		p_resize1.TriggerEvent(Clicked!)
//	END IF
//	p_resize1.Enabled = FALSE
//	dw_rep.Reset()
//ELSE
//	p_resize1.Enabled = TRUE
//	dw_rep.SetRedraw (FALSE)
//	dw_rep.Retrieve(arg_id)
//	dw_rep.SetRedraw (TRUE)
//END IF


end subroutine

public subroutine pf_retrievetree (long arg_handl, integer arg_flag);//s_email_set temp_set
//Long ll_handl,ll_count,ll_count1
//long mailid
//string ls_title
//treeviewitem tvi
//datastore ds_list
// 
//ds_list = create datastore
//ll_handl = arg_handl
//ll_handl = tv_1.FindItem(ChildTreeItem!,ll_handl)
// 
//DO WHILE ll_handl > 0
//	tv_1.GetItem(ll_handl,tvi)
//	temp_set = tvi.Data
//	
//	IF (arg_flag = -1 OR temp_set.mailid = cur_set.mailid) and (cur_set.mailid > 0) THEN
//		
//		CHOOSE CASE temp_set.viewtype
//			CASE 1
//				
//				ds_list.DataObject = 'dw_email_view_rev'
//				ds_list.SetTransObject(sqlca)
//				ll_count = ds_list.Retrieve(temp_set.mailid)
//				
//				datastore ds_notread
//				ds_notread = CREATE datastore
//				ds_notread.DataObject = 'dw_email_view_rev_notread'
//				ds_notread.SetTransObject(sqlca)
//				ll_count1 = ds_notread.Retrieve(temp_set.mailid)
//				
//				IF ll_count > 0 THEN
//					ls_title = '收件箱(' + String(ll_count1) + '/' + String(ll_count)  + ')'
//				ELSE
//					ls_title = '收件箱'
//				END IF
//			CASE 2
//				ds_list.DataObject = 'dw_email_view_send' 
//				ds_list.SetTransObject(sqlca)
//				ll_count = ds_list.Retrieve(temp_set.mailid)
//				IF ll_count > 0 THEN
//					ls_title = '发件箱(' + String(ll_count) + ')'
//				ELSE
//					ls_title = '发件箱'
//				END IF
//			CASE 3
//				ds_list.DataObject = 'dw_email_view_sent' 
//				ds_list.SetTransObject(sqlca)
//				ll_count = ds_list.Retrieve(temp_set.mailid)
//				IF ll_count > 0 THEN
//					ls_title = '已发件箱(' + String(ll_count) + ')'
//				ELSE
//					ls_title = '已发件箱'
//				END IF
//			CASE 4
//				ds_list.DataObject = 'dw_email_view_dust' 
//				ds_list.SetTransObject(sqlca)
//				ll_count = ds_list.Retrieve(temp_set.mailid)
//				IF ll_count > 0 THEN
//					ls_title = '废件箱(' + String(ll_count) + ')'
//				ELSE
//					ls_title = '废件箱'
//				END IF
//			CASE ELSE
//				cur_address = ''
//		END CHOOSE
//		
//		IF temp_set.viewtype > 0 THEN
//			tvi.Label = ls_title
//			tv_1.SetItem(ll_handl, tvi)
//		END IF
//	END IF 
//	pf_retrievetree(ll_handl,arg_flag)
//	ll_handl = tv_1.FindItem(NextTreeItem!,ll_handl)
//LOOP
//
//
//
end subroutine

public subroutine wf_retrieve ();s_tv_data1 tv_data
string ls_msg

if wf_tv_getcurrent() <= 0 then
	// DONE:不显示列表与内容
	wf_ui_reflash()
	return
end if
tv_data = wf_tv_getdata(wf_tv_getcurrent())

if tv_data.a_string = C_innerrev then
	// DONE: 内部消息收件箱
	wf_dw_retrieve_innermsg_rev()
elseif tv_data.a_string = C_innersend then
	// DONE: 内部消息发件箱
	wf_dw_retrieve_innermsg_send()
elseif tv_data.a_string = C_mailbox then
	// DONE: 邮箱
	long ll_mailid, ll_boxid
	ll_mailid = tv_data.a_long
	ll_boxid = tv_data.relid
	wf_dw_retrieve_mailmsg(ll_mailid, ll_boxid,tv_data.b_string)
else
	dw_list.dataobject = ''
end if
	wf_ui_reflash()


//long ll_count,ll_count1
//string ls_title
//
//			st_3.visible = false
//			em_1.visible = false
//			pb_em1.visible = false
//			st_4.visible = false
//			em_2.visible = false
//			pb_em2.visible = false
//			pb_2.visible = false
//			p_1.visible = false
//			st_refresh.visible = false
//
//have_user = false
//
//// 内部消息
//if cur_set.mailid = -1 then
//	CHOOSE CASE cur_set.viewtype
//		CASE 1
//			dw_list.DataObject = 'dw_deal_admsg_1_copy'
//			dw_list.settransobject(sqlca)
//			ll_count = dw_list.REtrieve(sys_empid, ls_dealflag)
//			dw_list.Title = '收件箱(' + string(ll_count) + ')'
//			ls_title = dw_list.Title
//		CASE 2
//			st_3.visible = true
//			em_1.visible = true
//			pb_em1.visible = true
//			st_4.visible = true
//			em_2.visible = true
//			pb_em2.visible = true
//			pb_2.visible = true
//			p_1.visible = true
//			st_refresh.visible = true
//			
//			dw_list.DataObject = 'dw_hismsg_copy'
//			dw_list.settransobject(sqlca)
//			DateTime first_date, end_date
//			first_date = DateTime(Date(em_1.Text), Time(0))
//			end_date = datetime(date(em_2.Text), Time('23:59:59'))
//			ll_count = dw_list.retrieve(sys_empid,first_date, end_date)
//			dw_list.Title = '发件箱(' + string(ll_count) + ')'
//			ls_title = dw_list.Title
//		CASE ELSE
//	end CHOOSE
//	if cur_set.viewtype > 0 then
//		l_tvi.Label = ls_title
//		tv_1.SetItem(cur_hand, l_tvi)
//	end if
//	this.triggerevent('resize')
//	return
//end if
////////////////////////////////////////////
//
//CHOOSE CASE cur_set.viewtype
//	CASE 1
//		dw_list.DataObject = 'dw_email_view_rev'
//		dw_list.Title = '收件箱'
//		dw_list.SetTransObject(sqlca)
//		ll_count = dw_list.Retrieve(cur_set.mailid)
//		
//		datastore ds_notread
//		ds_notread = CREATE datastore
//		ds_notread.DataObject = 'dw_email_view_rev_notread'
//		ds_notread.SetTransObject(sqlca)
//		ll_count1 = ds_notread.Retrieve(cur_set.mailid)
//		
//		IF ll_count > 0 THEN
//			ls_title = '收件箱(' + String(ll_count1) + '/' + String(ll_count)  + ')'
//		ELSE
//			ls_title = '收件箱'
//		END IF
//	CASE 2
//		dw_list.DataObject = 'dw_email_view_send'
//		dw_list.Title = '发件箱'
//		dw_list.SetTransObject(sqlca)
//		ll_count = dw_list.Retrieve(cur_set.mailid)
//		IF ll_count > 0 THEN
//			ls_title = '发件箱(' + String(ll_count) + ')'
//		ELSE
//			ls_title = '发件箱'
//		END IF
//	CASE 3
//		dw_list.DataObject = 'dw_email_view_sent'
//		dw_list.Title = '已发件箱'
//		dw_list.SetTransObject(sqlca)
//		ll_count = dw_list.Retrieve(cur_set.mailid)
//		IF ll_count > 0 THEN
//			ls_title = '已发件箱(' + String(ll_count) + ')'
//		ELSE
//			ls_title = '已发件箱'
//		END IF
//	CASE 4
//		dw_list.DataObject = 'dw_email_view_dust'
//		dw_list.Title = '废件箱'
//		dw_list.SetTransObject(sqlca)
//		ll_count = dw_list.Retrieve(cur_set.mailid)
//		IF ll_count > 0 THEN
//			ls_title = '废件箱(' + String(ll_count) + ')'
//		ELSE
//			ls_title = '废件箱'
//		END IF
//	CASE ELSE
//		cur_address = ''
//END CHOOSE
//
//IF cur_set.viewtype > 0 THEN
//	l_tvi.Label = ls_title
//	tv_1.SetItem(cur_hand, l_tvi)
//END IF
//
//	this.triggerevent('resize')
//
end subroutine

public subroutine wf_retrievetree (integer arg_flag);//
//long ll_handl
//ll_handl = tv_1.finditem(RootTreeItem!,0)
//if ll_handl > 0 then  pf_retrievetree(ll_handl,arg_flag) 
//if (arg_flag = -1) and (cur_set.mailid = -1) then wf_retrieve()
end subroutine

public function integer wf_import_eml (string arg_file, ref string arg_msg);Integer rslt = 1
Blob lb_file

uo_mimeproxyfactory ll_factory
ll_factory = Create uo_mimeproxyfactory

s_tv_data1 tv_data
tv_data = wf_tv_getdata(wf_tv_getCurrent())

IF tv_data.a_string <> C_mailbox THEN
	rslt = 0
	arg_msg = '请选择邮箱'
	GOTO ext
END IF

//arg_file="C:\Documents and Settings\Administrator\桌面\11.eml"
IF f_filetoblob(arg_file, lb_file, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

oleobject ll_proxy
IF ll_factory.getproxy(ll_proxy, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

oleobject ll_message
ll_message = ll_proxy.InitFromBlob(lb_file, Ref arg_msg)
IF IsNull(ll_message) THEN
	rslt = 0
	GOTO ext
END IF


//cur_set.mailid // 账号
//cur_set.viewtype // 1:收件2:发件3:已发4:废件
// 保存在收件箱

Long mailid
mailid = tv_data.a_long
s_email_set s_set
IF wf_ds_get_mail_set(mailid, s_set, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF


s_email_send s_send
s_send.sendid = 0
s_send.mailid = mailid
s_send.boxid = tv_data.relid
s_send.mailAddress = s_set.mailAddress
s_send.Subject = ll_message.Subject
s_send.mailsize = ll_message.ContentLength
s_send.textbody = ll_message.Plain
s_send.htmlbody = ll_message.Html
s_send.orgdata = lb_file
s_send.senduser = ll_message.From
s_send.sendaddress = ll_message.FromEmail
//s_send.sendoption = 0
s_send.priority = 3
s_send.mailtype = '收件'
s_send.status = '未读'


Long ll_AttachmentsCOUNT, j
ll_AttachmentsCOUNT = ll_message.AttachmentsCount
s_email_lvfj s_fj[]

FOR j = 0 To ll_AttachmentsCOUNT - 1
	s_fj[j+1].Filename = ll_message.GetAttachmentName(j)
	s_fj[j+1].fileblob = ll_message.GetAttachment(j)
	s_fj[j+1].cid = ll_message.GetAttachmentContentID(j)
	s_fj[j+1].FileType = C_from_file // 附件类型
NEXT


IF mail.f_import_eml(s_send, s_fj, arg_msg) <> 1 THEN
	rslt = 0
	GOTO ext
END IF

//		s_email_rev s_rev
//		string tuid
//		datetime dt_rev
//		s_rev.mailAddress = cur_set.mailaddress
//		s_rev.Subject = ole_mime.Object.Subject
//		s_rev.textBody = ole_mime.Object.Plain
//		
//		s_rev.htmlBody  = Blob(ole_mime.Object.Html)
//		s_rev.senduser = ole_mime.object.From
//		s_rev.sendaddress  = ole_mime.Object.FromEmail
//		s_rev.mailsize = ole_mime.Object.ContentLength
//		tuid = ole_mime.object.MessageID
////		dt_rev = 
//		s_rev.RevID = f_sys_scidentity(0,"u_email_rev","RevID",arg_msg,False, sqlca) //数据commit事务)
//		IF s_rev.RevID <= 0 THEN
//			rollback;
//			rslt = 0
//			GOTO ext
//		END IF
//		INSERT INTO u_email_rev(
//			RevID,
//			mailID,
//			mailaddress,
//			mailtype,
//			Subject,
//			senduser,
//			sendaddress,
//			revdate,
//			mailSize,
//			textBody,
//			tUID)
//			VALUES
//			( :s_rev.RevID,
//			:cur_set.mailid,
//			:s_rev.mailaddress,
//			1, // 已读
//			:s_rev.Subject,
//			:s_rev.senduser,
//			:s_rev.sendaddress,
//			getdate(),
//			:s_rev.mailSize,
//			:s_rev.textBody,
//			:tUID);
//		IF sqlca.SQLCode <> 0 THEN
//			rollback;
//			arg_msg = '向数据库插入已收邮件信息失败'
//			rslt = 0
//			GOTO ext
//		ELSE
//			COMMIT;
//		END IF
//	
//		IF   len(lb_file)  > 0   THEN
//			UPDATEBLOB u_email_rev
//			Set orgData = :lb_file
//			Where RevID = :s_rev.RevID;
//			IF sqlca.SQLCode <> 0 THEN
//				arg_msg = '更新数据库已收邮件原始信息失败'
//				rslt = 0
//				GOTO ext
//			END IF
//		END IF
//	
//		IF   len(s_rev.htmlBody)  > 0   THEN
//			UPDATEBLOB u_email_rev
//			Set htmltext = :s_rev.htmlBody
//			Where RevID = :s_rev.RevID;
//			IF sqlca.SQLCode <> 0 THEN
//				arg_msg = '更新数据库已收邮件富文本信息失败'
//				rslt = 0
//				GOTO ext
//			END IF
//		END IF
//		
//		long ll_AttachmentsCOUNT, j
//		ll_AttachmentsCOUNT = ole_mime.object.AttachmentsCount
//		IF ll_AttachmentsCOUNT  = 0 THEN GOTO ext
//		s_email_fj s_fj
//		
//		FOR j = 0 TO ll_AttachmentsCOUNT - 1
//			s_fj.fjid[j+1]  = f_sys_scidentity(0,"u_email_fj","fjid",arg_msg,TRUE, sqlca) //数据commit事务)
//			IF s_fj.fjid[j+1] <= 0 THEN
//				rslt = 0
//				GOTO ext
//			END IF
//			blob lb_fileblob
//			s_fj.Filename[j+1] = ole_mime.object.GetAttachmentName(j)
//			lb_fileblob = ole_mime.object.GetAttachment(j)
//			s_fj.filesize[j+1] = len(lb_fileblob) // 附件大小
//			s_fj.FileType[j+1] = "" // 附件类型
//			INSERT INTO u_email_fj
//				(	fjid,
//				fjtype,
//				Relid,
//				filename,
//				filesize,
//				filetype
//				) VALUES
//				( :s_fj.fjid[j+1],
//				1,
//				:s_rev.RevID,
//				:s_fj.filename[j+1],
//				:s_fj.filesize[j+1],
//				:s_fj.filetype[j+1]
//				);
//			IF sqlca.SQLCode <> 0 THEN
//				rollback;
//				arg_msg = '向数据库插入已收邮件附件信息失败'
//				rslt = 0
//				GOTO ext
//			ELSE
//				COMMIT;
//			END IF
//			
//			IF  len(lb_fileblob)  > 0   THEN
//				UPDATEBLOB u_email_fj
//				Set fileblob = :lb_fileblob
//				Where fjid = :s_fj.fjid[j+1];
//				IF sqlca.SQLCode <> 0 THEN
//					arg_msg = '更新数据库已收邮件附件信息失败'
//					rslt = 0
//					GOTO ext
//				ELSE
//					COMMIT;
//				END IF
//			END IF
//			
//		NEXT


//goto ext
ext:
Destroy ll_factory
RETURN rslt

end function

public function integer days_in_month (integer month, integer year);//Most cases are straight forward in that there are a fixed number of 
//days in 11 of the 12 months.  February is, of course, the problem.
//In a leap year February has 29 days, otherwise 28.

Integer		li_DaysInMonth, li_Days[12] = {31,28,31,30,31,30,31,31,30,31,30,31}

// Get the number of days per month for a non leap year.
li_DaysInMonth = li_Days[Month]

// Check for a leap year.
If Month = 2 Then
	// If the year is a leap year, change the number of days.
	// Leap Year Calculation:
	//	Year divisible by 4, but not by 100, unless it is also divisible by 400
	If ( (Mod(Year,4) = 0 And Mod(Year,100) <> 0) Or (Mod(Year,400) = 0) ) Then
		li_DaysInMonth = 29
	End If
End If

//Return the number of days in the relevant month
Return li_DaysInMonth
end function

public subroutine wf_set_read (long row);//if row <= 0 OR row > dw_list.rowcount( ) then return
//long ll_fjtype, ll_id
//ll_fjtype = dw_list.Object.fjtype[row]
//ll_id = dw_list.Object.id[row]
//
//if ll_fjtype = 1 and dw_list.dataobject = 'dw_email_view_rev' then
//	if dw_list.Object.mailtype[row] = 1 then return
//	update u_email_rev set mailtype = 1 where revid = :ll_id;
//	if sqlca.sqlcode <> 0 then
//		return
//	end if
//	commit;
//	dw_list.Object.mailtype[row] = 1
//	if dw_list.isselected(row) then
//		dw_list.object.filename[row] = 'graphics\read_select.bmp'
//	else
//		dw_list.object.filename[row] = 'graphics\read.bmp'
//	end if
//	dw_list.accepttext( )
//end if
end subroutine

public subroutine wf_set_unread (long row);//if row <= 0 OR row > dw_list.rowcount( ) then return
//long ll_fjtype, ll_id
//ll_fjtype = dw_list.Object.fjtype[row]
//ll_id = dw_list.Object.id[row]
//
//if ll_fjtype = 1 and dw_list.dataobject = 'dw_email_view_rev' then
//	if dw_list.Object.mailtype[row] = 0 then return
//	update u_email_rev set mailtype = 0 where revid = :ll_id;
//	if sqlca.sqlcode <> 0 then
//		return
//	end if
//	commit;
//	dw_list.Object.mailtype[row] = 0
//	if dw_list.isselected(row) then
//		dw_list.object.filename[row] = 'graphics\unread_select.bmp'
//	else
//		dw_list.object.filename[row] = 'graphics\unread.bmp'
//	end if
//	dw_list.accepttext( )
//end if
end subroutine

public function integer wf_tv_build_tree (ref string arg_msg);//uo_kq.settext('email','wf_tv_build_tree')
Int rslt = 1
Long Handle, handle1, handle2
s_tv_data1 tv_data
uo_ljmail_box uo_box
uo_box = Create uo_ljmail_box

IF tv_1.FindItem(RootTreeItem!, 0) <> -1 THEN
	rslt = 0
	arg_msg = 'treeView不能为空'
	GOTO ext
END IF
//uo_kq.settext('email','FindItem')
// 根
tv_data.relid = -1
tv_data.a_string = C_root
Handle = wf_tv_insert(0, '所有邮箱', 1, tv_data)
tv_root = Handle
//uo_kq.settext('email','根')

// 内部消息
tv_data.relid = -1
tv_data.a_string = C_innerroot
handle1 = wf_tv_insert(Handle, '内部消息', 8, tv_data)
//uo_kq.settext('email','内部消息')
// 内部消息收件箱
tv_data.relid = -1
tv_data.a_string = C_innerrev
ins_innerrevhandle = wf_tv_insert(handle1, '收件箱', 7, tv_data)
//uo_kq.settext('email','内部消息收件箱')
// 内部消息发件箱
tv_data.relid = -1
tv_data.a_string = C_innersend
wf_tv_insert(handle1, '发件箱', 8, tv_data)
//uo_kq.settext('email','内部消息发件箱')
// LE
tv_data.relid = -1
tv_data.a_string = C_leroot
handle1 = wf_tv_insert(Handle, '供应链邮件', 2, tv_data)
//uo_kq.settext('email','LE')
// LEBOX
IF uo_box.uf_initbox(sys_empid, arg_msg, True) <> 1 THEN
	MessageBox('错误', arg_msg)
END IF
wf_tv_insertlebox(handle1, 0)

//uo_kq.settext('email','LEBOX')
// 插入账号
wf_tv_insertallacount(Handle)

//uo_kq.settext('email','插入账号')

// 短信
tv_data.relid = -1
tv_data.a_string = C_smsroot
handle2 = wf_tv_insert(Handle, '短信', 8, tv_data)
//uo_kq.settext('email','短信')
// 短信发件箱
tv_data.relid = -1
tv_data.a_string = C_smssend
wf_tv_insert(handle2, '发件箱', 8, tv_data)
//uo_kq.settext('email','短信发件箱')
tv_1.ExpandItem(Handle)
//tv_1.expandall(handle)
ext:
Destroy uo_box
RETURN rslt

end function

public function long wf_tv_insert (long arg_handle, string arg_label, long arg_picindex, any arg_data);// 插入树的项
Long Handle

TreeViewItem tvi

Handle = tv_1.InsertItemLast(arg_handle, arg_label, arg_picindex)
IF Handle > 0 THEN
	IF tv_1.GetItem(Handle, tvi) = 1 THEN
		tvi.Data = arg_data
		tv_1.SetItem(Handle, tvi)
	END IF
END IF

RETURN Handle

end function

public subroutine wf_tv_insertallacount (long handle);// 添加帐号

s_tv_data1 tv_data
long handle1
s_email_set l_s_set[]
string ls_msg
long i

wf_ds_getmailset(l_s_set, ls_msg)

for i = 1 to upperbound(l_s_set)
	tv_data.relid = l_s_set[i].mailid
	tv_data.a_string = C_mailacount
	tv_data.b_string = trim(l_s_set[i].mailuser) + '<' + trim(l_s_set[i].mailaddress) + '>'
	tv_data.c_string = trim(l_s_set[i].mailuser)
	tv_data.d_string = trim(l_s_set[i].mailaddress)
	handle1 = wf_tv_insert(handle, tv_data.b_string, 2, tv_data)

	wf_tv_insertallbox(handle1)
next


end subroutine

public subroutine wf_tv_insertallbox (long handle);// 插入邮箱树

s_tv_data1 tv_data
long ll_mailid, ll_parentid
long boxhandle
s_email_box s_box[]
string ls_msg
long i

tv_data = wf_tv_getdata(handle)
if tv_data.a_string = C_mailacount then
	ll_mailid = tv_data.relid
	ll_parentid = 0
elseif tv_data.a_string = C_mailbox then
	ll_mailid = tv_data.a_long
	ll_parentid = tv_data.relid
end if
wf_ds_getmailbox(ll_mailid, ll_parentid, s_box, ls_msg)

FOR i = 1 TO UPPERBOUND(s_box)
	tv_data.relid = s_box[i].boxid
	tv_data.a_string = C_mailbox
	tv_data.b_string = s_box[i].boxname
	tv_data.a_long = ll_mailid
	tv_data.b_long = s_box[i].isdefault
	long unread
	unread = wf_box_getunread(s_box[i].boxid)
	long totle
	totle = wf_box_gettotle(s_box[i].boxid)
	string label
	label = trim(s_box[i].boxname) + '(' + string(unread) + '/' + string(totle) + ')'
	if unread>0 and tv_data.b_string <> '收件箱'  and tv_data.b_string <> '发件箱' and tv_data.b_string <> '已发件箱' and tv_data.b_string <> '废件箱' then
		boxhandle = wf_tv_insert(handle, label,7, tv_data)
	else
	    boxhandle = wf_tv_insert(handle, label, s_box[i].picindex, tv_data)
    end if
	wf_tv_insertallbox(boxhandle)
NEXT

end subroutine

public function s_tv_data1 wf_tv_getdata (long handle);// 获取项数据
s_tv_data1 rslt
treeviewitem tvi
if tv_1.GetItem(handle, tvi) = 1 then
	rslt = tvi.data
end if

return rslt
end function

public function integer wf_ds_getmailset (ref s_email_set arg_set[], ref string arg_msg);Int rslt = 1
Long ll_mailid
String ls_mailuser, ls_mailaddress
s_email_set tmp_set[]
Long i = 0

Long emplist[],cnt
Long seeall = 0
IF uo_email_power.can_see_other(sys_msg_pow) THEN
	emplist[1]=-1
else
	emplist[1]=sys_empid
END IF
String mailidList = ''
	f_get_empson(sys_empid,Ref emplist)
	
String sqltxt
sqltxt = 'SELECT mailID '&
	+'      ,mailuser '&
	+'      ,mailaddress '&
	+'FROM u_email_set '&
	+'WHERE empid = ? or ?=-1 OR mailtype = 1 '
//查看下级的邮件2012-11-03
DECLARE  cur1  Dynamic  Cursor  FOR  sqlsa;
PREPARE  sqlsa  From :sqltxt Using Commit_Tran;

FOR cnt = 1 To UpperBound(emplist)
	OPEN  Dynamic cur1  Using  :emplist[cnt],:emplist[cnt];
	
	FETCH cur1 Into :ll_mailid, :ls_mailuser, :ls_mailaddress;
	DO WHILE Commit_Tran.SQLCode = 0
		IF Pos(mailidList,String(ll_mailid)) <= 0 THEN
			mailidList+= String(ll_mailid)+','
			i++
			tmp_set[i].mailid = ll_mailid
			tmp_set[i].mailuser = ls_mailuser
			tmp_set[i].mailAddress = ls_mailaddress
		END IF
		FETCH cur1 Into :ll_mailid, :ls_mailuser, :ls_mailaddress;
	LOOP
	CLOSE cur1;
NEXT
arg_set = tmp_set

RETURN rslt


end function

public function integer wf_ds_getmailbox (long arg_mailid, long arg_parentid, ref s_email_box arg_box[], ref string arg_msg);int rslt = 1
long boxid
string boxname
long isdefault
long mailid
string boxtype
long parentid
long picindex
s_email_box s_box[]
long i = 0

DECLARE cur1 CURSOR FOR SELECT boxid
      ,boxname
      ,isdefault
      ,mailid
      ,boxtype
      ,parentid
      ,picindex
  FROM u_email_box
WHERE mailid = :arg_mailid AND parentid = :arg_parentid using Commit_Tran;
OPEN cur1;
FETCH cur1 INTO :boxid, :boxname, :isdefault, :mailid, :boxtype, :parentid, :picindex;
DO WHILE Commit_Tran.sqlcode = 0
	i ++
	s_box[i].boxid = boxid
	s_box[i].boxname = boxname
	s_box[i].isdefault = isdefault
	s_box[i].mailid = mailid
	s_box[i].boxtype = boxtype
	s_box[i].parentid = parentid
	s_box[i].picindex = picindex
	FETCH cur1 INTO :boxid, :boxname, :isdefault, :mailid, :boxtype, :parentid, :picindex;
LOOP

CLOSE cur1;

arg_box = s_box

return rslt
end function

public function long wf_tv_getcurrent ();return tv_1.FindItem(CurrentTreeItem!, 0)
end function

public subroutine wf_tv_setcurrenttext (string arg_text);
long ll_curhandle
ll_curhandle = wf_tv_getcurrent()
if ll_curhandle > 0 then
	TreeViewItem tvi
	if tv_1.GetItem(ll_curhandle, tvi) = 1 then
		tvi.label = arg_text
		tv_1.SetItem(ll_curhandle, tvi)
	end if
end if

end subroutine

public subroutine wf_dw_rowfocuschanged_innermsg_rev ();
end subroutine

public subroutine wf_dw_rowfocuschanged_innermsg_send ();
end subroutine

public subroutine wf_dw_rowfocuschanged_mailmsg ();
end subroutine

public function long wf_tv_getacount (long arg_handle);s_tv_data1 tv_data

do
	if arg_handle <= 0 then
		return -1
	end if
	
	tv_data = wf_tv_getdata(arg_handle)
	if tv_data.a_string = C_mailacount then
		return arg_handle
	elseif tv_data.a_string = C_mailbox then
		arg_handle = tv_1.FindItem(ParentTreeItem!, arg_handle)
	else
		return -1
	end if
loop WHILE arg_handle > 0
return -1
end function

public subroutine wf_ui_reflash ();// DONE: 更新界面，更新按键可用，与日期可见

s_tv_data1 tv_data
tv_data = wf_tv_getdata(wf_tv_getcurrent())

IF tv_data.a_string = C_innersend THEN
	st_3.Visible = True
	em_1.Visible = True
	pb_em1.Visible = True
	st_4.Visible = True
	em_2.Visible = True
	pb_em2.Visible = True
	pb_2.Visible = True
	p_1.Visible = True
	st_refresh.Visible = True
ELSE
	st_3.Visible = False
	em_1.Visible = False
	pb_em1.Visible = False
	st_4.Visible = False
	em_2.Visible = False
	pb_em2.Visible = False
	pb_2.Visible = False
	p_1.Visible = False
	st_refresh.Visible = False
END IF

p_del.Visible = (tv_data.a_string = C_innerrev)
st_del.Visible = (tv_data.a_string = C_innerrev)
cbx_showmeredeal.Visible = (tv_data.a_string = C_innerrev)
cb_viewbill.Visible = (tv_data.a_string = C_innerrev)
cb_view_his.Visible = (tv_data.a_string = C_innerrev)

sle_find.Visible =(tv_data.a_string =C_mailacount or tv_data.a_string =C_mailbox )
cb_find.Visible =(tv_data.a_string =C_mailacount or tv_data.a_string =C_mailbox )

ddlb_1.visible =  (tv_data.a_string = C_smssend)
em_3.visible =  (tv_data.a_string = C_smssend)


end subroutine

public subroutine wf_dw_retrieve_innermsg_rev ();long ll_count
string ls_title
dw_list.Reset()
if dw_list.DataObject <> 'dw_deal_admsg_1_copy' then
	if dw_list.dataobject <> '' then
		dw_list.uf_save_profile_layout()	
	end if
	dw_list.DataObject = 'dw_deal_admsg_1_copy'
	wf_dw_readlayout()
	dw_list.settransobject(Commit_Tran)	
end if


ll_count = dw_list.REtrieve(sys_empid, ls_dealflag)
dw_list.Title = '收件箱(' + string(ll_count) + ')'
ls_title = dw_list.Title

wf_tv_setcurrenttext(ls_title)

end subroutine

public subroutine wf_dw_retrieve_innermsg_send ();long ll_count
string ls_title
dw_list.Reset()
if dw_list.dataobject <> 'dw_hismsg_copy' then
	if dw_list.dataobject <> '' then
		dw_list.uf_save_profile_layout()	
	end if
	dw_list.DataObject = 'dw_hismsg_copy'
	wf_dw_readlayout()
	dw_list.settransobject(Commit_Tran)
end if
DateTime first_date, end_date
first_date = DateTime(Date(em_1.Text), Time(0))
end_date = datetime(date(em_2.Text), Time('23:59:59'))
ll_count = dw_list.retrieve(sys_empid,first_date, end_date)
dw_list.Title = '发件箱(' + string(ll_count) + ')'
ls_title = dw_list.Title

wf_tv_setcurrenttext(ls_title)

end subroutine

public function integer wf_ds_get_mail_set (long arg_mailid, ref s_email_set arg_set, ref string arg_msg);int rslt = 1

SELECT mailuser, mailaddress
INTO :arg_set.mailuser, :arg_set.mailaddress
FROM u_email_set
WHERE mailID = :arg_mailid using Commit_Tran;
if Commit_Tran.sqlcode <> 0 then
	rslt = 0
	arg_msg = '查询帐号信息失败,' + Commit_Tran.sqlerrtext
	goto ext
end if

arg_set.mailid = arg_mailid

ext:
return rslt
end function

public function integer wf_ds_get_mail_box (long arg_boxid, ref s_email_box arg_box, ref string arg_msg);int rslt = 1

SELECT boxname
      ,isdefault
      ,mailid
      ,boxtype
      ,parentid
      ,picindex
		INTO :arg_box.boxname,
			:arg_box.isdefault,
			:arg_box.mailid,
			:arg_box.boxtype,
			:arg_box.parentid,
			:arg_box.picindex
  FROM u_email_box
  WHERE boxid = :arg_boxid using Commit_Tran;
if Commit_Tran.sqlcode <> 0 then
	rslt = 0
	arg_msg = '查询邮箱信息失败,' + Commit_Tran.sqlerrtext
	goto ext
end if

arg_box.boxid = arg_boxid

ext:
return rslt
end function

public function integer wf_ds_del_msg (long arg_id, ref string arg_msg);int rslt = 1

// 删除邮件
DELETE FROM u_email_msg WHERE ID = :arg_id using fj_tran;
if fj_tran.sqlcode <> 0 then
	rslt = 0
	arg_msg = '删除邮件失败,' + fj_tran.sqlerrtext
	goto ext
end if

// 删除附件
DELETE FROM u_email_fj WHERE Relid = :arg_id using fj_tran;
if fj_tran.sqlcode <> 0 then
	rslt = 0
	arg_msg = '删除邮件附件失败,' + fj_tran.sqlerrtext
	goto ext
end if

// 删除收件人列表
DELETE FROM u_email_sendmx WHERE sendid = :arg_id using fj_tran;
if fj_tran.sqlcode <> 0 then
	rslt = 0
	arg_msg = '删除收件人列表失败,' + fj_tran.sqlerrtext
	goto ext
end if
	
ext:
if rslt = 0 then
	rollback using fj_tran;
else
	commit using fj_tran;
end if
return rslt
end function

public function long wf_ds_gettrunkbox (long arg_mailid);long rslt = -1

SELECT TOP 1 boxid INTO :rslt
	FROM u_email_box
	WHERE mailid = :arg_mailid AND boxtype = '废件箱' using Commit_Tran;
if Commit_Tran.sqlcode <> 0 then
	return -1
end if
return rslt
end function

public function integer wf_ds_move_msg_box (long arg_id, long arg_boxid, ref string arg_msg);int rslt = 1

long mailid
SELECT mailid INTO :mailid
	FROM u_email_box WHERE boxid = :arg_boxid using Commit_Tran;
if Commit_Tran.sqlcode <> 0 then
	rslt = 0
	arg_msg = '查询邮箱所属帐号失败,' + Commit_Tran.sqlerrtext
	goto ext
end if

UPDATE u_email_msg SET boxid = :arg_boxid, mailid = :mailid
	WHERE ID = :arg_id using fj_tran;
if fj_tran.sqlcode <> 0 then
	rslt = 0
	arg_msg = '移动邮件失败,' + fj_tran.sqlerrtext
	goto ext
end if

if fj_tran.SQLNRows <> 1 then
	rslt = 0
	arg_msg = '原邮件已经不存在'
	goto ext
end if

ext:
if rslt = 0 then
	rollback using fj_tran;
else
	commit using fj_tran;
end if
return rslt
end function

protected function long wf_box_gettotle (long arg_boxid);if not has_fj_tran then
	return 0	
end if

long ll_cnt
SELECT COUNT(0) INTO :ll_cnt FROM u_email_msg WHERE boxid = :arg_boxid using fj_tran;
if fj_tran.sqlcode <> 0 then
	return 0
end if

return ll_cnt
end function

public function long wf_box_getunread (long arg_boxid);if not has_fj_tran then
	return 0	
end if

long ll_cnt
SELECT COUNT(0) INTO :ll_cnt FROM u_email_msg WHERE boxid = :arg_boxid AND status = '未读' using fj_tran;
if fj_tran.sqlcode <> 0 then
	return 0
end if

return ll_cnt
end function

public subroutine wf_box_update_label (long arg_boxid);
end subroutine

public subroutine wf_tv_settext (long arg_handle, string arg_label);if arg_handle > 0 then
	TreeViewItem tvi
	if tv_1.GetItem(arg_handle, tvi) = 1 then
		tvi.label = arg_label
		tv_1.SetItem(arg_handle, tvi)
	end if
end if

end subroutine

public subroutine wf_html_set (string arg_text);DO WHILE IsNull(ole_1.Object.document.body)
	Yield()
LOOP

String arg_text_old
arg_text_old = arg_text
IF IsNull(arg_text) THEN arg_text = ''
IF  IsNull(lss_revdate) Or  lss_revdate = "" THEN
	arg_text = '<DIV>主题:   ' +lss_subject + '</DIV><DIV>发件人:   ' + lss_sendman  + '</DIV>  <DIV>发件时间:   '+ lss_senddate  + '</DIV>  <DIV>----------------------------------------------</DIV>'  +arg_text
ELSEIF IsNull(lss_senddate) Or lss_senddate = "" THEN
	arg_text = '<DIV>主题:   ' +lss_subject + '</DIV><DIV>发件人:   ' + lss_sendman  + '</DIV>  <DIV>发件时间:   '+ lss_revdate  + '</DIV>  <DIV>----------------------------------------------</DIV>'  +arg_text
ELSEIF lss_subject <> ""  And lss_senddate <> ""  And lss_sendman <> "" And IsNull(lss_subject) = False  And IsNull(lss_senddate) = False  And IsNull(lss_sendman) = False THEN
	arg_text = '<DIV>主题:   ' +lss_subject + '</DIV><DIV>发件人:   ' + lss_sendman  + '</DIV>  <DIV>发件时间:   '+ lss_revdate  + '</DIV>  <DIV>----------------------------------------------</DIV>'  +arg_text
ELSE
END IF
IF IsNull(arg_text) THEN arg_text = arg_text_old
//messagebox("",arg_text)
//Clipboard(arg_text)
ole_1.Object.document.body.innerhtml = arg_text

String ls_state
ls_state = ole_1.Object.document.readyState
DO WHILE ls_state <> 'complete'
	Yield()
	ls_state = ole_1.Object.document.readyState
LOOP

oleobject images
images = ole_1.Object.document.images

Long ll_cnt
ll_cnt = images.Length

Long i,j
oleobject lo
String ls_url
String ls_cid
ListViewItem lvi
s_email_lvfj lvfj
Blob lb
String ls_msg
Boolean findpic = False
String ls_filename

FOR i = 0 To ll_cnt - 1
	lo = images.Item(i)
	ls_url = lo.getAttribute("src")
	IF Lower(Mid(ls_url, 1, 4)) = 'cid:' THEN
		ls_cid = Mid(ls_url, 5)
		SetNull(lb)
		findpic = False
		FOR j = 1 To lv_fj.TotalItems()
			IF lv_fj.GetItem(j, lvi) = 1 THEN
				lvfj = lvi.Data
				IF lvfj.Filename <> ls_cid And lvfj.cid <> ls_cid THEN CONTINUE
				
				IF lvfj.FileType = C_Sys_admsg_fj THEN
					IF wf_admsg_getfjblob(lvfj.fjid, lb, ls_msg) <> 1 THEN
						EXIT
					END IF
					findpic = True
					ls_filename = lvfj.Filename
				ELSEIF lvfj.FileType = C_u_email_fj THEN
					IF wf_mail_getfjblob(lvfj.fjid, lb, ls_msg) <> 1 THEN
						EXIT
					END IF
					findpic = True
					ls_filename = lvfj.Filename
				END IF
				EXIT
			END IF
		NEXT
		
		IF findpic THEN
			ls_filename = sys_cur_path+fjfilepathname+'\'+ls_filename
			IF FileExists(ls_filename)	 THEN FileDelete(ls_filename)
			
			IF f_blobtofile(ls_filename,lb,ls_msg) = 0 THEN
				CONTINUE
			END IF
			lo.setAttribute("src", "file:///" + ls_filename)
		END IF
		
	END IF
NEXT


end subroutine

public function integer wf_admsg_getfj (long arg_msgid, ref s_email_lvfj arg_lvfj[], ref string arg_msg);int rslt = 1

s_email_lvfj lvfj[]
long fjid
string filename
long i = 0

DECLARE cur1 cursor FOR
	select fjid,filename 
	from Sys_admsg_fj where msgid = :arg_msgid using Commit_Tran;
OPEN cur1;
FETCH cur1 INTO :fjid, :filename;
do while Commit_Tran.sqlcode = 0
	i ++
	lvfj[i].fjid = fjid
	lvfj[i].filename = filename
	lvfj[i].filetype = C_Sys_admsg_fj
	FETCH cur1 INTO :fjid, :filename;
LOOP
CLOSE cur1;
arg_lvfj = lvfj

return rslt
end function

public function integer wf_mail_gethtml (long arg_msgid, ref string arg_text, ref string arg_msg);int rslt = 1

long len
BLOB lb


SELECT DATALENGTH(htmlbody) INTO :len FROM u_email_msg
	WHERE ID = :arg_msgid using fj_tran;
if fj_tran.sqlcode <> 0 then
	rslt = 0
	arg_msg = '查询html长度失败,' + fj_tran.sqlerrtext
	goto ext
end if

if len = 0 then
	SELECT DATALENGTH(textbody) INTO :len FROM u_email_msg
		WHERE ID = :arg_msgid using fj_tran;
	if fj_tran.sqlcode <> 0 then
		rslt = 0
		arg_msg = '查询text长度失败,' + fj_tran.sqlerrtext
		goto ext
	end if
	if len > 2048 then
		SELECTBLOB textbody INTO :lb FROM u_email_msg
			WHERE ID = :arg_msgid using fj_tran;
		if fj_tran.sqlcode <> 0 then
			rslt = 0
			arg_msg = '查询text失败,' + fj_tran.sqlerrtext
			goto ext
		end if
		arg_text = string(lb)
		wf_str_replace(arg_text, '~r~n', '<BR>')
		wf_str_replace(arg_text, '~r', '<BR>')
		wf_str_replace(arg_text, '~n', '<BR>')
	else
		SELECT textbody INTO :arg_text FROM u_email_msg
			WHERE ID = :arg_msgid using fj_tran;
		if fj_tran.sqlcode <> 0 then
			rslt = 0
			arg_msg = '查询text失败,' + fj_tran.sqlerrtext
			goto ext
		end if
		wf_str_replace(arg_text, '~r~n', '<BR>')
		wf_str_replace(arg_text, '~r', '<BR>')
		wf_str_replace(arg_text, '~n', '<BR>')
	end if
elseif len > 2048 then
	SELECTBLOB htmlbody INTO :lb FROM u_email_msg
		WHERE ID = :arg_msgid using fj_tran;
	if fj_tran.sqlcode <> 0 then
		rslt = 0
		arg_msg = '查询html失败,' + fj_tran.sqlerrtext
		goto ext
	end if
	arg_text = string(lb)
else
	SELECT htmlbody INTO :arg_text FROM u_email_msg
		WHERE ID = :arg_msgid using fj_tran;
	if fj_tran.sqlcode <> 0 then
		rslt = 0
		arg_msg = '查询html失败,' + fj_tran.sqlerrtext
		goto ext
	end if	
end if

ext:
return rslt
end function

public function integer wf_admsg_gethtml (long arg_msgid, ref string arg_text, ref string arg_msg);int rslt = 1

long len

SELECT DATALENGTH(s_msg) INTO :len
	FROM Sys_admsg
	WHERE msgid = :arg_msgid using Commit_Tran;
if Commit_Tran.sqlcode <> 0 then
	rslt = 0
	arg_msg = '查询消息长度失败,' + Commit_Tran.sqlerrtext
	goto ext
end if

if len > 2048 then
	BLOB lb
	SELECTBLOB s_msg INTO :lb FROM Sys_admsg
		WHERE msgid = :arg_msgid using Commit_Tran;
	if Commit_Tran.sqlcode <> 0 then
		rslt = 0
		arg_msg = '查询消息块失败,' + Commit_Tran.sqlerrtext
		goto ext
	end if
	arg_text = string(lb)
else
	SELECT s_msg INTO :arg_text FROM Sys_admsg
		WHERE msgid = :arg_msgid using Commit_Tran;
	if Commit_Tran.sqlcode <> 0 then
		rslt = 0
		arg_msg = '查询消息失败,' + Commit_Tran.sqlerrtext
		goto ext
	end if
end if

ext:
return rslt
end function

public subroutine wf_str_replace (ref string arg_source, string arg_str1, string arg_str2);long ll_pos
ll_pos = pos(arg_source, arg_str1,1)
do while ll_pos > 0
	arg_source = replace(arg_source, ll_pos, len(arg_str1), arg_str2)	
	ll_pos = pos(arg_source, arg_str1,1)
LOOP


end subroutine

public function integer wf_mail_getfj (long arg_id, ref s_email_lvfj arg_lvfj[], ref string arg_msg);int rslt = 1
s_email_lvfj lvfj[]
long fjid
string filename
long i = 0
string cid

DECLARE cur1 CURSOR FOR
	SELECT fjid, filename, cid FROM u_email_fj 
	WHERE Relid = :arg_id using fj_tran;
OPEN cur1;
FETCH cur1 INTO :fjid, :filename, :cid;
DO WHILE fj_tran.sqlcode = 0
	i++
	lvfj[i].fjid = fjid
	lvfj[i].filename = filename
	lvfj[i].filetype = C_u_email_fj
	lvfj[i].cid = cid
	FETCH cur1 INTO :fjid, :filename, :cid;
LOOP
CLOSE cur1;

arg_lvfj = lvfj

return rslt
end function

public function integer wf_admsg_getfjblob (long arg_fjid, ref blob arg_fjblob, ref string arg_msg);int rslt = 1

SELECTBLOB fileblob INTO :arg_fjblob FROM Sys_admsg_fj
	WHERE fjid = :arg_fjid using Commit_Tran;
if Commit_Tran.sqlcode <> 0 then
	rslt = 0
	arg_msg = '获取内部消息附件失败,' + Commit_Tran.sqlerrtext
	goto ext
end if

ext:
return rslt
end function

public function integer wf_mail_getfjblob (long arg_fjid, ref blob arg_fjblob, ref string arg_msg);int rslt = 1

SELECTBLOB fileblob INTO :arg_fjblob FROM u_email_fj
	WHERE fjid = :arg_fjid using fj_tran;
if fj_tran.sqlcode <> 0 then
	rslt = 0
	arg_msg = '获取附件失败,' + fj_tran.sqlerrtext
	goto ext
end if

ext:
return rslt
end function

public subroutine wf_blob_saveas (ref blob arg_blob, string arg_filename);long pos1, i
string ls_filetypename
string ls_filename
string errmsg
pos1 = pos(arg_filename,'.',1)
IF pos1 > 0 THEN
	ls_filetypename = mid(arg_filename,pos1 + 1, len(arg_filename))
	i = GetFileSaveName("另存为",arg_filename,ls_filename,"*","*."+ls_filetypename+",*."+ls_filetypename)
ELSE
	ls_filetypename = ''
	i = GetFileSaveName("另存为",arg_filename,ls_filename,"*","*.*,*.*")
END IF

IF i = 1 AND Trim(arg_filename) <> '' THEN

	IF f_blobtofile(arg_filename,arg_blob,errmsg) = 0 THEN
		MessageBox('系统提示',errmsg)
		RETURN
	ELSE
		
		MessageBox('系统提示','附件保存成功!'+'~r~n'+'保存路径:'+arg_filename)
	END IF
END IF
end subroutine

public subroutine wf_blob_runfj (ref blob arg_blob, string arg_filename);int rslt = 1

string ls_pathname
string errmsg
string lsNull
setnull(lsNull)
ls_pathname = sys_cur_path+fjfilepathname+'\'+arg_filename
IF FileExists(ls_pathname)	 THEN FileDelete(ls_pathname)

IF f_blobtofile(ls_pathname,arg_blob,errmsg) = 0 THEN
	rslt = 0
	GOTO ext
END IF

//打开附件
ShellExecute32( Handle(THIS), lsNull, ls_pathname, lsNull, lsNull, 1 )

ext:
IF rslt = 0 THEN
	MessageBox('系统提示',errmsg)
END IF

end subroutine

public subroutine wf_ui_row (long arg_row);if dw_list.dataobject = 'dw_email_view_msg' then
	
	if arg_row <= 0 OR arg_row > dw_list.RowCount() then return
	
	if dw_list.IsSelected(arg_row) then
		if dw_list.object.status[arg_row] = '未读' then
			dw_list.object.filename[arg_row] = 'graphics\unread_select.bmp'
		else
			dw_list.object.filename[arg_row] = 'graphics\read_select.bmp'
		end if
	else
		if dw_list.object.status[arg_row] = '未读' then
			dw_list.object.filename[arg_row] = 'graphics\unread.bmp'
		else
			dw_list.object.filename[arg_row] = 'graphics\read.bmp'
		end if
	end if
	
end if
end subroutine

public subroutine wf_ui_unselectall ();if dw_list.dataobject = 'dw_email_view_msg' then
	
	long i
	for i = 1 to dw_list.RowCount()
		if dw_list.IsSelected(i) then
			if dw_list.object.status[i] = '未读' then
				dw_list.object.filename[i] = 'graphics\unread.bmp'
			else
				dw_list.object.filename[i] = 'graphics\read.bmp'
			end if
		end if
	next
	dw_list.accepttext()
end if
end subroutine

public subroutine wf_revert_read (long arg_row);if dw_list.dataobject = 'dw_email_view_msg' AND arg_row > 0 AND arg_row <= dw_list.RowCount() then
	
	string ls_msg
	if dw_list.object.status[arg_row] = '未读' then
		if mail.f_read(dw_list.object.id[arg_row], ls_msg) = 1 then
			dw_list.object.status[arg_row] = '已读'
		end if
	else
		if mail.f_unread(dw_list.object.id[arg_row], ls_msg) = 1 then
			dw_list.object.status[arg_row] = '未读'
		end if		
	end if
	
	wf_ui_row(arg_row)
	
end if
end subroutine

public subroutine wf_read_row (long arg_row);if (dw_list.dataobject = 'dw_email_view_msg' or dw_list.dataobject = 'dw_email_view_msg_rev') AND arg_row > 0 AND arg_row <= dw_list.RowCount() then
	
	string ls_msg
	if dw_list.object.status[arg_row] = '未读' then
		if mail.f_read(dw_list.object.id[arg_row], ls_msg) = 1 then
			dw_list.object.status[arg_row] = '已读'
		end if
	end if
	
	wf_ui_row(arg_row)
	
end if
end subroutine

public subroutine wf_tv_setdata (long arg_handle, s_tv_data1 arg_data);if arg_handle > 0 then
	TreeViewItem tvi
	if tv_1.GetItem(arg_handle, tvi) = 1 then
		tvi.data = arg_data
		tv_1.SetItem(arg_handle, tvi)
	end if
end if

end subroutine

public subroutine wf_tv_reflash (long arg_handle);s_tv_data1 tv_data
tv_data = wf_tv_getdata(arg_handle)

if tv_data.a_string = C_mailbox then
	
	long unread
	unread = wf_box_getunread(tv_data.relid)
	long totle
	totle = wf_box_gettotle(tv_data.relid)
	string label
	label = trim(tv_data.b_string) + '(' + string(unread) + '/' + string(totle) + ')'
	wf_tv_settext(arg_handle, label)
	
else
	
end if
end subroutine

public function long wf_tv_gettrunkhandle (long arg_handle);arg_handle = wf_tv_getacount(arg_handle)

if arg_handle <= 0 then return -1

long handle
s_tv_data1 tv_data
handle = tv_1.finditem(ChildTreeItem!, arg_handle)
do while handle > 0
	tv_data = wf_tv_getdata(handle)
	if tv_data.b_string = '废件箱' AND tv_data.b_long = 1 then
		return handle
	end if
	handle = tv_1.finditem(NextTreeItem!, handle)
loop

return -1
end function

public subroutine wf_tv_retrieve ();s_email_set s_set[]
String ls_msg

wf_ds_getmailset(s_set, ls_msg)

Long child[]

wf_tv_getchild(tv_root, child)

s_tv_data1 tv_data[]
Long i, j
FOR i = 1 To UpperBound(child)
	tv_data[i] = wf_tv_getdata(child[i])
NEXT

Boolean has_tb // 已同步

FOR j = 1 To UpperBound(child)
	IF tv_data[j].a_string <> C_mailacount THEN
		child[j] = -1
	END IF
NEXT

FOR i = 1 To UpperBound(s_set)
	has_tb = False
	FOR j = 1 To UpperBound(child)
		IF child[j] = -1 THEN CONTINUE
		IF tv_data[j].a_string <> C_mailacount THEN
			// 内部消息
			child[j] = -1
			CONTINUE
		END IF
		IF s_set[i].mailid = tv_data[j].relid THEN
			IF tv_data[j].c_string <> Trim(s_set[i].mailuser) Or tv_data[j].d_string <> Trim(s_set[i].mailAddress) THEN
				tv_data[j].b_string = Trim(s_set[i].mailuser) + '<' + Trim(s_set[i].mailAddress) + '>'
				tv_data[j].c_string = Trim(s_set[i].mailuser)
				tv_data[j].d_string = Trim(s_set[i].mailAddress)
				wf_tv_setdata(child[j], tv_data[j])
				wf_tv_settext(child[j], tv_data[j].b_string)
			END IF
			wf_tv_retrieveallchildbox(child[j])
			child[j] = -1
			has_tb = True
			EXIT
		END IF
	NEXT
	
	IF Not has_tb THEN // 未同步
		s_tv_data1 tv_data1
		Long handle1
		
		tv_data1.relid = s_set[i].mailid
		tv_data1.a_string = C_mailacount
		tv_data1.b_string = Trim(s_set[i].mailuser) + '<' + Trim(s_set[i].mailAddress) + '>'
		tv_data1.c_string = Trim(s_set[i].mailuser)
		tv_data1.d_string = Trim(s_set[i].mailAddress)
		handle1 = wf_tv_insert(tv_root, tv_data1.b_string, 2, tv_data1)
		wf_tv_insertallbox(handle1)
		
	END IF
	
NEXT

FOR i = 1 To UpperBound(child)
	IF child[i] > 0 THEN
		tv_1.DeleteItem(child[i])
	END IF
NEXT

//dw_list.trigger event rowfocuschanged(dw_list.getrow())


end subroutine

public subroutine wf_tv_retrieveallchildbox (long arg_handle);// 插入邮箱树

s_tv_data1 tv_data
long ll_mailid, ll_parentid
long boxhandle
s_email_box s_box[]
string ls_msg
long i,j

long unread
long totle
string label


tv_data = wf_tv_getdata(arg_handle)
if tv_data.a_string = C_mailacount then
	ll_mailid = tv_data.relid
	ll_parentid = 0
elseif tv_data.a_string = C_mailbox then
	ll_mailid = tv_data.a_long
	ll_parentid = tv_data.relid
end if
wf_ds_getmailbox(ll_mailid, ll_parentid, s_box, ls_msg)

long child[]
boolean has_tb

wf_tv_getchild(arg_handle, child)
s_tv_data1 tv_data_arr[]
for i = 1 to upperbound(child)
	tv_data_arr[i] = wf_tv_getdata(child[i])
next

FOR i = 1 TO UPPERBOUND(s_box)
	has_tb = false
	for j = 1 to upperbound(child)
		if child[j] = -1 then continue
		if tv_data_arr[j].a_string <> C_mailbox then
			// 内部消息
			child[j] = -1
			continue
		end if
		if s_box[i].boxid = tv_data_arr[j].relid then
			tv_data_arr[j].relid = s_box[i].boxid
			tv_data_arr[j].a_string = C_mailbox
			tv_data_arr[j].b_string = s_box[i].boxname
			tv_data_arr[j].a_long = ll_mailid
			tv_data_arr[j].b_long = s_box[i].isdefault
			unread = wf_box_getunread(s_box[i].boxid)
			totle = wf_box_gettotle(s_box[i].boxid)
			label = trim(s_box[i].boxname) + '(' + string(unread) + '/' + string(totle) + ')'
			wf_tv_setdata(child[j], tv_data_arr[j])
			wf_tv_settext(child[j], label)
			wf_tv_retrieveallchildbox(child[j])	
			child[j] = -1
			has_tb = true
			exit
		end if
	next	
	
	if not has_tb then
		s_tv_data1 tv_data2
		tv_data2.relid = s_box[i].boxid
		tv_data2.a_string = C_mailbox
		tv_data2.b_string = s_box[i].boxname
		tv_data2.a_long = ll_mailid
		tv_data2.b_long = s_box[i].isdefault
		unread = wf_box_getunread(s_box[i].boxid)
		totle = wf_box_gettotle(s_box[i].boxid)
		label = trim(s_box[i].boxname) + '(' + string(unread) + '/' + string(totle) + ')'
		boxhandle = wf_tv_insert(arg_handle, label, s_box[i].picindex, tv_data2)
		wf_tv_insertallbox(boxhandle)		
	end if


NEXT

for i = 1 to upperbound(child)
	if child[i] > 0 then
		tv_1.DeleteItem(child[i])
	end if
next

end subroutine

public subroutine wf_tv_getchild (long arg_handle, ref long arg_child[]);long child[]

long handle
long i = 0
handle = tv_1.finditem(ChildTreeItem!, arg_handle)
do while handle > 0 
	i++
	child[i] = handle
	handle = tv_1.finditem(NextTreeItem!, handle)
loop


arg_child = child
end subroutine

public function boolean wf_hasdotnet ();string ls_value[]
if RegistryValues('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727', ls_value) <> 1 then
	return false
else
	return true
end if
end function

public subroutine wf_str_modfilepath (ref string ls_filepath);long ll_pos
ll_pos = pos(ls_filepath, ':',1)
do while ll_pos > 0
	ls_filepath = replace(ls_filepath, ll_pos, 1, "")
	ll_pos = pos(ls_filepath, ':',1)
loop
ll_pos = pos(ls_filepath, '*',1)
do while ll_pos > 0
	ls_filepath = replace(ls_filepath, ll_pos, 1, "")
	ll_pos = pos(ls_filepath, '*',1)
loop
ll_pos = pos(ls_filepath, '<',1)
do while ll_pos > 0
	ls_filepath = replace(ls_filepath, ll_pos, 1, "")
	ll_pos = pos(ls_filepath, '<',1)
loop
ll_pos = pos(ls_filepath, '>',1)
do while ll_pos > 0
	ls_filepath = replace(ls_filepath, ll_pos, 1, "")
	ll_pos = pos(ls_filepath, '>:',1)
loop
ll_pos = pos(ls_filepath, '|',1)
do while ll_pos > 0
	ls_filepath = replace(ls_filepath, ll_pos, 1, "")
	ll_pos = pos(ls_filepath, '|',1)
loop
ll_pos = pos(ls_filepath, '?',1)
do while ll_pos > 0
	ls_filepath = replace(ls_filepath, ll_pos, 1, "")
	ll_pos = pos(ls_filepath, '?',1)
loop
ll_pos = pos(ls_filepath, '/',1)
do while ll_pos > 0
	ls_filepath = replace(ls_filepath, ll_pos, 1, "")
	ll_pos = pos(ls_filepath, '/',1)
loop
ll_pos = pos(ls_filepath, '\',1)
do while ll_pos > 0
	ls_filepath = replace(ls_filepath, ll_pos, 1, "")
	ll_pos = pos(ls_filepath, '\',1)
loop
ll_pos = pos(ls_filepath, '"',1)
do while ll_pos > 0
	ls_filepath = replace(ls_filepath, ll_pos, 1, "")
	ll_pos = pos(ls_filepath, '"',1)
loop

end subroutine

public subroutine wf_dw_readlayout ();dw_list.ins_INIfile_name = sys_inifilename
dw_list.ins_opemp = publ_operator
dw_list.cardw_empid = sys_empid
dw_list.cur_DataObject = dw_list.DataObject

dw_list.uf_read_profile_layout()
//
f_title_change(dw_list)
end subroutine

public subroutine wf_dw_retrieve_smssend ();Long ll_count
String ls_title
dw_list.Reset()


IF dw_list.DataObject <> 'dw_sms_spring_send' THEN
	IF dw_list.DataObject <> '' THEN
		dw_list.uf_save_profile_layout()
	END IF
	dw_list.DataObject = 'dw_sms_spring_send'
	wf_dw_readlayout()
	dw_list.SetTransObject(Commit_Tran)
END IF

Long ll_empid
ll_empid = sys_empid
IF sys_empid = 0 THEN
	ll_empid = -1
END IF


string str,str_r
long cnt,EM1
EM1=LONG(EM_3.TEXT)
str = trim(dw_list.Describe("DataWindow.Table.Select"))
cnt = pos(str,'empname')
str_r = mid(str,cnt,len(str))
str = 'select top '+STRING(EM1)+' ' +str_r
dw_list.Modify("datawindow.table.select = ~"" + str+ "~"")


//MessageBox('', string(sys_empid))
ll_count = dw_list.Retrieve(ll_empid,cur_send)
//dw_list.Title = '收件箱(' + string(ll_count) + ')'
//ls_title = dw_list.Title
//
//wf_tv_setcurrenttext(ls_title)


end subroutine

public subroutine wf_tv_insertlebox (long arg_handle, long arg_parentid);
s_ljmail_box boxs[]
String arg_msg

uo_ljmail_box uo_box
uo_box = Create uo_ljmail_box

IF uo_box.uf_getchildboxs(arg_parentid, Ref boxs, Ref arg_msg) <> 1 THEN
	GOTO ext
END IF

Long ll_i
Long handle1
s_tv_data1  tv_data
FOR ll_i = 1 To UpperBound(boxs)
	tv_data.a_string = C_lebox
	tv_data.relid = boxs[ll_i].boxid
	tv_data.b_string = boxs[ll_i].boxname
	tv_data.a_long = boxs[ll_i].boxtype
	tv_data.b_long = boxs[ll_i].empid
	handle1 = wf_tv_insert(arg_handle, boxs[ll_i].boxname, 7, tv_data)
	wf_tv_insertlebox(handle1, boxs[ll_i].boxid)
NEXT

ext:
Destroy uo_box


end subroutine

public subroutine wf_dw_retrieve_le (long arg_boxid);Long ll_count
String ls_title
dw_list.Reset()
IF dw_list.DataObject <> 'dw_ljmail_msg' THEN
	IF dw_list.DataObject <> '' THEN
		dw_list.uf_save_profile_layout()
	END IF
	dw_list.DataObject = 'dw_ljmail_msg'
	wf_dw_readlayout()
	dw_list.SetTransObject(fj_tran)
END IF


ll_count = dw_list.Retrieve(arg_boxid)
end subroutine

public subroutine wf_dw_retrieve_smssendmx ();IF dw_list.DataObject = 'dw_sms_spring_send' THEN
	IF dw_user.DataObject <> 'dw_sms_spring_sendmx' THEN
		IF dw_user.DataObject <> '' THEN
			dw_user.uf_save_profile_layout()
		END IF
		dw_user.DataObject = 'dw_sms_spring_sendmx'
		dw_user.ins_INIfile_name = sys_inifilename
		dw_user.ins_opemp = publ_operator
		dw_user.cardw_empid = sys_empid
		dw_user.cur_DataObject = dw_list.DataObject
		
		dw_user.uf_read_profile_layout()
		//
		f_title_change(dw_user)
		
		dw_user.SetTransObject(Commit_Tran)
	END IF
	IF dw_list.GetRow() > 0 THEN
		dw_user.Retrieve(dw_list.Object.sendid[dw_list.GetRow()])
	ELSE
		dw_user.Reset()
	END IF
	
END IF


end subroutine

public subroutine wf_dw_retrieve_mailmsg (long arg_mailid, long arg_boxid, string arg_boxname);s_tv_data1 tv_data
string ls_title
dw_list.Reset()
//if arg_boxname='收件箱' then
//	dw_list.dataobject='dw_email_view_msg' //dw_email_view_msg_rev'
//	dw_list.settrans(fj_tran)
//	goto con
//end if
if dw_list.dataobject <> 'dw_email_view_msg' then
	if dw_list.dataobject <> '' then
		dw_list.uf_save_profile_layout()	
	end if
	dw_list.dataobject = 'dw_email_view_msg'
	wf_dw_readlayout()
	dw_list.settransobject(fj_tran)
end if
//con:
dw_list.retrieve(arg_mailid, arg_boxid)
tv_data = wf_tv_getdata(wf_tv_getcurrent())
ls_title = tv_data.b_string&
		+ '(' + string(wf_box_getunread(arg_boxid)) &
		+ '/' + string(wf_box_gettotle(arg_boxid)) + ')'
wf_tv_setcurrenttext(ls_title)

end subroutine

public function long wf_findtreeitem (treeview tv_tree, boolean findby, any data);//tv_tree: TreeView, 指明在tv_tree树中查找 
//
//findby: boolean, 指明查找方式 
//
//false - 按标签(Label)查找 
//
//true - 按附加数据(data)查找 
//
//data: any, 指明要查找的内容 
//
//返回值：long型。若找到，返回找到的项的Handle； 
//
//若没有找到，返回0； 
//
//若出错，返回-1 
//
//程序代码如下：


long ll_hdl[] 

integer li_cnt 

TreeViewitem lt_tvi 

li_cnt = 1 

ll_hdl[1] = tv_tree.FindItem(RootTreeItem!, 0) 

do while li_cnt > 0 

if tv_tree.GetItem(ll_hdl[li_cnt], lt_tvi) = -1 then return -1 

if findby then 

if lt_tvi.data = data then 

return ll_hdl[li_cnt] 

end if 

else 

if  pos(lt_tvi.label ,string(data) )>0 then 

return ll_hdl[li_cnt] 

end if 

end if 

if lt_tvi.children then 

li_cnt ++ 

ll_hdl[li_cnt] = tv_tree.FindItem( ChildTreeItem!, ll_hdl[li_cnt - 1]) 

else 

ll_hdl[li_cnt] = tv_tree.FindItem( NextTreeItem!, ll_hdl[li_cnt]) 

end if 

do while ll_hdl[li_cnt] <= 0 

li_cnt -- 

if li_cnt = 0 then exit 

ll_hdl[li_cnt] = tv_tree.FindItem( NextTreeItem!, ll_hdl[li_cnt]) 

loop 

loop 

return 0 

end function

public function string of_globalreplace (string as_source, string as_old, string as_new);long ll_oldlen, ll_newlen, ll_pos
as_source=trim(as_source)
as_old=trim(as_old)
ll_pos = Pos(as_source,as_old)
IF ll_pos > 0 Then
ll_oldlen = Len(as_old)
ll_newlen = Len(as_new)
DO WHILE ll_pos > 0
as_source = Replace(as_source,ll_pos,ll_oldlen,as_new)
ll_pos = Pos(as_source,as_old,ll_pos + ll_newlen)
LOOP
END IF
RETURN as_source
end function

public subroutine wf_move ();//游标读收费项目
String arry_sql[]
Integer i
DECLARE readitem_sql CURSOR FOR
	SELECT u_email_box.filter
	From u_email_box Where if_filter = 1;
	
OPEN readitem_sql;
i++
FETCH readitem_sql Into :arry_sql[i];

DO WHILE sqlca.SQLCode = 0
	i++
	FETCH readitem_sql Into :arry_sql[i];
LOOP
CLOSE readitem_sql;

FOR i = 1 To UpperBound(arry_sql)
	IF arry_sql[i] <> "" THEN
		IF Pos(arry_sql[i],"#1s") <= 0 And Pos(arry_sql[i],"#2s") <= 0 And Pos(arry_sql[i],"#3s") <= 0 And Pos(arry_sql[i],"#4s") <= 0 THEN
			CONTINUE
		END IF
		arry_sql[i] = of_globalreplace(arry_sql[i],"‘","'")
		arry_sql[i] = of_globalreplace(arry_sql[i],"’","'")
		arry_sql[i] = of_globalreplace(arry_sql[i],"，",",")
		arry_sql[i] = of_globalreplace(arry_sql[i],"#1s"," ")
		arry_sql[i] = of_globalreplace(arry_sql[i],"#2s"," ")
		arry_sql[i] = of_globalreplace(arry_sql[i],"#3s"," ")
		arry_sql[i] = of_globalreplace(arry_sql[i],"#4s"," ")
		arry_sql[i] = of_globalreplace(arry_sql[i],"#1e"," ")
		arry_sql[i] = of_globalreplace(arry_sql[i],"#2e"," ")
		arry_sql[i] = of_globalreplace(arry_sql[i],"#3e"," ")
		arry_sql[i] = of_globalreplace(arry_sql[i],"#4e"," ")
		EXECUTE Immediate :arry_sql[i] Using sys_email_sqlca;
		IF sys_email_sqlca.SQLCode <> 0 THEN
			MessageBox("错误" , "移动邮件失败~n"+sys_email_sqlca.SQLErrText)
			GOTO ext
		END IF
		COMMIT;
	END IF
	
NEXT

ext:
This.cb_fresh.TriggerEvent(Clicked!)


end subroutine

on w_email_view.create
int iCurrent
call super::create
this.cb_rev=create cb_rev
this.cb_send=create cb_send
this.cb_write=create cb_write
this.cb_back=create cb_back
this.lv_fj=create lv_fj
this.dw_mail=create dw_mail
this.dw_rep=create dw_rep
this.dw_fj=create dw_fj
this.cb_sendother=create cb_sendother
this.cb_del=create cb_del
this.cb_rep=create cb_rep
this.cb_fresh=create cb_fresh
this.lb_1=create lb_1
this.cb_help=create cb_help
this.p_resize=create p_resize
this.p_resize1=create p_resize1
this.ln_bar=create ln_bar
this.ln_bar2=create ln_bar2
this.r_bar=create r_bar
this.tv_1=create tv_1
this.sp_v1=create sp_v1
this.sp_h1=create sp_h1
this.ole_1=create ole_1
this.st_3=create st_3
this.em_1=create em_1
this.pb_em1=create pb_em1
this.st_4=create st_4
this.em_2=create em_2
this.pb_em2=create pb_em2
this.pb_2=create pb_2
this.p_1=create p_1
this.st_refresh=create st_refresh
this.dw_user=create dw_user
this.dw_list=create dw_list
this.cb_1=create cb_1
this.st_del=create st_del
this.p_del=create p_del
this.cbx_showmeredeal=create cbx_showmeredeal
this.cb_viewbill=create cb_viewbill
this.cb_view_his=create cb_view_his
this.sle_find=create sle_find
this.cb_find=create cb_find
this.ddlb_1=create ddlb_1
this.em_3=create em_3
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.cb_rev
this.Control[iCurrent+2]=this.cb_send
this.Control[iCurrent+3]=this.cb_write
this.Control[iCurrent+4]=this.cb_back
this.Control[iCurrent+5]=this.lv_fj
this.Control[iCurrent+6]=this.dw_mail
this.Control[iCurrent+7]=this.dw_rep
this.Control[iCurrent+8]=this.dw_fj
this.Control[iCurrent+9]=this.cb_sendother
this.Control[iCurrent+10]=this.cb_del
this.Control[iCurrent+11]=this.cb_rep
this.Control[iCurrent+12]=this.cb_fresh
this.Control[iCurrent+13]=this.lb_1
this.Control[iCurrent+14]=this.cb_help
this.Control[iCurrent+15]=this.p_resize
this.Control[iCurrent+16]=this.p_resize1
this.Control[iCurrent+17]=this.ln_bar
this.Control[iCurrent+18]=this.ln_bar2
this.Control[iCurrent+19]=this.r_bar
this.Control[iCurrent+20]=this.tv_1
this.Control[iCurrent+21]=this.sp_v1
this.Control[iCurrent+22]=this.sp_h1
this.Control[iCurrent+23]=this.ole_1
this.Control[iCurrent+24]=this.st_3
this.Control[iCurrent+25]=this.em_1
this.Control[iCurrent+26]=this.pb_em1
this.Control[iCurrent+27]=this.st_4
this.Control[iCurrent+28]=this.em_2
this.Control[iCurrent+29]=this.pb_em2
this.Control[iCurrent+30]=this.pb_2
this.Control[iCurrent+31]=this.p_1
this.Control[iCurrent+32]=this.st_refresh
this.Control[iCurrent+33]=this.dw_user
this.Control[iCurrent+34]=this.dw_list
this.Control[iCurrent+35]=this.cb_1
this.Control[iCurrent+36]=this.st_del
this.Control[iCurrent+37]=this.p_del
this.Control[iCurrent+38]=this.cbx_showmeredeal
this.Control[iCurrent+39]=this.cb_viewbill
this.Control[iCurrent+40]=this.cb_view_his
this.Control[iCurrent+41]=this.sle_find
this.Control[iCurrent+42]=this.cb_find
this.Control[iCurrent+43]=this.ddlb_1
this.Control[iCurrent+44]=this.em_3
end on

on w_email_view.destroy
call super::destroy
destroy(this.cb_rev)
destroy(this.cb_send)
destroy(this.cb_write)
destroy(this.cb_back)
destroy(this.lv_fj)
destroy(this.dw_mail)
destroy(this.dw_rep)
destroy(this.dw_fj)
destroy(this.cb_sendother)
destroy(this.cb_del)
destroy(this.cb_rep)
destroy(this.cb_fresh)
destroy(this.lb_1)
destroy(this.cb_help)
destroy(this.p_resize)
destroy(this.p_resize1)
destroy(this.ln_bar)
destroy(this.ln_bar2)
destroy(this.r_bar)
destroy(this.tv_1)
destroy(this.sp_v1)
destroy(this.sp_h1)
destroy(this.ole_1)
destroy(this.st_3)
destroy(this.em_1)
destroy(this.pb_em1)
destroy(this.st_4)
destroy(this.em_2)
destroy(this.pb_em2)
destroy(this.pb_2)
destroy(this.p_1)
destroy(this.st_refresh)
destroy(this.dw_user)
destroy(this.dw_list)
destroy(this.cb_1)
destroy(this.st_del)
destroy(this.p_del)
destroy(this.cbx_showmeredeal)
destroy(this.cb_viewbill)
destroy(this.cb_view_his)
destroy(this.sle_find)
destroy(this.cb_find)
destroy(this.ddlb_1)
destroy(this.em_3)
end on

event resize;call super::resize;ln_bar.EndX = THIS.Width
ln_bar2.EndX = THIS.Width
r_bar.Width = THIS.Width


Long w_width,w_height
w_width = 3602
w_height = 2300

IF newwidth < w_width THEN THIS.Width = w_width
IF newheight < w_height THEN  THIS.Height = w_height

//uo_1.width = this.width - 30
//uo_1.height = this.height - uo_1.y - 150
tv_1.Height = THIS.Height - tv_1.Y - 120
sp_v1.height = tv_1.height
sp_h1.width = this.width - dw_list.x - 30
//
IF have_fj THEN
//	tab_1.Height = tv_1.Height - lv_fj.Height - dw_list.Height - 5
	ole_1.height = tv_1.Height - lv_fj.Height - dw_list.Height - 5
	lv_fj.Visible = TRUE
	p_resize.Height = ole_1.height + lv_fj.Height
ELSE
//	tab_1.Height = tv_1.Height - dw_list.Height - 5
	ole_1.height = tv_1.height - dw_list.height - 5
	lv_fj.Visible = FALSE
	p_resize.Height = ole_1.height
END IF


IF have_rep THEN
	dw_list.Width = THIS.Width - dw_list.X - dw_rep.Width - p_resize1.Width - 30
ELSE
	dw_list.Width = THIS.Width - dw_list.X - p_resize1.Width - 30
END IF

p_resize1.X = dw_list.X + dw_list.Width
dw_rep.X = p_resize1.X + p_resize1.Width


IF have_inout THEN
//	tab_1.Width = THIS.Width - tab_1.X - dw_mail.Width - p_resize.Width - 30
	ole_1.width = THIS.Width - ole_1.X - dw_mail.Width - p_resize.Width - 30
ELSE
//	tab_1.Width = THIS.Width - tab_1.X  - p_resize.Width - 30
	ole_1.width = THIS.Width - ole_1.X  - p_resize.Width - 30
END IF

p_resize.X = ole_1.X + ole_1.Width
dw_mail.X = p_resize.X + p_resize.Width
dw_fj.X = dw_mail.X

lv_fj.Width = ole_1.Width
lv_fj.Y = ole_1.Y + ole_1.Height

dw_mail.Height =  (tv_1.Height - dw_list.Height ) / 2
dw_fj.Y = dw_mail.Y + dw_mail.Height
dw_fj.Height =  dw_mail.Height

if have_user then
	dw_user.visible = true
	dw_list.width = dw_list.width - dw_user.width
	dw_user.x = dw_list.x + dw_list.width
else
	dw_user.visible = false
end if

end event

event open;call super::open;//uo_kq=create uo_kp_setprofile
//uo_kq.clear('a')
//uo_kq.settext('email','in open')
IF sys_project = 0 THEN
	//L1权限
	ins_can_see_other = 2571
	ins_can_edit = 2572
ELSE
	//ecl权限
	ins_can_see_other = 1411
	ins_can_edit = 1412 //可以修改的
END IF


commit_tran = sqlca

Long ll_ConnectionID
String arg_msg
Int li_ifexit = 0
//IF sys_email_sqlca.DBHandle() > 0 THEN
//	fj_tran = sys_email_sqlca
//ELSE
//	MessageBox('系统提示','要使用邮件功能,请先定义邮件数据库')
//	li_ifexit = 1
//END IF

//uo_kq.settext('email','1')
IF sys_email_sqlca.DBHandle() <> 0 THEN
	fj_tran = sys_email_sqlca
	has_fj_tran = True
ELSE
	MessageBox('系统提示','要使用邮件功能,请先定义邮件数据库')
	fj_tran = Create Transaction
	has_fj_tran = False
	li_ifexit = 0
END IF
//uo_kq.settext('email','2')
IF li_ifexit = 0 THEN
	dw_fj.SetTransObject(commit_tran)
	dw_user.SetTransObject(commit_tran)
	
	dw_mail.SetTransObject(fj_tran)
	dw_rep.SetTransObject(fj_tran)
	dw_list.SetTransObject(fj_tran)
	mail = Create uo_email
	mail.commit_tran = commit_tran
	mail.fj_tran = fj_tran
	//Pathname = sys_cur_path + 'temp.html'
	dw_mail.Visible = False
	dw_fj.Visible = False
	dw_rep.Visible = False
	
	em_1.Text =  String(RelativeDate ( Today(), -7 ),'YY-MM-DD')
	em_2.Text = String(Today(),'YY-MM-DD')
	
	wf_ui_reflash()
	//	uo_kq.settext('email','2-1')
	have_user = False
	dw_user.Width = 1200
	
	String ls_msg
	Long a
	a = wf_tv_build_tree(ls_msg)
	//	uo_kq.settext('email',string(a))
	IF a <> 1 THEN
		MessageBox('错误', ls_msg, stopsign!)
		Close(This)
		RETURN
	END IF
	//	uo_kq.settext('email','2-2')
	ole_1.Object.navigate('about:blank')
	//string ls_msg
	//wf_init(ls_msg)
	
	//alltimmer= create so_timmer
	//curtimmer= create so_timmer
	//atimmer= create so_timmer
	
	//alltimmer.of_setparent(this)
	//curtimmer.of_setparent(this)
	//atimmer.of_setparent(this)
	//	uo_kq.settext('email','2-3')
	Long sp_v1_x
	sp_v1_x = Long(f_ProfileString(sys_empid, "sp_v1", "x", '855'))
	sp_v1.X = sp_v1_x
	tv_1.Width = sp_v1.X - 5
	dw_list.X = sp_v1.X  + 5
	//tab_1.x   = sp_v1.x  + 5
	ole_1.X   = sp_v1.X  + 5
	lv_fj.X   = sp_v1.X  + 5
	
	sp_v1.of_reset()
	sp_v1.of_register(tv_1, sp_v1.Left)
	sp_v1.of_register(dw_list, sp_v1.Right)
	sp_v1.of_register(sp_h1, sp_v1.Right)
	//sp_v1.of_register(tab_1, sp_v1.right)
	sp_v1.of_register(ole_1, sp_v1.Right)
	sp_v1.of_register(lv_fj, sp_v1.Right)
	sp_v1.uf_possplitbar(tv_1)
	
	//	uo_kq.settext('email','2-4')
	Long sp_h1_y
	sp_h1_y = Long(f_ProfileString(sys_empid, "sp_h1", "y", '1084'))
	sp_h1.Y = sp_h1_y
	dw_list.Height = sp_h1.Y - 5 - dw_list.Y
	dw_user.Height = dw_list.Height
	p_resize1.Height = sp_h1.Y - 5 - p_resize1.Y
	dw_rep.Height = sp_h1.Y - 5 - dw_rep.Y
	//tab_1.y = sp_h1.y + 5
	ole_1.Y = sp_h1.Y + 5
	p_resize.Y = sp_h1.Y + 5
	dw_mail.Y = sp_h1.Y + 5
	sp_h1.of_reset()
	sp_h1.of_register(dw_list, sp_h1.above)
	sp_h1.of_register(dw_user, sp_h1.above)
	sp_h1.of_register(p_resize1, sp_h1.above)
	sp_h1.of_register(dw_rep, sp_h1.above)
	//sp_h1.of_register(tab_1, sp_h1.below)
	sp_h1.of_register(ole_1, sp_h1.below)
	sp_h1.of_register(p_resize, sp_h1.below)
	sp_h1.of_register(dw_mail, sp_h1.below)
	sp_h1.uf_possplitbar(dw_list)
	//	uo_kq.settext('email','2-5')
ELSE
	//	cb_exit.PostEvent(Clicked!)
END IF
//uo_kq.settext('email','3')

This.PostEvent('ue_afteropen')
//自动收取邮件
ll_autotime = Long(f_ProfileString(sys_empid,publ_userid+'_'+'sle_auottime', "autotime",'0'))
IF ll_autotime > 0 THEN
	if_autorev = True
	timer(ll_autotime * 60)
END IF
//自动收取邮件

end event

event close;call super::close;Destroy mail
//destroy alltimmer
//destroy curtimmer
IF not has_fj_tran THEN
	Destroy fj_tran
END IF
wf_delfj()

end event

event activate;call super::activate;//messagebox('','act')
if isvalid(fj_tran) then
	wf_tv_retrieve()
end if
end event

event timer;call super::timer;Long ll_cpu,ll_cpu1,ll_hwnd
ll_hwnd = findWindow("WindowsForms10.Window.8.app.0.33c0d9d","收取邮件")
IF ll_hwnd > 0 THEN RETURN
ULong    lu_class
String   ls_name
SetNull(lu_class)
//ls_name = "龙嘉接收邮件工具"
//IF  FindWindowA(lu_class, ls_name) > 0 THEN
//	MessageBox('提示','正在收取邮件,请稍后!',information!,OK!)
//	RETURN
//END IF

IF NOT FileExists(sys_cur_path + 'longjoe_rev.exe') THEN
	MessageBox('提示','longjoe_rev.exe文件缺失,请联系软件供应商!',information!,OK!)
	RETURN
END IF

// DONE: 检测是否安装.net
if not wf_hasDotNet() then
	MessageBox('提示','如需收发邮件请安装.net2.0!',information!,OK!)
	RETURN		
end if

if not has_fj_tran then
	MessageBox('提示','未设置邮件数据库!',information!,OK!)
	RETURN			
end if

String ls_run
ls_run = 'longjoe_rev.exe -longjoe&'&
		+ sys_system_id + '&'&
		+ sys_cur_version + '&'&
		+ String(sys_if_register) + '&'&
		+ Commit_Tran.Database + '&'&
		+ Commit_Tran.UserID + '&'&
		+ f_psw_bczh(Commit_Tran.DBPass,0,sys_power_key) + '&'&
		+ Commit_Tran.LogID + '&'&
		+ f_psw_bczh(Commit_Tran.LogPass,0,sys_power_key) + '&'&
		+ Commit_Tran.ServerName + '&'&
		+ string(sys_empid) + '&'&
		+ '-1&'&
		+ '0&'&
		+ fj_tran.Database + '&'&
		+ fj_tran.UserID + '&'&
		+ f_psw_bczh(fj_tran.DBPass,0,sys_power_key) + '&'&
		+ fj_tran.LogID + '&'&
		+ f_psw_bczh(fj_tran.LogPass,0,sys_power_key) + '&'&
		+ fj_tran.ServerName + '&'

IF Run(sys_cur_path + ls_run) = -1 THEN
	MessageBox('错误','运行程序失败！',stopsign!,ok!)
	RETURN
END IF
if IsValid(w_tanchuang) then close(w_tanchuang)
open(w_tanchuang)

end event

type cb_func from w_publ_base`cb_func within w_email_view
boolean visible = false
integer x = 775
integer width = 150
integer height = 163
end type

type cb_exit from w_publ_base`cb_exit within w_email_view
integer x = 1657
integer width = 165
integer height = 163
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

type cb_rev from uo_imflatbutton within w_email_view
integer x = 165
integer width = 165
integer height = 163
integer taborder = 10
boolean bringtotop = true
string text = "收取"
string normalpicname = "email_view1.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;
m_Dfc_Control_PopupMenu dmPopupMenu
String menustr
s_tv_data1 tv_data
long ll_handle

ll_handle = wf_tv_getCurrent()
ll_handle = wf_tv_getacount(ll_handle)
if ll_handle > 0 then
	tv_data = wf_tv_getdata(ll_handle)
	menustr = "Text=" + tv_data.b_string + "~tEvent=ue_revcur"
	menustr = menustr + "|" + "Text=-"
	menustr = menustr + "|" + "Text=全部邮箱~tEvent=ue_revall"
else
	menustr = "Text=全部邮箱~tEvent=ue_revall"
end if

IF len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = CREATE m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(THIS, menustr)
	dmPopupMenu.mf_PopMenu()
	DESTROY dmPopupMenu
END IF


end event

type cb_send from uo_imflatbutton within w_email_view
integer x = 329
integer width = 165
integer height = 163
integer taborder = 30
boolean bringtotop = true
string text = "发送"
string normalpicname = "email_view2.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr
s_tv_data1 tv_data
long ll_handle

ll_handle = wf_tv_getCurrent()
ll_handle = wf_tv_getacount(ll_handle)
if ll_handle > 0 then
	tv_data = wf_tv_getdata(ll_handle)
	menustr = "Text=" + tv_data.b_string + "~tEvent=ue_sendcur"
	menustr = menustr + "|" + "Text=-"
	menustr = menustr + "|" + "Text=全部邮箱~tEvent=ue_sendall"
else
	menustr = "Text=全部邮箱~tEvent=ue_sendall"
end if

IF len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = CREATE m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(THIS, menustr)
	dmPopupMenu.mf_PopMenu()
	DESTROY dmPopupMenu
END IF


end event

type cb_write from uo_imflatbutton within w_email_view
integer x = 494
integer width = 165
integer height = 163
integer taborder = 20
boolean bringtotop = true
string text = "撰写"
string normalpicname = "email_view3.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;s_tv_data1 tv_data
Long curhandle

curhandle = wf_tv_getcurrent()

IF curhandle < 0 THEN
	MessageBox('错误','请先选择邮箱',stopsign!,OK!)
	RETURN
END IF

tv_data = wf_tv_getdata(curhandle)
IF tv_data.a_string = C_root THEN
	MessageBox('错误','请先选择邮箱',stopsign!,OK!)
	RETURN
ELSEIF tv_data.a_string = 	C_innerroot Or tv_data.a_string = C_innerrev Or tv_data.a_string = C_innersend THEN
	Parent.TriggerEvent('ue_msg_send')
	RETURN
ELSEIF tv_data.a_string = C_mailacount Or tv_data.a_string = C_mailbox THEN
	Long ll_handle
	ll_handle = wf_tv_getacount(curhandle)
	IF ll_handle <= 0 THEN
		MessageBox('错误','请先选择邮箱',stopsign!,OK!)
		RETURN
	END IF
	tv_data = wf_tv_getdata(ll_handle)
	s_email_set s_parm
	s_parm.mailid = tv_data.relid
	s_parm.mailuser = tv_data.c_string
	s_parm.mailAddress = tv_data.d_string
	OpenWithParm(w_email_send_new,s_parm)
ELSEIF tv_data.a_string = C_smsroot Or tv_data.a_string = C_smssend THEN
	// DONE: 打开发送短信窗口
	s_spring_send s_send
	s_send.sendid = 0
	s_send.sendflag = 2
	s_send.empid = sys_empid
	OpenWithParm(w_sms_send_new, s_send)
ELSEIF tv_data.a_string = C_leroot Or tv_data.a_string = C_lebox THEN
	s_ljmail_msg_parm s_parm_set
	s_parm_set.msgid = 0
	s_parm_set.reltype = 0
	s_parm_set.relid = 0
	OpenWithParm(w_ljmail_msg_send, s_parm_set)
END IF


end event

type cb_back from uo_imflatbutton within w_email_view
integer x = 658
integer width = 165
integer height = 163
integer taborder = 30
boolean bringtotop = true
string text = "回复"
string normalpicname = "email_view4.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;// DONE: 回复
IF dw_list.DataObject = 'dw_deal_admsg_1_copy' THEN
	Parent.TriggerEvent('ue_msg_back')
ELSEIF dw_list.DataObject = 'dw_email_view_msg' THEN
	Parent.TriggerEvent('ue_reply')
ELSEIF dw_list.DataObject = 'dw_sms_spring_send' THEN
	// TODO: 回复
	//	s_spring_send s_send
	//	s_send.revphone = 
ELSEIF dw_list.DataObject = 'dw_ljmail_msg' THEN
	// TODO: 回复LE
	IF dw_list.GetRow() > 0 THEN
		
		s_ljmail_msg_parm s_msg_parm
		s_msg_parm.msgid = 0
		s_msg_parm.reltype = 0
		s_msg_parm.relid = 0
		s_msg_parm.s_msg.mx[1].ljmail = dw_list.Object.ljmail[dw_list.GetRow()]
		OpenWithParm(w_ljmail_msg_send, s_msg_parm)
		
	END IF
END IF

end event

type lv_fj from uo_email_lv within w_email_view
integer x = 863
integer y = 2042
integer width = 1306
integer height = 234
integer taborder = 40
boolean bringtotop = true
boolean extendedselect = true
boolean hideselection = false
string smallpicturename[] = {"p15drive_fdd.ico"}
end type

event doubleclicked;ListViewItem lvi
s_email_lvfj lvfj
Blob lb
String ls_msg
IF ins_index > 0 THEN
	
	IF lv_fj.GetItem(ins_index, lvi) = 1 THEN
		
		lvfj = lvi.Data
		IF lvfj.FileType = C_Sys_admsg_fj THEN
			IF wf_admsg_getfjblob(lvfj.fjid, lb, ls_msg) <> 1 THEN
				MessageBox('错误', ls_msg, stopsign!)
				RETURN
			END IF
		ELSEIF lvfj.FileType = C_u_email_fj THEN
			IF wf_mail_getfjblob(lvfj.fjid, lb, ls_msg) <> 1 THEN
				MessageBox('错误', ls_msg, stopsign!)
				RETURN
			END IF
			
		ELSE
			RETURN
		END IF
		
		wf_blob_runfj(lb, lvfj.Filename)
		
	END IF
	
END IF


//if cur_set.mailid > 0 then
//	call super::doubleclicked
//else // 内部消息
//	
//	//附件下载并打开
//	String lsNull
//	setnull(lsNull)
//	integer rslt = 1
//	string errmsg, ls_pathname
//	listviewitem l_lvi
//	s_email_lvfj s_lvfj
//	IF this.ins_index > 0 THEN
//		THIS.GetItem( this.ins_index, l_lvi)
//		s_lvfj = l_lvi.Data
//		this.ins_cur_fjid = s_lvfj.fjid
//		this.ins_cur_fjname = l_lvi.Label
//		IF this.ins_cur_fjname = '' THEN GOTO ext
//	ELSE
//		GOTO ext
//	END IF
//	//下载附件并打开
//	ls_pathname = sys_cur_path+this.fjfilepathname+'\'+this.ins_cur_fjname
//	IF FileExists(ls_pathname)	 THEN FileDelete(ls_pathname)
//	IF this.ins_cur_fjid  > 0  THEN
//		selectblob fileblob INTO :this.ls_filedata
//			from Sys_admsg_fj
//			where fjid = :this.ins_cur_fjid;
//		if sqlca.sqlcode <> 0 then
//			rslt = 0
//			errmsg = '下载附件失败'
//			goto ext
//		end if
//	ELSE
//		this.ls_filedata = s_lvfj.fileblob
//	END IF
//	
//	IF f_blobtofile(ls_pathname,this.ls_filedata,errmsg) = 0 THEN
//		rslt = 0
//		GOTO ext
//	END IF
//	
//	//打开附件
//	ShellExecute32( Handle(THIS), lsNull, ls_pathname, lsNull, lsNull, 1 )
//	
//	ext:
//	IF rslt = 0 THEN
//		MessageBox('系统提示',errmsg)
//	END IF
//
//	
//	
//end if

end event

event ue_saveas;
ListViewItem lvi, selectedlvi[]
Long ll_cnt = 0, ll_i
s_email_lvfj lvfj
Blob lb
String ls_msg, ls_sum = ''
IF ins_index > 0 THEN
	IF lv_fj.TotalSelected() = 1 THEN
		IF lv_fj.GetItem(ins_index, lvi) = 1 THEN
			
			lvfj = lvi.Data
			IF lvfj.FileType = C_Sys_admsg_fj THEN
				IF wf_admsg_getfjblob(lvfj.fjid, lb, ls_msg) <> 1 THEN
					MessageBox('错误', ls_msg, stopsign!)
					RETURN
				END IF
			ELSEIF lvfj.FileType = C_u_email_fj THEN
				IF wf_mail_getfjblob(lvfj.fjid, lb, ls_msg) <> 1 THEN
					MessageBox('错误', ls_msg, stopsign!)
					RETURN
				END IF
			ELSE
				RETURN
			END IF
			
			wf_blob_saveas(lb, lvfj.Filename)
			
		END IF
	ELSE
		// 多选
		String ls_filepath
		String ls_filename
		IF GetFolder('选择保存路径', ls_filepath) <> 1 THEN RETURN
		
		IF Mid(ls_filepath, Len(ls_filepath), 1) <> '\' THEN
			ls_filepath += '\'
		END IF
		
		FOR ll_i = 1 To This.TotalItems()
			IF This.GetItem(ll_i, lvi) = 1 THEN
				IF lvi.Selected THEN
					ll_cnt++
					selectedlvi[ll_cnt] = lvi
				END IF
			END IF
		NEXT
		
		FOR ll_i = 1 To ll_cnt
			lvfj = selectedlvi[ll_i].Data
			IF lvfj.FileType = C_Sys_admsg_fj THEN
				IF wf_admsg_getfjblob(lvfj.fjid, lb, ls_msg) <> 1 THEN
					ls_sum = ls_sum + ls_msg + '~r~n'
					CONTINUE
				END IF
			ELSEIF lvfj.FileType = C_u_email_fj THEN
				IF wf_mail_getfjblob(lvfj.fjid, lb, ls_msg) <> 1 THEN
					ls_sum = ls_sum + ls_msg + '~r~n'
					CONTINUE
				END IF
			ELSE
				ls_sum = ls_sum + '未定义FileType:' + lvfj.FileType + '~r~n'
				CONTINUE
			END IF
			
			ls_filename = ls_filepath + lvfj.Filename
			IF FileExists(ls_filename) THEN
				IF MessageBox('提问', lvfj.Filename + '已经存在是否覆盖?', Question!, YesNo!) <> 1 THEN
					CONTINUE
				END IF
			END IF
			
			IF f_blobtofile(ls_filename, lb, ls_msg) <> 1 THEN
				ls_sum = ls_sum + ls_msg + '~r~n'
				CONTINUE
			END IF
		NEXT
		IF ls_sum <> '' THEN
			MessageBox('错误', ls_sum)
		ELSE
			MessageBox('提示', '保存成功')
		END IF
		
	END IF
END IF

//if cur_set.mailid > 0 then
//	call super::ue_saveas// tv_fj.ue_saveas
//else
//	
//	//附件另存为
//	Integer i
//	Long ls_i,ls_j,ls_newrow,ls_filesize
//	String ls_Pathname,ls_filename
//	String errmsg,arg_msg
//	String ls_filetypename
//	Long pos1,lrow,rslt
//	String ls_para,ls_downarg[]
//	ls_Pathname = this.ins_cur_fjname
//	
//	//*************************************************************
//	
//	pos1 = pos(this.ins_cur_fjname,'.',1)
//	IF pos1 > 0 THEN
//		ls_filetypename = Mid(this.ins_cur_fjname,pos1 + 1)
//		i = GetFileSaveName("另存为",ls_Pathname,ls_filename,"*","*."+ls_filetypename+",*."+ls_filetypename)
//	ELSE
//		ls_filetypename = ''
//		i = GetFileSaveName("另存为",ls_Pathname,ls_filename,"*","*.*,*.*")
//	END IF
//	
//	IF i = 1 AND Trim(ls_Pathname) <> '' THEN
//		selectblob fileblob INTO :ls_filedata
//			from Sys_admsg_fj
//			where fjid = :this.ins_cur_fjid;
//		if sqlca.sqlcode <> 0 then
//			MessageBox('系统提示', '下载附件失败')
//			return
//		end if
//	
//		IF f_blobtofile(ls_Pathname,ls_filedata,errmsg) = 0 THEN
//			MessageBox('系统提示',errmsg)
//			RETURN
//		ELSE
//			
//			MessageBox('系统提示','附件保存成功!'+'~r~n'+'保存路径:'+ls_Pathname)
//		END IF
//	END IF
//
//	
//	
//	
//end if


end event

type dw_mail from u_dw_rbtnfilter within w_email_view
integer x = 2216
integer y = 1088
integer width = 1368
integer height = 595
integer taborder = 20
boolean bringtotop = true
boolean titlebar = true
string title = "往来邮件"
string dataobject = "dw_email_view_inout"
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean resizable = true
boolean border = false
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
string cur_allowversion = "0"
end type

event rowfocuschanged;call super::rowfocuschanged;IF currentrow = 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)
end event

event clicked;call super::clicked;THIS.SetRow(row)
end event

event doubleclicked;call super::doubleclicked;//IF dw_mail.GetRow() = 0 THEN RETURN
//
//Long i,ll_fjtype
//
//dw_mail.AcceptText()
//ll_fjtype = dw_mail.Object.fjtype[dw_mail.GetRow()]
//CHOOSE CASE ll_fjtype
//	CASE 1
//		s_edit_index_tran s_tran
//		Long  cur_revid[]
//		s_tran.b_long = dw_mail.GetRow()
//		s_tran.c_long = dw_mail.RowCount()
//		
//		FOR i = 1 TO dw_mail.RowCount()
//			cur_revid[i] = dw_mail.Object.id[i]
//		NEXT
//		s_tran.arr_long = cur_revid
//		OpenWithParm(w_email_rev,s_tran)
//		
//	CASE 0
//		s_email_set s_parm
//		s_parm = cur_set
//		s_parm.sendid = dw_mail.Object.id[dw_mail.GetRow()]
//		
//		OpenWithParm(w_email_send_new,s_parm)
//		
//END CHOOSE
//
//
//
//
end event

type dw_rep from u_dw_rbtnfilter within w_email_view
integer x = 2216
integer y = 179
integer width = 1368
integer height = 909
integer taborder = 30
boolean bringtotop = true
boolean titlebar = true
string title = "联系人"
string dataobject = "dw_email_view_send_rep"
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean resizable = true
boolean border = false
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
string cur_allowversion = "0"
end type

event rowfocuschanged;call super::rowfocuschanged;dw_mail.reset()
dw_fj.reset()

if isnull(currentrow) then return
IF currentrow <= 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)


String ls_address
ls_address = THIS.Object.revaddress[currentrow]

if dw_list.dataobject = 'dw_email_view_msg' and dw_list.getrow() > 0 then
	dw_mail.SetRedraw (FALSE)
	dw_mail.Retrieve(dw_list.object.mailid[dw_list.getrow()],ls_address)
	dw_mail.SetRedraw (TRUE)
	
	dw_fj.SetRedraw (FALSE)
	dw_fj.Retrieve(dw_list.object.mailid[dw_list.getrow()],ls_address)
	dw_fj.SetRedraw (TRUE)
end if

end event

event clicked;call super::clicked;THIS.SetRow(row)
end event

type dw_fj from u_dw_rbtnfilter within w_email_view
integer x = 2216
integer y = 1683
integer width = 1368
integer height = 589
integer taborder = 30
boolean bringtotop = true
boolean titlebar = true
string title = "往来附件"
string dataobject = "dw_email_view_fj"
boolean maxbox = true
boolean hscrollbar = true
boolean vscrollbar = true
boolean resizable = true
boolean border = false
boolean hsplitscroll = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
string cur_allowversion = "0"
end type

event clicked;call super::clicked;THIS.SetRow(row)
end event

event rowfocuschanged;call super::rowfocuschanged;IF currentrow = 0 THEN RETURN
THIS.SelectRow(0,FALSE)
THIS.SelectRow(currentrow,TRUE)
end event

event doubleclicked;call super::doubleclicked;parent.triggerevent('ue_open_fj')
end event

type cb_sendother from uo_imflatbutton within w_email_view
integer x = 823
integer width = 165
integer height = 163
integer taborder = 30
boolean bringtotop = true
string text = "转发"
string normalpicname = "email_view5.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;// DONE: 要将内部消息转发到email
parent.triggerevent('ue_sendother')

end event

type cb_del from uo_imflatbutton within w_email_view
integer x = 987
integer width = 165
integer height = 163
integer taborder = 40
boolean bringtotop = true
string text = "删除"
string normalpicname = "email_view6.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;String ls_msg


//messagebox('',string(dw_list.DataObject))
If (dw_list.DataObject = 'dw_email_view_msg' )And dw_list.GetRow() > 0 THEN
	Parent.TriggerEvent('ue_del')
END IF

IF dw_list.DataObject = 'dw_sms_spring_send' And dw_list.GetRow() > 0 THEN
	IF MessageBox ("询问","是否确定要永久删除选中短信吗",Question!,YesNo! ) = 2 THEN RETURN
	uo_spring_send uo_spring
	uo_spring = Create uo_spring_send
	uo_spring.commit_transaction = Commit_Tran
	IF uo_spring.uf_del(dw_list.Object.Sendid[dw_list.GetRow()], Ref ls_msg, True) <> 1 THEN
		Destroy uo_spring
		MessageBox('删除失败', ls_msg)
		RETURN
	END IF
	Destroy uo_spring
	wf_dw_retrieve_smssend()
END IF

Long ll_boxtype = 0
uo_ljmail_msg uo_ljmail
Long i

IF dw_list.DataObject = 'dw_ljmail_msg' And dw_list.GetRow() > 0 THEN
	
	if not has_fj_tran then
		MessageBox('提示','未设置邮件数据库!',information!,OK!)
		RETURN			
	end if
	
	uo_ljmail = Create uo_ljmail_msg
	uo_ljmail.commit_transaction = fj_tran
	
	ins_deletingrow = 1
	dw_list.SetRedraw(False)
	FOR i = dw_list.RowCount() To 1 Step -1
		IF dw_list.IsSelected(i) THEN
			IF ll_boxtype = 0 THEN
				IF uo_ljmail.uf_get_boxtype(dw_list.Object.msgid[i], Ref ll_boxtype, ls_msg) = 0 THEN
					MessageBox('错误', ls_msg, stopsign!)
					GOTO ext
				END IF
				
				IF ll_boxtype = 4 THEN
					IF MessageBox ("询问","是否确定要永久删除选中邮件吗",Question!,YesNo! ) = 2 THEN GOTO ext
				ELSE
					IF MessageBox ("询问","是否确定要把当前邮件放入废件吗",Question!,YesNo! ) = 2 THEN GOTO ext
				END IF
			END IF
			
			IF uo_ljmail.uf_del(dw_list.Object.msgid[dw_list.GetRow()], Ref ls_msg) <> 1 THEN
				MessageBox('错误', ls_msg, stopsign!)
				GOTO ext
			END IF
			dw_list.DeleteRow(i)
		END IF
	NEXT
	
	ext:
	ins_deletingrow = 0
	dw_list.SetRedraw(True)
	dw_list.Trigger Event RowFocusChanged(dw_list.GetRow())
	wf_tv_reflash(wf_tv_getcurrent())
	Destroy uo_ljmail
END IF


end event

type cb_rep from uo_imflatbutton within w_email_view
integer x = 1152
integer width = 165
integer height = 163
integer taborder = 50
boolean bringtotop = true
string text = "账号"
string normalpicname = "email_view7.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;parent.triggerevent('ue_emailset')


end event

type cb_fresh from uo_imflatbutton within w_email_view
integer width = 165
integer height = 163
integer taborder = 20
boolean bringtotop = true
string text = "刷新"
string normalpicname = "refresh.BMP"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;// DONE: 刷新
wf_tv_retrieve()
tv_1.trigger event selectionchanged(-1, wf_tv_getcurrent())

long tvi_hdl = 0

DO UNTIL tv_1.FindItem(RootTreeItem!, 0) = -1

    tv_1.DeleteItem(tvi_hdl)

LOOP
String ls_msg
Long a
long ll_tvi
a = wf_tv_build_tree(ls_msg)
//ll_tvi = tv_1.FindItem(RootTreeItem! ,0)
handle1_email=wf_findtreeitem(tv_1,false,tv_data_move.b_string)
tv_1.ExpandAll(handle1_email)
tv_1.SetRedraw(false)
tv_1.SelectItem(handle1_email)
tv_1.SetRedraw(True)
end event

type lb_1 from listbox within w_email_view
boolean visible = false
integer x = 1540
integer width = 549
integer height = 144
integer taborder = 20
boolean bringtotop = true
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
end type

type cb_help from uo_imflatbutton within w_email_view
event ue_help ( )
integer x = 1488
integer width = 165
integer height = 163
integer taborder = 50
boolean bringtotop = true
string text = "帮助"
string normalpicname = "help.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event ue_help();Int i
i = htmlhelpA(Handle(THIS), sys_help_chm, 0, "电子邮箱管理.html")

end event

event clicked;call super::clicked;PARENT.TriggerEvent('ue_help')

end event

type p_resize from picture within w_email_view
integer x = 2172
integer y = 1091
integer width = 48
integer height = 1184
boolean bringtotop = true
string picturename = "w_resize_2.bmp"
boolean focusrectangle = false
end type

event clicked;String ls_msg
IF THIS.PictureName = 'w_resize_2.bmp' THEN
	THIS.PictureName = 'w_resize_1.bmp'
	dw_mail.Visible = TRUE
	dw_fj.Visible = TRUE
	have_inout = TRUE
	
//	wf_retreve_inout(cur_address)
	
ELSE
	THIS.PictureName = 'w_resize_2.bmp'
	dw_mail.Visible = FALSE
	dw_fj.Visible = FALSE
	have_inout = FALSE
END IF

parent.triggerevent('resize')
end event

type p_resize1 from picture within w_email_view
integer x = 2172
integer y = 179
integer width = 48
integer height = 912
boolean bringtotop = true
string picturename = "w_resize_2.bmp"
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
end type

event clicked;String ls_msg
IF THIS.PictureName = 'w_resize_2.bmp' THEN
	THIS.PictureName = 'w_resize_1.bmp'
	dw_rep.Visible = TRUE
	have_rep = TRUE
ELSE
	THIS.PictureName = 'w_resize_2.bmp'
	dw_rep.Visible = false
	have_rep = false
END IF

parent.TriggerEvent('resize')
end event

type ln_bar from line within w_email_view
long linecolor = 268435456
integer linethickness = 4
integer beginy = 173
integer endx = 3397
integer endy = 173
end type

type ln_bar2 from line within w_email_view
long linecolor = 16777215
integer linethickness = 4
integer beginy = 176
integer endx = 3277
integer endy = 176
end type

type r_bar from rectangle within w_email_view
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 3141
integer y = 3
integer width = 88
integer height = 67
end type

event constructor;this.fillcolor = 14215660
this.linecolor = 14215660
this.x = -1
this.y = -1
this.height = ln_bar.beginy - 5

end event

type tv_1 from treeview within w_email_view
integer y = 179
integer width = 859
integer height = 2093
integer taborder = 40
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
borderstyle borderstyle = stylelowered!
boolean editlabels = true
boolean hasbuttons = false
boolean haslines = false
boolean disabledragdrop = false
boolean hideselection = false
boolean tooltips = false
boolean trackselect = true
string picturename[] = {"email_all.bmp","email_one.bmp","email_rev.bmp","email_send.bmp","email_sent.bmp","email_dust.bmp","graphics\newsout.BMP","graphics\newsin.BMP","graphics\email_bak.bmp"}
long picturemaskcolor = 16777215
long statepicturemaskcolor = 536870912
end type

event selectionchanged;s_tv_data1 tv_data
String ls_msg


IF newhandle <= 0 THEN
	// DONE:不显示列表与内容
	wf_ui_reflash()
	RETURN
END IF
tv_data = wf_tv_getdata(newhandle)
tv_data_move = tv_data
//handle1_email=newhandle


IF tv_data.a_string = C_innerrev THEN
	// DONE: 内部消息收件箱
	wf_dw_retrieve_innermsg_rev()
ELSEIF tv_data.a_string = C_innersend THEN
	// DONE: 内部消息发件箱
	wf_dw_retrieve_innermsg_send()
ELSEIF tv_data.a_string = C_mailbox THEN
	
	// DONE: 邮箱
	Long ll_mailid, ll_boxid
	ll_mailid = tv_data.a_long
	ll_boxid = tv_data.relid
	wf_dw_retrieve_mailmsg(ll_mailid, ll_boxid, tv_data.b_string)
ELSEIF tv_data.a_string = C_smssend THEN
	// DONE: 短信发件箱
	wf_dw_retrieve_smssend()
ELSEIF tv_data.a_string = C_lebox THEN
	wf_dw_retrieve_le(tv_data.relid)
ELSE
	IF dw_list.DataObject <> '' THEN
		dw_list.uf_save_profile_layout()
	END IF
	dw_list.DataObject = ''
END IF
//左边点选邮箱时应直接显示收件箱明细(荣)20130719 star
Long ls_mailid,ls_boxid
String ss_b_string
ss_b_string = "收件箱"

IF tv_data.a_string = "邮箱帐号" THEN
	dw_list.Reset( )
ole_1.Object.document.body.innerhtml = ""
	SELECT mailid Into :ls_mailid From u_email_set  Where mailuser = :tv_data.c_string  And mailAddress = :tv_data.d_string;
	SELECT boxid Into :ls_boxid From u_email_box  Where mailid = :ls_mailid And  boxname = '收件箱' And isdefault = 1;
	wf_dw_retrieve_mailmsg(ls_mailid, ls_boxid, ss_b_string)
END IF
//左边点选邮箱时应直接显示收件箱明细(荣)20130719 end

wf_ui_reflash()

//
//
//s_email_set s_tmp
//dw_list.Reset()
//cur_hand = THIS.FindItem(CurrentTreeItem!,0)
//
//IF THIS.GetItem(cur_hand,l_tvi) = 1 THEN
//	
//	IF FileExists(sys_cur_path + 'temp.html')	 THEN FileDelete(sys_cur_path + 'temp.html')
//	if not isnull(ole_1.object.document.body) then
//		ole_1.object.document.body.innerhtml = ''
//	end if
//	lv_fj.DeleteItems( )
//	
//	IF cur_hand = 1 THEN
//		cur_set.mailid = 0
//	ELSE
////		s_tmp = l_tvi.Data
//		cur_set = l_tvi.Data
//		if cur_set.mailid = -1 then
//			parent.title = '电子邮箱管理' + ' - 内部消息'
//		else
//			parent.title = '电子邮箱管理' + ' - 当前邮箱:' + Trim(cur_set.mailuser) + '<' +  Trim(cur_set.mailAddress) + '>' 
//		end if
//		wf_retrieve()
//	END IF
//	
//END IF
//
//
//


end event

event rightclicked;IF Handle <= 0 THEN RETURN
String menustr = ''

tv_1.SelectItem(Handle)

s_tv_data1 tv_data
tv_data = wf_tv_getdata(Handle)

IF tv_data.a_string = C_innerrev THEN
	
ELSEIF tv_data.a_string = C_innersend THEN
	
ELSEIF tv_data.a_string = C_mailacount THEN
	
	// 新建邮箱
	// 接收当前
	// 发送当前
	// 修改
	// 接收所有
	// 发送所有
	menustr = "Text=新建子目录1~tEvent=ue_newbox"
	menustr = menustr+"|"+"Text=接收当前~tEvent=ue_revcur"
	menustr = menustr+"|"+"Text=发送当前~tEvent=ue_sendcur"
	menustr = menustr+"|"+"Text=-"
	menustr = menustr+"|"+"Text=接收全部~tEvent=ue_revall"
	menustr = menustr+"|"+"Text=发送全部~tEvent=ue_sendall"
	menustr = menustr+"|"+"Text=-"
	menustr = menustr+"|"+"Text=属性~tEvent=ue_emailset_property"
	
ELSEIF tv_data.a_string = C_mailbox THEN
	// 新建邮箱
	// 导入邮件
	// 导出邮件
	
	// 重命名
	// 删除
	Long ll_parentid,ll_old
	String ls_str,ls_parent
	SELECT boxtype,parentid Into :ls_str,:ll_parentid  From u_email_box Where boxid = :tv_data.relid;
	
	SELECT boxtype,parentid Into :ls_parent ,:ll_old  From u_email_box Where boxid = :ll_parentid;
	DO WHILE ls_parent = "新邮箱"
		ll_parentid = 	ll_old
		SELECT boxtype,parentid Into :ls_parent ,:ll_old  From u_email_box Where boxid = :ll_parentid;
	
	LOOP
	menustr = "Text=新建子目录2~tEvent=ue_newbox"
	menustr = menustr+"|"+"Text=导入邮件~tEvent=ue_import_eml"
	IF ls_str = "新邮箱"  And ls_parent = "收件箱" THEN
		menustr = menustr+"|"+"Text=从收件箱移入\移出邮件~tEvent=ue_move_eml"
	END IF
	//	IF ls_str = "新邮箱"  And ls_parent = "发件箱" THEN
	//		menustr = menustr+"|"+"Text=从发件箱移入邮件~tEvent=ue_import_eml"
	//	END IF
	//	IF ls_str = "新邮箱"  And ls_parent = "已发件箱" THEN
	//		menustr = menustr+"|"+"Text=从发件箱移入邮件~tEvent=ue_import_eml"
	//	END IF
	
	
	IF tv_data.b_long <> 1 THEN
		menustr = menustr+"|"+"Text=重命名~tEvent=ue_renamebox"
		menustr = menustr+"|"+"Text=删除~tEvent=ue_delbox"
	END IF
	
ELSEIF tv_data.a_string = C_leroot THEN
	menustr = "Text=接收供应链邮件~tEvent=ue_revlemsg"
	menustr += "|Text=新建子目录3~tEvent=ue_newlebox"
ELSEIF tv_data.a_string = C_lebox THEN
	menustr = "Text=新建子目录4~tEvent=ue_newlebox"
END IF

IF menustr <> '' THEN
	m_Dfc_Control_PopupMenu dmPopupMenu
	dmPopupMenu = Create m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(This, menustr)
	dmPopupMenu.mf_PopMenu()
	Destroy dmPopupMenu
END IF


//
//s_email_set s_tmp
//dw_list.Reset()
//cur_hand = handle
//
//IF THIS.GetItem(cur_hand,l_tvi) = 1 THEN
//	
//	IF FileExists(sys_cur_path + 'temp.html')	 THEN FileDelete(sys_cur_path + 'temp.html')
//	if not isnull(ole_1.object.document.body) then
//		ole_1.object.document.body.innerhtml = ''
//	end if
//	lv_fj.DeleteItems( )
//	
//	IF cur_hand = 1 THEN
//		cur_set.mailid = 0
//	ELSE
////		s_tmp = l_tvi.Data
//		cur_set = l_tvi.Data
//		if cur_set.mailid = -1 then
//			parent.title = '电子邮箱管理' + ' - 内部消息'
//		else
//			parent.title = '电子邮箱管理' + ' - 当前邮箱:' + Trim(cur_set.mailuser) + '<' +  Trim(cur_set.mailAddress) + '>' 
//		end if
//		wf_retrieve()
//	END IF
//	
//	if cur_set.mailid > 0 then	
//		m_Dfc_Control_PopupMenu dmPopupMenu
//		String menustr
//		menustr = "Text=接收当前~tEvent=ue_revcur"
//		menustr = menustr+"|"+"Text=发送当前~tEvent=ue_sendcur"
//		menustr = menustr+"|"+"Text=-"
//		menustr = menustr+"|"+"Text=接收全部~tEvent=ue_revall"
//		menustr = menustr+"|"+"Text=发送全部~tEvent=ue_sendall"
//		menustr = menustr+"|"+"Text=-"
//		menustr = menustr+"|"+"Text=导入~tEvent=ue_import_eml"
//		menustr = menustr+"|"+"Text=属性~tEvent=ue_emailset_property"
//		dmPopupMenu = CREATE m_Dfc_Control_PopupMenu
//		dmPopupMenu.mf_BuildMenu(THIS, menustr)
//		dmPopupMenu.mf_PopMenu()
//		DESTROY dmPopupMenu
//	end if
//END IF
//
//m_email_view om_1
//om_1 = CREATE m_email_view 
//om_1.anyobject = parent 
//om_1.popupmenu(THIS.X+THIS.PointerX(),THIS.Y+THIS.PointerY())
//
//DESTROY om_1


end event

event beginlabeledit;IF Handle <= 0 THEN RETURN

s_tv_data1 tv_data
tv_data = wf_tv_getdata(Handle)

IF tv_data.a_string = C_mailbox THEN
	IF tv_data.b_long = 1 THEN RETURN 1
	wf_tv_settext(Handle, tv_data.b_string)
ELSEIF tv_data.a_string = C_lebox THEN
	IF tv_data.a_long <> 5 THEN RETURN 1
ELSE
	RETURN 1
END IF


end event

event endlabeledit;s_tv_data1 tv_data
tv_data = wf_tv_getdata(Handle)
String ls_msg
IF IsNull(newtext) THEN RETURN 1

IF tv_data.a_string = C_mailbox THEN
	IF tv_data.a_string <> C_mailbox THEN RETURN 1
	IF tv_data.b_long = 1 THEN RETURN 1
	
	uo_email_box box
	box = Create uo_email_box
	box.commit_tran = commit_tran
	box.fj_tran = fj_tran
	IF box.uf_rename(tv_data.relid, newtext, ls_msg) = 1 THEN
		tv_data.b_string = box.boxname
		wf_tv_setdata(Handle, tv_data)
		Long Unread
		Unread = wf_box_getunread(box.boxid)
		Long totle
		totle = wf_box_gettotle(box.boxid)
		String Label
		Label = Trim(box.boxname) + '(' + String(Unread) + '/' + String(totle) + ')'
		wf_tv_settext(Handle, Label)
	ELSE
		MessageBox('重命令失败', ls_msg, stopsign!)
		Destroy box
		RETURN 1
	END IF
	
	Destroy box
ELSEIF tv_data.a_string = C_lebox THEN
	
	uo_ljmail_box uo_box
	uo_box = Create uo_ljmail_box
	
	IF uo_box.uf_rename(tv_data.relid, newtext, ls_msg) <> 1 THEN
		MessageBox('重命令失败', ls_msg, stopsign!)
		Destroy uo_box
		RETURN 1
	ELSE
		tv_data.b_string = newtext
		wf_tv_setdata(Handle, tv_data)
		wf_tv_settext(Handle, newtext)
	END IF
	
	Destroy uo_box
	
END IF


end event

event dragdrop;IF Source = dw_list THEN
	s_tv_data1 tv_data
	tv_data = wf_tv_getdata(Handle)
	
	IF tv_data.a_string = C_mailbox THEN
		// TODO: 电子邮件拖放
		IF dw_list.DataObject <> 'dw_email_view_msg' THEN GOTO ext
		Long i
		String ls_msg
		dw_list.SetRedraw(False)
		FOR i = dw_list.RowCount() To 1 Step -1
			IF dw_list.IsSelected(i) THEN
				
				IF dw_list.Object.boxid[i] = tv_data.relid THEN
					dw_list.SetRedraw(True)
					GOTO ext
				END IF
				
				IF mail.wf_ds_move_msg_box(dw_list.Object.id[i], tv_data.relid, ls_msg) = 1 THEN
					ins_deletingrow = 1
					dw_list.DeleteRow(i)
					ins_deletingrow = 0
				END IF
			END IF
		NEXT
		dw_list.Trigger Event RowFocusChanged(dw_list.GetRow())
		dw_list.SetRedraw(True)
		wf_tv_reflash(wf_tv_getcurrent())
		wf_tv_reflash(Handle)
		
	ELSEIF tv_data.a_string = C_lebox THEN
		
		// TODO: 龙嘉邮件拖放
		
	ELSE
		GOTO ext
	END IF
	
END IF
ext:
SetDropHighlight(0)

end event

event dragwithin;// dragwithin
SetDropHighlight(0)

s_tv_data1 tv_data
tv_data = wf_tv_getdata(handle)
if tv_data.a_string = C_mailbox then
	SetDropHighlight(handle)
end if
end event

type sp_v1 from u_lbs_stsplitbar within w_email_view
integer x = 856
integer y = 186
integer width = 7
integer height = 2093
boolean bringtotop = true
long backcolor = 16777215
integer ii_minobjectsize = 600
end type

type sp_h1 from u_lbs_stsplitbar within w_email_view
integer x = 863
integer y = 1085
integer width = 2710
integer height = 13
boolean bringtotop = true
long backcolor = 16777215
integer ii_style = 2
integer ii_minobjectsize = 600
end type

type ole_1 from olecustomcontrol within w_email_view
event statustextchange ( string text )
event progresschange ( long progress,  long progressmax )
event commandstatechange ( long command,  boolean enable )
event downloadbegin ( )
event downloadcomplete ( )
event titlechange ( string text )
event propertychange ( string szproperty )
event beforenavigate2 ( oleobject pdisp,  any url,  any flags,  any targetframename,  any postdata,  any headers,  ref boolean cancel1 )
event newwindow2 ( ref oleobject ppdisp,  ref boolean cancel1 )
event navigatecomplete2 ( oleobject pdisp,  any url )
event documentcomplete ( oleobject pdisp,  any url )
event onquit ( )
event onvisible ( boolean ocx_visible )
event ontoolbar ( boolean toolbar )
event onmenubar ( boolean menubar )
event onstatusbar ( boolean statusbar )
event onfullscreen ( boolean fullscreen )
event ontheatermode ( boolean theatermode )
event windowsetresizable ( boolean resizable1 )
event windowsetleft ( long left )
event windowsettop ( long top )
event windowsetwidth ( long ocx_width )
event windowsetheight ( long ocx_height )
event windowclosing ( boolean ischildwindow,  ref boolean cancel1 )
event clienttohostwindow ( ref long cx,  ref long cy )
event setsecurelockicon ( long securelockicon )
event filedownload ( ref boolean cancel1 )
event navigateerror ( oleobject pdisp,  any url,  any frame,  any statuscode,  ref boolean cancel1 )
event printtemplateinstantiation ( oleobject pdisp )
event printtemplateteardown ( oleobject pdisp )
event updatepagestatus ( oleobject pdisp,  any npage,  any fdone )
event privacyimpactedstatechange ( boolean bimpacted )
integer x = 863
integer y = 1088
integer width = 1306
integer height = 947
integer taborder = 30
boolean bringtotop = true
borderstyle borderstyle = stylelowered!
boolean focusrectangle = false
string binarykey = "w_email_view.win"
integer textsize = -12
integer weight = 400
fontcharset fontcharset = ansi!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial"
long textcolor = 33554432
end type

event constructor;ole_1.object.navigate('about:blank')
end event

type st_3 from statictext within w_email_view
boolean visible = false
integer x = 1861
integer y = 96
integer width = 201
integer height = 61
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "日期从:"
alignment alignment = right!
boolean focusrectangle = false
end type

event constructor;this.backcolor = 14215660
end event

type em_1 from editmask within w_email_view
boolean visible = false
integer x = 2063
integer y = 77
integer width = 384
integer height = 90
integer taborder = 120
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event rbuttondown;s_calender_arg s_calender
s_calender.PointerX = THIS.PointerX()
s_calender.PointerY = THIS.PointerY()
s_calender.X = THIS.X
s_calender.Y = THIS.Y


OpenWithParm(w_calendar,s_calender)
THIS.Text = String(id_date_selected)


end event

type pb_em1 from picturebutton within w_email_view
boolean visible = false
integer x = 2447
integer y = 74
integer width = 102
integer height = 93
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "date.BMP"
alignment htextalign = left!
end type

event clicked;em_1.triggerevent(rbuttondown!)
end event

type st_4 from statictext within w_email_view
boolean visible = false
integer x = 2542
integer y = 96
integer width = 106
integer height = 61
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 134217739
boolean enabled = false
string text = "到:"
alignment alignment = right!
boolean focusrectangle = false
end type

event constructor;this.backcolor = 14215660
end event

type em_2 from editmask within w_email_view
boolean visible = false
integer x = 2648
integer y = 77
integer width = 384
integer height = 90
integer taborder = 130
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
borderstyle borderstyle = stylelowered!
maskdatatype maskdatatype = datemask!
string mask = "yyyy-mm-dd"
boolean spin = true
end type

event rbuttondown;s_calender_arg s_calender
s_calender.PointerX = THIS.PointerX()
s_calender.PointerY = THIS.PointerY()
s_calender.X = THIS.X
s_calender.Y = THIS.Y


OpenWithParm(w_calendar,s_calender)
THIS.Text = String(id_date_selected)


end event

type pb_em2 from picturebutton within w_email_view
boolean visible = false
integer x = 3032
integer y = 74
integer width = 102
integer height = 93
integer taborder = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "date.BMP"
alignment htextalign = left!
end type

event clicked;em_2.triggerevent(rbuttondown!)
end event

type pb_2 from picturebutton within w_email_view
boolean visible = false
integer x = 3131
integer y = 74
integer width = 102
integer height = 93
integer taborder = 60
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string picturename = "date1.BMP"
alignment htextalign = left!
end type

event clicked;m_Dfc_Control_PopupMenu dmPopupMenu
string menustr


menustr="Text=本日~tEvent=ue_date1"
menustr = menustr + "|" + "Text=本周~tEvent=ue_date2"
menustr = menustr + "|" + "Text=本月~tEvent=ue_date3"
	
if len(trim(menustr))<>0 then
	dmPopupMenu = Create m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(This, menustr)
	dmPopupMenu.mf_PopMenu()
	Destroy dmPopupMenu
end if
end event

type p_1 from picture within w_email_view
boolean visible = false
integer x = 3255
integer y = 83
integer width = 73
integer height = 64
boolean bringtotop = true
string pointer = "HyperLink!"
string picturename = "graphics\refresh.BMP"
boolean focusrectangle = false
end type

event clicked;st_refresh.triggerevent(clicked!)
end event

type st_refresh from statictext within w_email_view
boolean visible = false
integer x = 3328
integer y = 93
integer width = 135
integer height = 48
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string pointer = "HyperLink!"
long textcolor = 33554432
long backcolor = 134217739
string text = "刷新"
boolean focusrectangle = false
end type

event clicked;wf_retrieve()
end event

event constructor;this.backcolor = 14215660
end event

type dw_user from u_dw_rbtnfilter within w_email_view
integer x = 1543
integer y = 186
integer width = 618
integer height = 906
integer taborder = 20
boolean bringtotop = true
string title = "确认列表"
string dataobject = "dw_objdpm_user_cmmt_copy"
boolean hscrollbar = true
boolean vscrollbar = true
boolean livescroll = false
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
string cur_allowversion = "0"
end type

type dw_list from u_dw_rbtnfilter within w_email_view
event mousemove pbm_mousemove
event lbuttondown pbm_lbuttondown
event lbuttonup pbm_lbuttonup
integer x = 863
integer y = 186
integer width = 680
integer height = 899
integer taborder = 20
string dragicon = "graphics\Shell32 025.ico"
boolean bringtotop = true
string dataobject = "dw_email_view_msg"
boolean hscrollbar = true
boolean vscrollbar = true
boolean rbutton_filter_use = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
string cur_allowversion = "0"
end type

event mousemove;if dw_list.dataobject <> 'dw_email_view_msg' then return
if keydown(keyleftbutton!)  then
	long i
	for i = 1 to dw_list.RowCount()
		if dw_list.IsSelected(i) then
			if ins_candrag then
				dw_list.Drag(begin!)
				ins_candrag = false
				return				
			end if
		end if
	next
end if
end event

event lbuttondown;SetCapture(handle(this))
end event

event lbuttonup;ins_candrag = false
ReleaseCapture()
end event

event rowfocuschanged;call super::rowfocuschanged;// 界面
//messagebox('rowfoucuschanged',string(this.dataobject))


IF ins_deletingrow = 1 THEN RETURN
currentrow = this.getrow()
IF Not KeyDown(keycontrol!) THEN
	wf_ui_unselectall()
	This.SelectRow(0, False)
	IF currentrow > 0 THEN
		This.SelectRow(currentrow, True)
		wf_read_row(currentrow)
		wf_tv_reflash(wf_tv_getcurrent())
	END IF
END IF


Long ll_id
String ls_msg
s_email_lvfj s_lvfj[]
// DONE: 刷新文本与关联datawindow, 刷新UI
String ls_text = '' // 最终在浏览器显示
dw_user.Reset()
dw_rep.Reset()
dw_fj.Reset()
dw_mail.Reset()
lv_fj.DeleteItems()

have_user = False
have_fj = False
IF IsNull(currentrow) Or currentrow <= 0  THEN
	GOTO ext
END IF
IF dw_list.DataObject = 'dw_deal_admsg_1_copy' THEN // 内部消息收
	ll_id = dw_list.Object.sys_admsgmx_msgid[currentrow]
	IF wf_admsg_gethtml(ll_id, ls_text, ls_msg) <> 1 THEN
		MessageBox('错误', ls_msg, stopsign!)
		GOTO ext
	END IF
	have_rep = False
	have_inout = False
	// 刷新附件
	wf_admsg_getfj(ll_id, s_lvfj, ls_msg)
	
ELSEIF dw_list.DataObject = 'dw_hismsg_copy' THEN // 内部消息发
	ll_id = dw_list.Object.msgid[currentrow]
	IF wf_admsg_gethtml(ll_id, ls_text, ls_msg) <> 1 THEN
		MessageBox('错误', ls_msg, stopsign!)
		GOTO ext
	END IF
	have_rep = False
	have_inout = False
	have_user = True
	dw_user.Retrieve(ll_id)
	
	// 刷新附件
	wf_admsg_getfj(ll_id, s_lvfj, ls_msg)
	
	ELSEIF dw_list.DataObject = 'dw_email_view_msg'  Or dw_list.DataObject = 'dw_email_view_msg_rev'THEN
	
	ll_id = dw_list.Object.id[currentrow]
	IF wf_mail_gethtml(ll_id, ls_text, ls_msg) <> 1 THEN
		MessageBox('错误', ls_msg, stopsign!)
		GOTO ext
	END IF
	
	// 刷新附件
	wf_mail_getfj(ll_id, s_lvfj, ls_msg)
	
	// rep
	dw_rep.Retrieve(ll_id)
	// mail
	// fj
	lss_subject=""
	lss_sendman=""
	lss_senddate=""
	lss_subject=dw_list.Object.subject[currentrow]
	lss_sendman=dw_list.Object.sendman[currentrow]
	lss_senddate=string(dw_list.Object.revdate[currentrow])
	lss_revdate=string(dw_list.Object.u_email_msg_senddate[currentrow])
ELSEIF dw_list.DataObject = 'dw_sms_spring_send' THEN
	
	ll_id = dw_list.Object.sendid[currentrow]
	SELECT msg
		INTO :ls_text
		FROM u_spring_send
		Where sendid = :ll_id; 
	IF sqlca.SQLCode <> 0 THEN
		MessageBox('错误', '查询短信内容失败,' + sqlca.SQLErrText, stopsign!)
		GOTO ext
	END IF
	have_user = True
	wf_dw_retrieve_smssendmx()
	
ELSEIF dw_list.DataObject = 'dw_ljmail_msg' THEN
	
	IF Not has_fj_tran THEN
		MessageBox('提示','未设置邮件数据库!',information!,OK!)
		RETURN
	END IF
	uo_ljmail_msg uo_ljmail
	uo_ljmail = Create uo_ljmail_msg
	uo_ljmail.commit_transaction = fj_tran
	
	IF uo_ljmail.uf_get_html(dw_list.Object.msgid[currentrow], ls_text, ls_msg) <> 1 THEN
		MessageBox('错误', ls_msg, stopsign!)
	END IF
	
	Destroy uo_ljmail
	
ELSE
	GOTO ext
END IF


// 根据所选设置 have_user, have_fj

ext:
ListViewItem lvi
Long i
FOR i = 1 To UpperBound(s_lvfj)
	lvi.Label = s_lvfj[i].Filename
	lvi.PictureIndex = 1
	lvi.Data = s_lvfj[i]
	lv_fj.AddItem(lvi)
	have_fj = True
NEXT


wf_html_set(ls_text)

Parent.TriggerEvent('resize')

//dw_rep.Reset()
//dw_mail.Reset()
//dw_fj.Reset()
////tab_1.tabpage_1.mle_text.Text = ''
////tab_1.tabpage_2.ole_html.Object.navigate('about:blank')
//lv_fj.DeleteItems( )
//ole_1.object.navigate('about:blank')
//dw_user.reset()
//have_user = false
//
//IF currentrow = 0 THEN RETURN
//THIS.SelectRow(0,FALSE)
//THIS.SelectRow(currentrow,TRUE)
//if dw_list.dataobject = 'dw_email_view_rev' then
//	if dw_list.object.mailtype[currentrow] = 0 then
//		dw_list.object.filename[currentrow] = 'graphics\unread_select.bmp'
//	else
//		dw_list.object.filename[currentrow] = 'graphics\read_select.bmp'
//	end if
//	dw_list.accepttext()
//end if
//
//Long ll_id,ll_fjtype
//String ls_msg ,ls_address
//IF dw_list.GetRow() =  0 THEN RETURN
//
//// 内部消息
//if cur_set.mailid = -1 then
//	
//	
//	s_email_lvfj s_lvfj
//	listviewitem l_lvi
//	long count = 1, ll_size
//	have_fj = false
//	if cur_set.viewtype = 1 then
//		ll_id = dw_list.object.sys_admsgmx_msgid[dw_list.getrow()]
//	elseif cur_set.viewtype = 2 then
//		ll_id = dw_list.object.msgid[dw_list.getrow()]
//	else
//		parent.triggerevent('resize')
//		return
//	end if
//	// 正文
//	IF FileExists(Pathname)	 THEN FileDelete(Pathname)
//	select datalength(s_msg) INTO :ll_size 
//		from Sys_admsg
//		where msgid = :ll_id;
//	if sqlca.sqlcode <> 0 then
//		MessageBox('错误', '查询正文长度失败')
//		return
//	end if
//	
//	blob lb_text
//	if ll_size > 2048 then
//		selectblob s_msg INTO :lb_text 
//			from Sys_admsg
//			where msgid = :ll_id;
//		if sqlca.sqlcode <> 0 then
//			MessageBox('错误',  '下载正文数据失败')
//			return
//		end if
//	else
//		string ls_text
//		select s_msg INTO :ls_text
//			from Sys_admsg
//			where msgid = :ll_id;
//		if sqlca.sqlcode <> 0 then
//			MessageBox('错误', '下载正文失败')
//			return
//		end if
//		lb_text = blob(ls_text)
//	end if
//	
//	IF f_blobtofile(Pathname,lb_text,ls_msg) = 0 THEN
//		MessageBox('错误', ls_msg)
//		return
//	END IF
//	DO WHILE pos(Pathname,'\',1) > 0
//		Pathname = Replace(Pathname,pos(Pathname,'\',1),1,'/')
//	LOOP
//	ole_1.object.navigate('file:///' + Pathname)
//
//	
//	// 附件
//	declare cursorfj cursor for
//		select fjid,filename, filesize from Sys_admsg_fj where msgid = :ll_id;
//	open cursorfj;
//	fetch cursorfj INTO :s_lvfj.fjid, :s_lvfj.filename, :s_lvfj.filesize;
//	do while (sqlca.sqlcode = 0)
//		s_lvfj.relid = ll_id
//		l_lvi.label = s_lvfj.filename
//		l_lvi.pictureindex = 1
//		l_lvi.data = s_lvfj
//		lv_fj.additem(l_lvi)
//		have_fj = true
//		fetch cursorfj INTO :s_lvfj.fjid, :s_lvfj.filename, :s_lvfj.filesize;
//	loop
//	close cursorfj;
//	lv_fj.visible = have_fj
//	
//	// 确认列表
//	if cur_set.viewtype = 2 then
//		have_user = true
//		dw_user.retrieve(ll_id)
//	end if
//	
//	parent.triggerevent('resize')	
//	return
//end if
//////////////////
//
//
//ll_fjtype = dw_list.Object.fjtype[dw_list.GetRow()]
//ll_id = dw_list.Object.id[dw_list.GetRow()]
//cur_address = dw_list.Object.sendaddress[dw_list.GetRow()]
//IF wf_retrievemx(ll_id,ll_fjtype,cur_address,ls_msg) = 0 THEN
//	MessageBox('错误',ls_msg)
//	return
//END IF
//wf_set_read(dw_list.GetRow())


end event

event rowfocuschanging;call super::rowfocuschanging;//if currentrow <= 0 OR currentrow > dw_list.rowcount() then return
//if dw_list.dataobject = 'dw_email_view_msg' then
//	if dw_list.object.status[currentrow] = '未读' then
//		dw_list.object.filename[currentrow] = 'graphics\unread.bmp'
//	else
//		dw_list.object.filename[currentrow] = 'graphics\read.bmp'
//	end if
//	dw_list.accepttext( )
//end if
end event

event rbuttondown;//call super::rbuttondown;
IF row <= 0 THEN
	CALL Super::RButtonDown
	RETURN
END IF
IF KeyDown(keyLeftButton!) THEN
	CALL Super::RButtonDown
ELSE
	IF Not dw_list.IsSelected(row) THEN
		This.ScrollToRow(row)
	END IF
	//	this.selectrow(0, false)
	//	this.selectrow(row, true)
	m_Dfc_Control_PopupMenu dmPopupMenu
	String menustr
	IF dw_list.DataObject = 'dw_deal_admsg_1_copy' THEN
		//		menustr = "Text=刷新信息~tEvent=ue_msg_retr"
		//		menustr = menustr+"|"+"Text=-"
		//		menustr = menustr+"|"+"Text=回复信息~tEvent=ue_msg_back"
		//		menustr = menustr+"|"+"Text=确认信息~tEvent=ue_msg_del"
		//		menustr = menustr+"|"+"Text=-"
		//		menustr = menustr+"|"+"Text=查看历史~tEvent=ue_msg_his"
		//		menustr = menustr+"|"+"Text=-"
		//		IF ls_dealflag = 0 THEN
		//			menustr = menustr+"|"+"Text=只显示待确认消息√~tEvent=ue_msg_view1"
		//			menustr = menustr+"|"+"Text=显示全部消息~tEvent=ue_msg_view2"
		//		ELSE
		//			menustr = menustr+"|"+"Text=只显示待确认消息~tEvent=ue_msg_view1"
		//			menustr = menustr+"|"+"Text=显示全部消息√~tEvent=ue_msg_view2"
		//		END IF
		//		menustr = menustr+"|"+"Text=-"
		//		menustr = menustr + "|" + "Text=转发~tEvent=ue_sendother"
		CALL Super::RButtonDown
	ELSEIF dw_list.DataObject = 'dw_email_view_msg' THEN
		Long i, ll_cnt = 0
		FOR i = 1 To dw_list.RowCount()
			IF dw_list.IsSelected(i) THEN
				ll_cnt ++
				IF ll_cnt > 1 THEN
					EXIT
				END IF
			END IF
		NEXT
		IF ll_cnt > 1 THEN
			menustr = "Text=导出~tEvent=ue_export_eml"
			menustr = menustr + "|" + "Text=-"
			menustr = menustr + "|" + "Text=删除~tEvent=ue_del"
		ELSE
			menustr = "Text=回复~tEvent=ue_reply"
			menustr = menustr + "|" + "Text=转发~tEvent=ue_sendother"
			menustr = menustr + "|" + "Text=导出~tEvent=ue_export_eml"
			menustr = menustr + "|" + "Text=-"
			menustr = menustr + "|" + "Text=删除~tEvent=ue_del"
		END IF
	END IF
	IF Len(Trim(menustr)) <> 0 THEN
		dmPopupMenu = Create m_Dfc_Control_PopupMenu
		dmPopupMenu.mf_BuildMenu(This, menustr)
		dmPopupMenu.mf_PopMenu()
		Destroy dmPopupMenu
	END IF
END IF

end event

event doubleclicked;call super::doubleclicked;IF dw_list.GetRow() = 0 THEN RETURN
s_email_set s_parm
String ls_msg

IF dw_list.DataObject = 'dw_email_view_msg' THEN
	
	s_parm.mailid = dw_list.Object.mailid[dw_list.GetRow()]
	IF wf_ds_get_mail_set(s_parm.mailid, s_parm, ls_msg) <> 1 THEN
		MessageBox('错误', ls_msg, stopsign!)
		RETURN
	END IF
	s_parm.sendid = dw_list.Object.id[dw_list.GetRow()]
	IF dw_list.Object.mailtype[dw_list.GetRow()] = '发件' THEN
		OpenWithParm(w_email_send_new,s_parm)
	ELSE
		
		Long arr[]
		Long i
		FOR i = 1 To dw_list.RowCount()
			arr[i] = dw_list.Object.id[i]
		NEXT
		s_parm.arr = arr
		s_parm.cur = dw_list.GetRow()
		OpenWithParm(w_email_rev, s_parm)
	END IF
	
ELSEIF dw_list.DataObject = 'dw_sms_spring_send' THEN
	
	//	IF dw_list.Object.sendflag = 2 THEN
	s_spring_send s_send
	uo_spring_send uo_send
	uo_send = Create uo_spring_send
	uo_send.commit_transaction = sqlca
	IF uo_send.uf_getinfo_withmx(dw_list.Object.sendid[dw_list.GetRow()], Ref s_send, Ref ls_msg) = 0 THEN
		Destroy uo_send
		MessageBox('错误', ls_msg, stopsign!)
		RETURN
	END IF
	Destroy uo_send
	OpenWithParm(w_sms_send_new, s_send)
	//	END IF
	
ELSEIF dw_list.DataObject = 'dw_ljmail_msg' THEN
	
	IF dw_list.GetRow() > 0 THEN
		s_ljmail_msg_parm s_msg_parm
		s_msg_parm.msgid = dw_list.Object.msgid[dw_list.GetRow()]
		OpenWithParm(w_ljmail_msg_send, s_msg_parm)
	END IF
ELSEIF dw_list.DataObject = 'dw_deal_admsg_1_copy' THEN
	IF dwo.Name = 'sys_admsgmx_billcode' THEN
		Parent.TriggerEvent('ue_viewbill_msg')
	END IF
END IF


//IF dw_list.GetRow() = 0 THEN RETURN
//
//Long i,ll_fjtype
//
//if cur_set.mailid = -1 then return
//
//dw_list.AcceptText()
//ll_fjtype = dw_list.Object.fjtype[dw_list.GetRow()]
//CHOOSE CASE ll_fjtype
//	CASE 1
//		s_edit_index_tran s_tran
//		Long  cur_revid[]
//		s_tran.b_long = dw_list.GetRow()
//		s_tran.c_long = dw_list.RowCount()
//		
//		FOR i = 1 TO dw_list.RowCount()
//			cur_revid[i] = dw_list.Object.id[i]
//		NEXT
//		s_tran.arr_long = cur_revid
//		OpenWithParm(w_email_rev,s_tran)
//		
//	CASE 0
//		s_email_set s_parm
//		s_parm = cur_set
//		s_parm.sendid = dw_list.Object.id[dw_list.GetRow()]
//		
//		OpenWithParm(w_email_send_new,s_parm)
//		
//END CHOOSE
//
//
//
//


end event

event clicked;call super::clicked;Long ll_mailid,ll_NTFlag
String ls_status


IF row > 0 THEN
	ins_candrag = True
ELSE
	RETURN
END IF


IF This.DataObject = 'dw_email_view_msg' And KeyDown(keycontrol!) THEN
	IF row > 0 THEN
		This.SelectRow(row, Not This.IsSelected(row))
		wf_ui_row(row)
		RETURN 1 // 如果不刷新其它内容
	END IF
ELSEIF This.DataObject = 'dw_email_view_msg' And KeyDown(keyshift!) THEN
	IF row > 0 THEN
		wf_ui_unselectall()
		This.SelectRow(0, False)
		Long i
		
		IF dw_list.GetRow() > row THEN
			FOR i = row To dw_list.GetRow()
				This.SelectRow(i, True)
				wf_ui_row(i)
			NEXT
		ELSE
			FOR i = row To dw_list.GetRow() Step -1
				This.SelectRow(i, True)
				wf_ui_row(i)
			NEXT
		END IF
		
		
		RETURN 1 // 如果不刷新其它内容
	END IF
ELSE
	
	IF row > 0 THEN
		
		IF This.DataObject = 'dw_email_view_msg' And dwo.Name = 'filename' THEN
			wf_revert_read(row)
			wf_tv_reflash(wf_tv_getcurrent())
			RETURN 1 // 只更改 未读 已读 状态
		END IF
		//		
		//		if this.dataobject = 'dw_email_view_msg_rev' AND dwo.Name = 'filename' then
		//			wf_revert_read(row)
		//			wf_tv_reflash(wf_tv_getcurrent())
		//			return 1 // 只更改 未读 已读 状态
		//		end if
		//2012929-1648
		//		if this.IsSelected(row) then
		//			return 1
		//		end if
		
		/////////////////////////// //
		// 内部消息确认
		IF This.DataObject = 'dw_deal_admsg_1_copy' And dwo.Name = 'bt_deal' THEN
			IF MessageBox ("IF","是否确定要确认当前消息记录?"+' '+String(dw_list.Object.sys_admsgmx_s_msgtitle[row]),Question!,YesNo! ) = 2 THEN RETURN 1
			Long ls_msgid, ls_empid, ls_senddtint, rslt
			String arg_msg
			ls_msgid = dw_list.Object.sys_admsgmx_msgid[row]
			ls_empid = dw_list.Object.sys_admsgmx_empid[row]
			ls_senddtint = dw_list.Object.sys_admsgmx_senddtint[row]
			
			uo_transmsg uo_itransmsg
			
			rslt = uo_itransmsg.f_redeal_admsg(ls_msgid,ls_senddtint,ls_empid,arg_msg,True)
			IF rslt = 0 THEN
				MessageBox('提示',arg_msg, Information!, OK! )
			ELSE
				wf_dw_retrieve_innermsg_rev()
			END IF
			RETURN 1
		END IF
		/////////////////////// //
		
		// rowfocuschanged
		dw_list.ScrollToRow(row)
	END IF
END IF

///////////////////////////////////// //回执
s_email_set s_parm_huizi
String ls_msg
IF This.DataObject = 'dw_email_view_msg' THEN
	IF dw_list.Object.mailtype[dw_list.GetRow()] = "收件"  THEN
		ll_mailid = Long(dw_list.Object.id[dw_list.GetRow()])
		SELECT NTFlag Into :ll_NTFlag From u_email_msg Where id = :ll_mailid Using fj_tran;
		IF ll_NTFlag = 1 THEN
			
			
			s_parm_huizi.id = dw_list.Object.id[dw_list.GetRow()]
			s_parm_huizi.mailid = dw_list.Object.mailid[dw_list.GetRow()]
			
			IF wf_ds_get_mail_set(s_parm_huizi.mailid, s_parm_huizi, ls_msg) <> 1 THEN
				RETURN
			END IF
			
			s_parm_huizi.flag = 1
			s_parm_huizi.revuser = dw_list.Object.senduser[dw_list.GetRow()]
			s_parm_huizi.revaddress = dw_list.Object.sendaddress[dw_list.GetRow()]
			s_parm_huizi.relid = dw_list.Object.id[dw_list.GetRow()]
			s_parm_huizi.reltype = 3
			s_parm_huizi.Subject = " " //带主题
			
			
			//			s_parm_huizi.mailid = 0
			//			s_parm_huizi.mailuser = tv_data_move.c_string
			//			s_parm_huizi.mailAddress = tv_data_move.d_string
			//			s_parm_huizi.revaddress = dw_list.Object.sendman[dw_list.GetRow()]
			OpenWithParm(w_email_huizi,s_parm_huizi)
			
			//			messagebox("","需要回执")
		END IF
	END IF
END IF

//////////////////////////////////// //回执

//if (dw_list.dataobject = 'dw_email_view_rev') and (dwo.Name = 'filename') and row > 0 then
//	if dw_list.object.mailtype[row] = 0 then
//		wf_set_read(row)
//	else
//		wf_set_unread(row)
//	end if
//	return 1
//end if
//THIS.SetRow(row)
//
//


end event

event buttonclicked;call super::buttonclicked;//Long rslt = 1,ls_msgid ,ls_empid,ls_senddtint
//String arg_msg
//IF (cur_set.mailid = -1 and cur_set.viewtype = 1) and dwo.Name = 'bt_deal' AND row > 0 THEN
//	IF MessageBox ("IF","是否确定要确认当前消息记录?"+' '+String(this.Object.sys_admsgmx_s_msgtitle[row]),Question!,YesNo! ) = 2 THEN RETURN
//	ls_msgid = this.Object.sys_admsgmx_msgid[row]
//	ls_empid = this.Object.sys_admsgmx_empid[row]
//	ls_senddtint = this.Object.sys_admsgmx_senddtint[row]
//	
//	uo_transmsg uo_itransmsg
//	
//	rslt = uo_itransmsg.f_redeal_admsg(ls_msgid,ls_senddtint,ls_empid,arg_msg,TRUE)
//	IF rslt = 0 THEN
//		MessageBox('提示',arg_msg, Information!, OK! )
//	ELSE
//		wf_retrieve()
//	END IF
//END IF
//
//
end event

type cb_1 from uo_imflatbutton within w_email_view
event ue_set_email_move ( )
integer x = 1317
integer width = 176
integer height = 163
integer taborder = 40
boolean bringtotop = true
string text = "设置"
string normalpicname = "imexport.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;m_Dfc_Control_PopupMenu dmPopupMenu
String menustr


	menustr = "Text=设置签名~tEvent=ue_set_signature"
     menustr = menustr + "|" + "Text=设置客户资料~tEvent=ue_set_cust"
	 menustr = menustr + "|" + "Text=设置收件分类~tEvent=ue_set_email_move"
	 menustr = menustr + "|" + "Text=设置自动收件时间间隔~tEvent=ue_autorev"
      menustr = menustr + "|" + "Text=邮件短信接收人自定义分组~tEvent=ue_rep_group"   
IF len(Trim(menustr)) <> 0 THEN
	dmPopupMenu = CREATE m_Dfc_Control_PopupMenu
	dmPopupMenu.mf_BuildMenu(THIS, menustr)
	dmPopupMenu.mf_PopMenu()
	DESTROY dmPopupMenu
END IF


end event

type st_del from uo_text_m_main within w_email_view
boolean visible = false
integer x = 1953
integer y = 109
integer width = 230
integer height = 51
boolean bringtotop = true
integer textsize = -9
string text = "确认信息"
end type

event clicked;call super::clicked;parent.triggerevent('ue_msg_del')
end event

event constructor;call super::constructor;this.backcolor = 14215660
end event

type p_del from picture within w_email_view
boolean visible = false
integer x = 1872
integer y = 96
integer width = 73
integer height = 64
boolean bringtotop = true
boolean originalsize = true
string picturename = "graphics\ok.bmp"
boolean focusrectangle = false
end type

event clicked;st_del.triggerevent(clicked!)
end event

type cbx_showmeredeal from checkbox within w_email_view
boolean visible = false
integer x = 2216
integer y = 109
integer width = 534
integer height = 51
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "只显示待确认消息"
boolean checked = true
end type

event clicked;IF This.Checked THEN
	ls_dealflag = 0
ELSE
	ls_dealflag = -1
END IF

wf_retrieve()

end event

event constructor;this.backcolor = 14215660
end event

type cb_viewbill from commandbutton within w_email_view
boolean visible = false
integer x = 2790
integer y = 83
integer width = 311
integer height = 83
integer taborder = 70
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "查看单据"
end type

event clicked;parent.triggerevent('ue_viewbill_msg')
end event

type cb_view_his from commandbutton within w_email_view
boolean visible = false
integer x = 3141
integer y = 83
integer width = 311
integer height = 83
integer taborder = 80
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
string text = "查看历史"
end type

event clicked;parent.triggerevent('ue_msg_his')
end event

type sle_find from singlelineedit within w_email_view
event keydown pbm_keydown
integer x = 2055
integer y = 58
integer width = 640
integer height = 90
integer taborder = 20
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
end type

event keydown;IF Key = keyenter! THEN
cb_find.trigger event clicked()
end if
end event

type cb_find from uo_imflatbutton within w_email_view
integer x = 2710
integer y = 48
integer width = 304
integer height = 99
integer taborder = 40
boolean bringtotop = true
string text = "查找"
string normalpicname = "PREVIEW.BMP"
integer picsize = 16
end type

event clicked;call super::clicked;String ls_date
IF Trim(sle_find.Text) = "" THEN RETURN
ls_date = "'%" +  Trim(sle_find.Text) + "%'"
//dw_list.SetFilter("subject like '%" + ls_date + "%' "  )
ls_date = "(subject like " + ls_date  +  ")  or  (sendman like "  +  ls_date  + ")"  +  " or  (revman like "  +  ls_date  + ")"


dw_list.SetFilter( ls_date)
dw_list.Filter()
dw_list.SetFilter("")

end event

type ddlb_1 from dropdownlistbox within w_email_view
integer x = 3229
integer y = 61
integer width = 260
integer height = 278
integer taborder = 90
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
string item[] = {"全部","已发","未发"}
borderstyle borderstyle = stylelowered!
end type

event constructor;//this.enabled = false
this.text = '全部'
end event

event selectionchanged;IF THIS.TEXT ='已发' then
	cur_send = 1
elseif THIS.TEXT ='未发' then
	cur_send =0 
else
	cur_send = -1
end if

wf_dw_retrieve_smssend()

end event

type em_3 from editmask within w_email_view
integer x = 3021
integer y = 58
integer width = 187
integer height = 83
integer taborder = 30
boolean bringtotop = true
integer textsize = -9
integer weight = 400
fontcharset fontcharset = gb2312charset!
fontpitch fontpitch = variable!
string facename = "宋体"
long textcolor = 33554432
long backcolor = 16777215
string text = "100"
alignment alignment = right!
borderstyle borderstyle = stylelowered!
string mask = "##0"
string minmax = "0~~"
end type


Start of PowerBuilder Binary Data Section : Do NOT Edit
0Fw_email_view.bin 
2800000a00e011cfd0e11ab1a1000000000000000000000000000000000003003e0009fffe000000060000000000000000000000010000000100000000000010000000000200000001fffffffe0000000000000000fffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffdfffffffefffffffefffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff006f00520074006f004500200074006e00790072000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000050016ffffffffffffffff000000010000000000000000000000000000000000000000000000000000000018577f8001d20f3000000003000001800000000000500003004f0042005800430054005300450052004d0041000000000000000000000000000000000000000000000000000000000000000000000000000000000102001affffffff00000002ffffffff000000000000000000000000000000000000000000000000000000000000000000000000000000000000009c00000000004200500043004f00530058004f00540041005200450047000000000000000000000000000000000000000000000000000000000000000000000000000000000001001affffffffffffffff000000038856f96111d0340ac0006ba9a205d74f0000000018577f8001d20f3018577f8001d20f30000000000000000000000000004f00430054004e004e00450053005400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001020012ffffffffffffffffffffffff000000000000000000000000000000000000000000000000000000000000000000000000000000030000009c000000000000000100000002fffffffe0000000400000005fffffffeffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
24ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff0000004c00001d8f0000187f0000000000000000000000000000000000000000000000000000004c0000000000000000000000010057d0e011cf3573000869ae62122e2b00000008000000000000004c0002140100000000000000c0460000000000008000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004c00001d8f0000187f0000000000000000000000000000000000000000000000000000004c0000000000000000000000010057d0e011cf3573000869ae62122e2b00000008000000000000004c0002140100000000000000c0460000000000008000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
1Fw_email_view.bin 
End of PowerBuilder Binary Data Section : No Source Expected After This Point