FIBU [ 02/27/01 4:33 PM ] ; ;Muss in FIJOU2 eingebaut werden ; ; ANF N (FA,BENR1,BENR2,KKR,HBUCH,BUCH,SYM,BBLOK,SO,HA,NNN,BEDAT) Q:$G(BENR1)="" d ^%XINIT Q:+HBUCH S FIRMA=FA,FIL=0 I "KL"'[KKR!(BUCH="N") G S1 I $G(FA)="" Q I $G(BENR1)="" Q I $G(SYM)="" Q I $G(BBLOK)="" Q S RWHW=$P($G(^PA(FIRMA,340,"EURO","RWHW")),%,2) S WWSHW=$P($G(^PA(FIRMA,340,"EURO","WWSHW")),%,2) S FAKTEUR=$P($G(^PA(FIRMA,340,"EURO","FAKTEUR")),%,2) ; S KRA="" I $D(^BBLOK(FA,BENR1,SYM,BBLOK))#2 S KRA=^(BBLOK) S $P(KRA,%,1)=$P(KRA,%,1)+SO,$P(KRA,%,2)=$P(KRA,%,2)+HA S ^BBLOK(FA,BENR1,SYM,BBLOK)=KRA ; S1 I KKR="K",BUCH="J" S ZAEHLER="0" F S ZAEHLER=$O(^J(FA,BBLOK,NNN,"OP",ZAEHLER)) Q:ZAEHLER="" D . S OPWJ="" F S OPWJ=$O(^J(FA,BBLOK,NNN,"OP",ZAEHLER,OPWJ)) Q:OPWJ="" D .. S RENR="" F S RENR=$O(^J(FA,BBLOK,NNN,"OP",ZAEHLER,OPWJ,RENR)) Q:RENR="" D ... S SUB="" F S SUB=$O(^J(FA,BBLOK,NNN,"OP",ZAEHLER,OPWJ,RENR,SUB)) Q:SUB="" D OPK(^(SUB),"J","J") ; I KKR="L",BUCH="J",SYM="ZA" S ZAEHLER="0" F S ZAEHLER=$O(^J(FA,BBLOK,NNN,"OP",ZAEHLER)) Q:ZAEHLER="" D . S OPWJ="" F S OPWJ=$O(^J(FA,BBLOK,NNN,"OP",ZAEHLER,OPWJ)) Q:OPWJ="" D .. S RENR="" F S RENR=$O(^J(FA,BBLOK,NNN,"OP",ZAEHLER,OPWJ,RENR)) Q:RENR="" D ... S SUB="" F S SUB=$O(^J(FA,BBLOK,NNN,"OP",ZAEHLER,OPWJ,RENR,SUB)) Q:SUB="" D OPL Q ; OPL N KONTO,id,id1,obj S ADOP=^(SUB) S BELNR=RENR Q:BELNR="" ; I $D(^J(FA,BBLOK,NNN))#2 d . s KONTO=+$P(^(NNN),%,5) . s id="" f s id=$O(^Hagbau.FilesPosI("Fibudat"," "_KONTO_%_OPWJ_%_RENR_%_SUB,id)) q:id="" d .. s id1="" f s id1=$O(^Hagbau.FilesPosI("Fibudat"," "_KONTO_%_OPWJ_%_RENR_%_SUB,id,id1)) q:id1="" d ... s obj=##class(Hagbau.FilesPos).%OpenId(id_"||"_id1) ... i obj'="" d .... s obj.FibuVerweis=BBLOK_%_NNN .... s obj.Status=1 .... d obj.%Save() .... d obj.%Close() ; ZA ^ER(FA,FIL,0,"ER",BELNR,0) I $D(^ER(FA,FIL,0,"ER",BELNR,0))#2 S AD=^(0) E Q S $P(AD,%,25)=BEDAT S:+$P(ADOP,%,1)=2 $P(AD,%,1)=4 S ^(0)=AD ZD ^ER(FA,FIL,0,"ER",BELNR,0) Q ; OPK(ADOP,SKJN,AUJN) S BELART=$E(RENR,1,2),BELNR=$E(RENR,3,$L(RENR)) Q:BELART="" Q:BELNR="" S BELNR=+BELNR Q:"RE,PV,SR"'[BELART S FIL=0 ; I $D(^AU(FA,FIL,1,BELART,BELNR))#2 S AUNR=$P(^(BELNR),%,1),$P(^(BELNR),%,2)=5 E Q I AUNR="" Q S WWKNR=+$P($G(^AU(FA,FIL,0,AUNR,0)),%,2) Q:+WWKNR=0 ; I $D(^AU(FA,FIL,0,AUNR,2,BELART,BELNR,0))#2 S BELDAT=$P(^(0),%,2),$P(^(0),%,1)=5 E Q:BELART'="RE" ; S REDAT="" I BELART="RE",$D(^AU(FA,FIL,1,"RE",BELNR))#2 S REDAT=$P(^(BELNR),%,3) S DATKRA=$S(BELART="RE":REDAT,1:BELDAT) F I=0:1:5 K ^AU(FA,FIL,4,WWKNR,I,DATKRA,BELART,BELNR) S ^AU(FA,FIL,4,WWKNR,5,DATKRA,BELART,BELNR)=AUNR I BELART="RE" S LSNR="" F S LSNR=$O(^AU(FA,FIL,1,"RE",BELNR,LSNR)) Q:LSNR="" D . S KLSNR1=$G(^(LSNR)) . I $D(^AU(FA,FIL,1,"LS",LSNR))#2 S AUNR=$P(^(LSNR),%,1),$P(^(LSNR),%,2)=5 . E Q . I $D(^AU(FA,FIL,0,AUNR,2,"LS",LSNR,0))#2 D .. S BELDAT=$P(^(0),%,2),$P(^(0),%,1)=5 .. F II=0:1:5 K ^AU(FA,FIL,4,WWKNR,II,BELDAT,"LS",LSNR) .. S ^AU(FA,FIL,4,WWKNR,5,BELDAT,"LS",LSNR)=AUNR . K ^KASJM(FA,FIL,0,"LS",LSNR) . K:$L(WWKNR) ^KASJM(FA,FIL,1,WWKNR,"LS",LSNR) . ; . F I=1:1:$L(KLSNR1,",") D .. S KLSNR=$P(KLSNR1,",",I) .. Q:KLSNR="" .. I $D(^AU(FA,FIL,1,"LS",KLSNR))#2 S AUNR=$P(^(KLSNR),%,1),$P(^(KLSNR),%,2)=5 .. E Q .. I $D(^AU(FA,FIL,0,AUNR,2,"LS",KLSNR,0))#2 D ... S BELDAT=$P(^(0),%,2),$P(^(0),%,1)=5 ... F II=0:1:5 K ^AU(FA,FIL,4,WWKNR,II,BELDAT,"LS",KLSNR) ... S ^AU(FA,FIL,4,WWKNR,5,BELDAT,"LS",KLSNR)=AUNR .. K ^KASJM(FA,FIL,0,"LS",KLSNR) .. K:$L(WWKNR) ^KASJM(FA,FIL,1,WWKNR,"LS",KLSNR) ; I +$P(ADOP,%,1)=2 D . K ^KASJM(FA,FIL,0,BELART,BELNR) K:$L(WWKNR) ^KASJM(FA,FIL,1,WWKNR,BELART,BELNR) . I AUJN="J" D .. S STR=$P(ADOP,%,23) .. I $L(STR),$D(^AU(FA,FIL,1,BELART,BELNR))#2 D ... S AD=$P(^(BELNR),%,4) ... F I=1:1:$L(STR,"\") S STR1=$P(STR,"\",I) D .... S:$L(AD) AD=AD_";" .... S AD=AD_"BB"_BBLOK_"/"_NNN_"="_$$WWSHW($P(STR1,";",1))_","_$$WWSHW($P(STR1,";",2))_","_$$WWSHW($P(STR1,";",5)) ... I $L(AD)<500 S $P(^AU(FA,FIL,1,BELART,BELNR),%,4)=AD . ; . I SKJN="J" D .. S SKONTO=0 .. F I=1:1:$L(STR,"\") S SKONTO=SKONTO+$$WWSHW($P($P(STR,"\",I),";",2)) .. I BELART="RE" D ... S LSNR="",SKONTOF=0 F S LSNR=$O(^AU(FA,FIL,1,"RE",BELNR,LSNR)) Q:LSNR="" S AUNR=$P($G(^AU(FA,FIL,1,"LS",LSNR)),%,1),SKONTOF=SKONTOF+$P($G(^AU(FA,FIL,0,AUNR,2,"LS",LSNR,0)),%,21) ... I +SKONTOF S LSNR="" F S LSNR=$O(^AU(FA,FIL,1,"RE",BELNR,LSNR)) Q:LSNR="" S AUNR=$P($G(^AU(FA,FIL,1,"LS",LSNR)),%,1),AN=$P($G(^AU(FA,FIL,0,AUNR,2,"LS",LSNR,0)),%,21)/SKONTOF D BUCHE^BMUFISK("LS",LSNR,0,SKONTO*AN,"B") .. E S AUNR=$P($G(^AU(FA,FIL,1,BELART,BELNR)),%,1) D BUCHE^BMUFISK(BELART,BELNR,0,SKONTO,"B") Q ; WWSHW(N) I RWHW="EUR",WWSHW="ATS" Q N*FAKTEUR Q N ; BELEG Q ; SETSTAT d ^BMINIT W "Firma: " R FA W ! W "Filiale: " R FIL W ! ; S FA=FIRMA S BUCH="J" S BBLOK="" F S BBLOK=$O(^J(FA,0,1,BBLOK)) Q:BBLOK="" D . I $P(BBLOK,".",2)=2003 W BBLOK,! S NNN="0" D A10 Q ; A10 S NNN=$N(^J(FA,BBLOK,NNN)) I NNN=-1 Q I '($D(^J(FA,BBLOK,NNN))#2) G A10 A11 S (SSS,JSS)=^J(FA,BBLOK,NNN),JTYP=$P(SSS,%,1),KZ=$P(SSS,%,2),SAM=$E(KZ,1),HBUCH=$E(KZ,2),ST=$E(KZ,3) S SYM=$P(SSS,%,3),KKR=$P(SSS,%,4),KTNR=$P(SSS,%,5),BENR1=$P(SSS,%,6),BENR2=$P(SSS,%,7),BEDAT=$P(SSS,%,8),GKKR=$P(SSS,%,9),GKTO=$P(SSS,%,10) S SO=$P(SSS,%,11),HA=$P(SSS,%,12),TXT=$P(SSS,%,13),FWC=$P(SSS,%,14) ; ;KRA/9.12.97 ;Einsprung Baumat WAWI D ANF^BMFIBU G A10 ; LOE(FA,KKR,KTNR,OPWJ,RENR,SUB,SSA) N (FA,KKR,KTNR,OPWJ,RENR,SUB,SSA) d ^%XINIT S BELART=$E(RENR,1,2),BELNR=+$E(RENR,3,$L(RENR)) Q:"RE`SR`PV"[BELART I $L(BELART),$L(BELNR),$D(^AU(FA,0,1,BELART,BELNR))#2 S AUNR=$P(^(BELNR),%,1) E Q I $D(^AU(FA,0,0,AUNR,0))#2 S WWKNR=$P(^(0),%,2) E Q K ^KASJM(FA,0,0,BELART,BELNR) K ^KASJM(FA,0,1,WWKNR,BELART,BELNR) Q ]]> persistent %Library.Persistent 59640,43468.706951 59556,72745.644943 0 %Library.Date 0 0 0 0 0 0 0 0 %Library.Integer 0 0 0 0 0 0 0 0 %Library.Integer 0 0 0 0 0 0 0 0 %Library.Integer 0 0 0 0 0 0 0 0 %Library.String 0 0 0 0 0 0 0 0 %Library.Integer 0 0 0 0 0 0 0 0 %Library.String 0 0 0 0 0 0 0 0 %Library.String Hagbau.FilesPos 0 0 children Kopf 0 0 1 0 0 0 Filename 1 firma:%String %Integer 0 1 code firma:%Library.Integer,belnr:%Library.String,wert:%Library.Float 0 %Library.Integer 0 1 fname:%String %Integer 0 1 code firma:%Library.Integer,filiale:%Library.Integer 0 %Library.Integer 0 0 1 code id:%Library.Integer,firma:%Library.Integer,filiale:%Library.Integer,datum:%Library.Date,satzanz:%Library.Integer,typ:%Library.String,verbucht:%Library.Integer,zvnummer:%Library.String 0 %Library.Integer 0 0 1 code firma:%Library.Integer,fil:%Library.Integer,id:%Library.String,typ:%Library.String,wj:%Library.String,pcode:%Library.String,testjn:%Boolean 0 %Library.String 0 %Library.SQLQuery Firma:%Library.Integer,Filiale:%Library.Integer,Typ:%Library.String 0 SELECT ID, Datum, Typ, Satzanz, Verbucht, ZVNummer, Filename FROM Files WHERE (Firma = :Firma) AND (Filiale = :Filiale) AND (:Typ is null or Typ = :Typ) ORDER by ID DESC 0 1 firma:%String,kkr:%String,konto:%String %String %Library.CacheStorage ^Hagbau.FilesD FilesDefaultData ^Hagbau.FilesD ^Hagbau.FilesI ^Hagbau.FilesS listnode Datum Filiale Firma Satzanz Typ Verbucht ZVNummer %%CLASSNAME Filename ZZ subnode "ZZ" persistent 1 %Persistent 59655,2037.073935 0 Hagbau.Files parent ZZ 1 %String %Integer %String %Integer %String %String %String Fibudat 1 ZZ 1 %SQLQuery idkopf:%String ID=:idkopf]]> %Library.CacheStorage {%%PARENT}("ZZ") FilesPosDefaultData {%%PARENT}("ZZ") ^Hagbau.FilesPosI ^Hagbau.FilesPosS listnode %%CLASSNAME Status Zeile Lnr Fibudat FibuVerweis Belnr persistent %Library.Persistent 59556,72772.928403 59556,72745.672072 0 1 0 Lief 1 0 0 0 Name1 0 0 0 0 Typ,Lief 0 %Library.String 0 0 0 0 0 0 0 0 %Library.Integer 0 0 0 0 0 0 0 0 %Library.String 0 0 0 0 0 0 0 0 %Library.String 0 0 0 0 0 0 0 0 %Library.String 0 0 0 0 0 0 0 0 %Library.String 0 0 0 0 0 0 0 0 %Library.String 0 0 0 0 0 0 0 0 %Library.String 0 0 0 0 0 0 0 0 0 1 code firma:%Library.String,ssktok:%Library.String 0 %Library.Integer 0 0 1 code firma:%Library.Integer,hlief:%Library.Integer,lief:%Library.String 0 %Library.String 0 0 1 code firma:%Library.String,lnr:%Library.Integer,typ:%Library.String 0 %Library.Integer 0 0 1 code zeile:%Library.String 0 %Library.Integer 0 0 1 code 0 %Library.Integer 0 0 1 code firma:%Library.Integer 0 %Library.Integer 0 0 1 code firma:%Library.String,filiale:%Library.String 0 %Library.Integer 0 %Library.SQLQuery firma:%Library.Integer,typ:%Library.String 0 SELECT Typ, Lief, Name1, Name2, Strasse, Land, Plz, Ort, $$ilief^HagbauUtils(:firma,Lief) FROM Lief WHERE (:typ is null or Typ = :typ) ORDER BY upper(Name1) 0 %Library.CacheStorage ^Hagbau.LiefD LiefDefaultData ^Hagbau.LiefD ^Hagbau.LiefI ^Hagbau.LiefS listnode Land Name1 Name2 Ort Plz Strasse Typ %%CLASSNAME persistent %Library.Persistent 59629,81200.168187 59556,72745.694446 0 0 1 0 Firma,Filiale 1 %Library.Integer 0 0 0 0 0 0 0 0 %Library.Integer 0 0 0 0 0 0 0 0 %Library.Integer 0 0 0 0 0 0 0 0 %Library.Integer 0 0 0 0 0 0 0 0 %Library.Integer 0 0 0 0 0 0 0 0 %Library.Float 0 0 0 0 0 0 0 0 %Library.Integer 0 0 0 0 0 0 0 0 %String %Library.CacheStorage ^Hagbau.ParamD ParamDefaultData ^Hagbau.ParamD ^Hagbau.ParamI ^Hagbau.ParamS listnode Bank Filiale Firma NettoTage SamKtoKreis Zweg TolBetrag %%CLASSNAME SuOPTyp tol s sk=opbetr-ne .. e s qsw=6 q .. ; .. if 'testjn d ... s ff=$O(^UEB(firma,"L",bank,fkonto,"POS",""),-1)+1 ... S ^UEB(firma,"L",bank,fkonto,"POS",ff)=opwj_%_belnr1_%_sub_%_ne_%_sk_%_skpr_%_"" ... S ^UEBTMP(firma,"OP","L",fkonto,opwj,belnr1,sub)=ff_%_bank_% ... s obj.ZZ.GetAt(cnt).Fibudat=fkonto_%_opwj_%_belnr1_%_sub ... s knam=$P($G(^B(firma,"L",fkonto,0)),%,1) ... S ^UEBTMP(firma,"A","L",bank,knam,fkonto)=fkonto .. s qsw=7 .. ; .. ;Zahlungsmerker & Status setzen .. s merk="HG"_obj.ZVNummer_"/"_cnt_%_$$TXT7^%LN200(obj.Datum) .. I 'testjn,+erkjn,$D(^ER(firma,fil,0,"ER",belnr,0))#2 D ... S einldat=$P(^(0),%,2) ... S $P(^(0),%,1)=4 ... S $P(^(0),%,23,24)=merk ... S:$L(einldat) $P(^ER(firma,fil,1,einldat,"ER",belnr),%,1)=4 .. s obj.ZZ.GetAt(cnt).Belnr=belnr . i obj.ZZ.GetAt(cnt).FibuVerweis'="" s qsw=1 . s obj.ZZ.GetAt(cnt).Zeile=zeile . i obj.ZZ.GetAt(cnt).Status'=1 s obj.ZZ.GetAt(cnt).Status=qsw . i obj.ZZ.GetAt(cnt).Status=1!(obj.ZZ.GetAt(cnt).Status=7) s anzvb=anzvb+1 ; s obj.Verbucht=anzvb s obj.Satzanz=anz d obj.%Save() d obj.%Close() ; I +qsw=7,'testjn d . s gesamt=0 . s bank="" f s bank=$O(^UEB(firma,"L",bank)) q:bank="" d .. s sumb=0 .. s konto="" f s konto=$O(^UEB(firma,"L",bank,konto)) q:konto="" d ... s sum=0 ... s ff="" f s ff=$O(^UEB(firma,"L",bank,konto,"POS",ff)) q:ff="" s sum=sum+$P(^(ff),%,4) ... S ^UEB(firma,"L",bank,konto,0)=sum ... S gesamt=gesamt+sum ... S sumb=sumb+sum .. s ^UEB(firma,"BANK",bank,0)=sumb_%_(+$H)_%_0 . s ^UEB(firma,"KKR","L",0)=gesamt ; Q 1 ; abs(n) q:n<0 -n q n ; rebl(s) f q:s="" q:$E(s,$L(s))'=" " S s=$E(s,1,$L(s)-1) Q s ; ilief(firma,hlief) i hlief="" q "" ; i $D(^BZM(firma,"L",2,hlief))#2 s lnr=$P(^(hlief),"`",1) e q "" s lname=$P($G(^B(firma,"L",lnr,1)),"`",2) q lnr_$C(10)_$C(10)_lname ; etikett(firma,belnr,wert) N (firma,belnr,wert) d ^%XTT ;Etikett drucken S ean="221"_$E(100000000+belnr,2,9)_"7" S DEV=$P($G(^PA(firma,340,"DEV","EtikettER")),%,2) I DEV'="" D . D OPEN^%DRU . D USE^%DRU . W $C(2),"L",$C(13) . W "D11",$C(13) . W "1F0203000220010",ean,$C(13) . I wert'<0 W "105400100030020",belnr,$C(13) . E W "105400100030020","- ",belnr,$C(13) . W "E",$C(13) . D CLOSE^%DRU q ]]> " R *X Q ]]>