W g00 080822 #,0,#,500,~,970,,1000 Export General Ledger Data for Excel Spreadsheet |Start Date {A1075N8} |End Date {B1076N8} |Ledger {C} 3-7 (C)ash (P)ayroll |File name {D1100N0 } File located in My Documents\My ABC Files ~Alt+E Export Now~ Download Excel spreadsheet template at ~http://www.abcsoftware.us/downloads.php~ C,1101,N,14 W g02 080718 >A2 reject >A3 reject >A4 reject >A5 +"196"=1025:pointer1101=1024:pointer1100gosubg107 pointer1075=1023:poke1023,"8" ;unrestrict 1075 pointer1076=1023:poke1023,"8" ;unrestrict 1076 +508=1077:gosubg116:+1079~1075+"31"~1076 date$left$4,2*"-1"+1076=1076 &"All"=1101 ;default all ledgers gosub9 >A6 eq"2":&"g General Ledger Export,90Financial" >A7 if1003eq"E":gosub10 if1003asciieq"29":pointer970+"222"=1022 ;get mouse string &(22)tab7eq"http://":getconsole:printdev +"27"chr$&"?wcsh"&(22)sprint:+"13"chr$sprint >A8 ;enter date +1002=(49) gosub9 >A9 ;create file name &1076tab2=1100:if1100tab1eq" ":&1100right$1,1=1100:&"0"&1100=1100 always:&1076right$1,4&1100=1100 &501tab4&1101&1100&".tsv"=1100 printfield"1100" > W g10 090417 >A10 ;check version, use D if older than 13 &"X"&1100&"<"=1008:callq103 ;for local file on winterm +"9"chr$=1009 ;tab &501&1009&1075&1009&1076print ;company name, start date, end date &"Description"&1009&"Account"&1009&"Prior"&1009&"Debits"&1009&"Credits"&1009 &"Balance"&1009&"Date"print ;heading &"L"offset ; 1 PCR A/P bill pointers if1101>="3"and1101<="7":+1101+"96"chr$gosub11 ;export single checking ledger branch2 if1101<>"C"and1101<>"P" ;skip computer & adj ledgers if cash or payroll &"a"gosub11 ; 2 D Date &"b"gosub11 ; 3 UC Discount & Month Item returned if1101<>"P" ;skip checking ledgers if payroll only &"c"gosub11 ; 4 UC Entry Code &"d"gosub11 ; 5 MC Check Amount &"e"gosub11 ; 6 IC Account # &"f"gosub11 ; 7 MC Distribution Amt. &"g"gosub11 if1101eq"C"or1101eq"P"or1101capitalizeeq"ALL" &"P"gosub11 ;export payroll if1101capitalize<>"ALL":branch2 always:=600:+1075gosub13=1011 ;start date LABEL1 loadnext"G":+600<517:else:branch2 always:+599=1077:&"G"gosubp62:+1075gosubp98=1020 pointer651cramcmd10,1025=1024:sum,(24),681~1050 ;get start balance <>"0" &"0-0 "&1011&" Prior Balance"&1009sprint gosub12&1009&1050&1009&1009&1009&1009&1011print always:branch1 LABEL2 callq171:&"g"offset ; 8 AC Remark getconsole:printdev ;don't leave printdev negative always:&"Finished"gotog15 >A11 ;export 1 ledger ~1010gosubg119:+"1999999"=0=1035 ;set ledger context start at end if1010eq"P":goto15 ;payroll if1010>="c":&1010ascii-"92"*"18"=1035:filestart"#"`1035 ;CloseOutPtr always LABEL1 loadprev1010:+2>=1075:else:return ;back to start date if2>1076:branch1 ;skip if after end date if0right$1,1eq"9":branch1 ;skip closeouts if1010eq"a"and0right$2,1eq"5":branch1 ;skip payroll posting if2gosub13=1005:pointer6=1036 &4~1004load"V":&701=1004 if1035>"0":pointer5~1037=1038:-5=5=1006:&(35):branch3 LABEL2 if1036+"6"~1037+"6"=1038 if(36)eq"0"and(37)eq"0"and(38)<" ":branch1 if(38)=1006:&(36) ;Amount,Remark LABEL3 load"G" if(37)eq"0":branch4 ;Ledger-check#,Date,Code,Name,Remark if0/"10"=1003:&1010ascii-"96"&"-"&1003&" "&1005&" "&4&" "&701&" "&1006&1009sprint =1051:+(37)~1050<"0":-1050=1051:=1050 ;Acct,NameBalanceDebitCreditBalanceDate always:gosub12&1009&1009&1050&1009&1051&1009&1009&1005print LABEL4 +1038+"6"=1036:branch2 >A12 ;encode G account & name if1101eq"C" ;if Cash convert A/R to Sales and600eq510:clear"G":+517=600:&"CASH BASIS SALES"=601 always &601=1007:if1007<=" ":&"account name unspecified"=1007 if"0000"&600right$1,4&" "&1007 >A13 ;In: date Out: Date mm/dd/yy formated with numbers =1078:&1078right$1,2=1003:&1078left$4,2+"100"right$1,2&"/"&1003=1003 &1078tab2+"100"right$1,2&"/"&1003 > W g14 080610 >A14 ;enter ledger if1002eq"C":&1002=(49):goto9 ;cash ledgers if1002<"3"or1002>"7":&"All"=1002 always:&1002=(49):gosub9 ;create file name > W g15 080822 ;export payroll checks >A15 ;export payroll +"1999999"="P"=0 ;set ledger context start at end pointer512=1035 ;payroll cash account LABEL1 loadprev1010:="P"+2>=1075:else:return ;back to start date ="P"if2>1076:branch1 ;skip if after end date ="P"if0right$1,1eq"9":branch1 ="P"if2gosub13=1005:="P"pointer6=1036 ="P"&4~1004load"E":="E"&1=1004 ;get employee name if1035>"0":="P"pointer5~1037=1038:="P"-5:="P"=5=1006:&(35):branch3 LABEL2 if1036+"18"~1037=1038 if(36)<" "and(37)eq"0":branch1 ;stop at blank line if(36)load"K" ;load payroll kategory ="K":&1=1006:="K":+3 ;Amount,Remark LABEL3 load"G" if(37)eq"0":branch4 ;Ledger-check#,Date,Code,Name,Remark always:="P"+0=1003:&1010&"-"&1003&" "&1005&" "="P"&4&" "="E"&1&" "&1006&1009sprint =1051:+(37)~1050<"0":-1050=1051:=1050 ;Acct,NameBalanceDebitCreditBalanceDate always:gosub12&1009&1009&1050&1009&1051&1009&1009&1005print LABEL4 +1038+"6"=1036:branch2 >