Personal Property Information Screen

#INCLUDE "AlnStandard.Inc" FUNCTION MainProgram() AS LONG DEFSNG a-z DIM fp$(20) fp%=0:perm$="":temp$="" SQLResult& = SQL_OpenDB ("Driver={SQL Server};Server=192.168.131.50;Database=ALNUberBob;Uid=AlnData;Pwd=dr1ver;PORT=1433") IF SQLResult&=%SQL_ERROR THEN STDOUT "Content-type: text/html STDOUT STDOUT "Personal Property Information Screen STDOUT " STDOUT "Could not connect to database:" STDOUT SQL_ErrorQuickOne EXIT FUNCTION END IF g$=http_cookie() g$=MID$(g$,INSTR(g$,"user="),255) IF LEFT$(g$,5)<>"user=" AND LEFT$(g$,8)<>"user=ONL" THEN STDOUT "You must sign in to ALN properly. Click here to continue" EXIT FUNCTION END IF user$=MID$(g$,17,30):li$=MID$(g$,9,8) pl$=MID$(g$,47,2):nl$=MID$(g$,49,1):so$=MID$(g$,50,1):acct$=MID$(g$,51,8)+" ":acct$=LEFT$(acct$,8):searchnum$=MID$(g$,59,15) acct1$=MyRTrim(acct$) AccountBase$=acct1$ acct2$=acct1$+".sch" IF VAL(searchnum$)>1000 THEN acct1$=acct1$+".sch" ELSE acct1$=acct1$+".qs" IF VAL(searchnum$)=0 THEN searchnum$=" 0" l1$=readcgi() popup$=UCASE$(cgiparam(l1$,"p")) id=VAL(l1$) IF id<1167 THEN STDOUT "Content-type: text/html STDOUT STDOUT "Personal Property Information Screen STDOUT " STDOUT "Click on the BACK or PREVIOUS button supplied on you browser":EXIT FUNCTION END IF db$=WhichDb(acct$) IF LEN(l1$)<6 THEN IF VAL(LEFT$(l1$,1))>0 THEN l1$=db$+l1$ ' add a "D" if numbers only sql$="select aptname from apartments where oldalnid='"+l1$+"'" ELSE sql$="select aptname from apartments where alnid="+FORMAT$(VAL(l1$)) END IF SQLResult& = SQL_Stmt(%SQL_STMT_IMMEDIATE,sql$) SQL_FETCH %NEXT_ROW IF SQL_EOD THEN STDOUT "** APT NOT FOUND ** "+l1$ EXIT FUNCTION END IF STDOUT "Content-type: text/html STDOUT "Pragma: no-cache" STDOUT "Cache-Control: no-cache" STDOUT STDOUT "Personal Property Information Screen IF UCASE$(popup$)<>"Y" THEN STDOUT " ELSE STDOUT " END IF STDOUT "

"+dbfield("aptname")+"

STDOUT "To remove a note, erase everything in the box and click on SAVE STDOUT " temp$="" sql$="select * from locatornotes where oldaccount="+QuotedStr(AccountBase$) sql$=sql$+" and notetype='T' and searchnumber="+searchnum$+" and propertyid="+FORMAT$(VAL(l1$)) SQLResult& = SQL_Stmt(%SQL_STMT_IMMEDIATE,sql$) SQL_FETCH %NEXT_ROW IF NOT SQL_EOD THEN temp$=dbfield("mynote") END IF IF temp$="" OR LEFT$(temp$,10)<=" " THEN temp$="" REPLACE "
" WITH CHR$(13)+CHR$(10) IN temp$ STDOUT " STDOUT " STDOUT " STDOUT " STDOUT " STDOUT " STDOUT " STDOUT " STDOUT " STDOUT " STDOUT " STDOUT " STDOUT " STDOUT "

The notes to the right are temporary notes on this property that you will print only for this one specific customer. Simply type anything (up to 200 characters) that you want to print only STDOUT " for this customer concerning this one specific property and then click on the 'SAVE' button to the right. STDOUT " STDOUT " STDOUT " STDOUT "" STDOUT "	Save A Temporary Note About This Property For Only This Client: STDOUT ""+temp$; STDOUT "
perm$="" sql$="select * from locatornotes where oldaccount="+QuotedStr(AccountBase$) sql$=sql$+" and notetype='P' and propertyid="+FORMAT$(VAL(l1$)) SQLResult& = SQL_Stmt(%SQL_STMT_IMMEDIATE,sql$) SQL_FETCH %NEXT_ROW IF NOT SQL_EOD THEN perm$=dbfield("mynote") END IF IF perm$="" OR LEFT$(perm$,10)<=" " THEN perm$="" REPLACE " " WITH CHR$(13)+CHR$(10) IN perm$ STDOUT "
The notes to the right are permanent notes on this property that you will always print whenever you print this property for your client. Simply type anything (up to 200 characters) that you want to STDOUT " always give to your customer concerning this one specific property and then click on the 'SAVE' button to the right. STDOUT " STDOUT " STDOUT " STDOUT "" STDOUT "	Save A Permanent Note About This Property For All Clients: STDOUT ""+perm$; STDOUT "
STDOUT " STDOUT " STDOUT "
You may send a note directly to an ALN updater concerning anything that you have found that is incorrect about the information contained on this property. STDOUT " Simply type in the box to the right whatever you want to send to the updater (maximum 200 characters) and click the 'SEND' button next to it.	Send A Note To An ALN Updater About This Property: STDOUT " STDOUT "
pers$="" sql$="select * from locatornotes where oldaccount="+QuotedStr(AccountBase$) sql$=sql$+" and notetype='M' and propertyid="+FORMAT$(VAL(l1$)) SQLResult& = SQL_Stmt(%SQL_STMT_IMMEDIATE,sql$) SQL_FETCH %NEXT_ROW IF NOT SQL_EOD THEN pers$=dbfield("mynote") END IF IF pers$="" OR LEFT$(pers$,10)<=" " THEN pers$="" REPLACE " " WITH CHR$(13)+CHR$(10) IN pers$ STDOUT "
The notes to the right are personal notes on this property that no one else besides you will ever see. Simply type anything (up to 200 characters) in the way of personal (or STDOUT " private) notes that you want to keep on this property and then click on the 'SAVE' button to the right. STDOUT " STDOUT " STDOUT " STDOUT "" STDOUT "	Save A Personal Or Private Note About This Property: STDOUT ""+pers$; STDOUT "
STDOUT "

IF popup$="Y" THEN STDOUT "Close this window by clicking on the X in the upper right-hand corner of your browser." ELSE STDOUT "You must use the BACK or PREVIOUS button supplied on your browser to return to your review sheet or listings" END IF END FUNCTION

"+dbfield("aptname")+"

Save A Temporary Note About This Property For Only This Client:

Save A Permanent Note About This Property For All Clients:

Send A Note To An ALN Updater About This Property:

Save A Personal Or Private Note About This Property: