persistent
%Library.Persistent
59556,72746.724527
59556,72745.644943
%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
0
0
list
0
0
0
0
0
0
0
1
code
firma:%Library.Integer,belnr:%Library.String,wert:%Library.Float
0
%Library.Integer
0
0
1
code
firma:%Library.Integer,filiale:%Library.Integer
0
%Library.Integer
0
0
1
code
firma:%Library.String,fil:%Library.Integer,id:%Library.String,zz:%Library.String
0
%Library.String
0
0
1
code
firma:%Library.Integer,fil:%Library.Integer,id:%Library.String,zz:%Library.String
0
%Library.String
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
0
%Library.String
0
%Library.SQLQuery
Firma:%Library.Integer,Filiale:%Library.Integer,Typ:%Library.String
0
SELECT ID, Datum, Typ, Satzanz, Verbucht, ZVNummer
FROM Files
WHERE (Firma = :Firma) AND (Filiale = :Filiale) AND
(:Typ is null or Typ = :Typ)
ORDER by ID DESC
0
%Library.CacheStorage
^Hagbau.FilesD
FilesDefaultData
^Hagbau.FilesD
^Hagbau.FilesI
^Hagbau.FilesS
listnode
Datum
Filiale
Firma
Satzanz
Typ
Verbucht
ZVNummer
%%CLASSNAME
ZZ
subnode
"ZZ"
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
59556,72747.536924
59556,72745.694446
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
%Library.CacheStorage
^Hagbau.ParamD
ParamDefaultData
^Hagbau.ParamD
^Hagbau.ParamI
^Hagbau.ParamS
listnode
Bank
Filiale
Firma
NettoTage
SamKtoKreis
Zweg
TolBetrag
%%CLASSNAME
obj.Verbucht D
.. s zeile=obj.ZZ.GetAt(i)
.. i $E(zeile,1,1)="K" D
... s konto=$$rebl($E(zeile,39,44))
... i $L(konto),$D(^BZM(firma,"L",2,konto))#2 s konto=$P(^(konto),%,1)
... e s qsw=1,fpos=i q
... ;Neue Nummer
... ZA ^PA(firma,20,wj,"ER")
... S belnr=$P($G(^PA(firma,20,wj,"ER")),%,5)
... F Q:'$D(^ER(firma,fil,0,"ER",belnr)) S belnr=belnr+1
... S $P(^PA(firma,20,wj,"ER"),%,5)=belnr+1
... ZD ^PA(firma,20,wj,"ER")
... ;
... s status=1
... s einldat=$$datum($E(zeile,13,20))
... s renr=$$rebl($E(zeile,21,30))
... s datum=$$datum($E(zeile,31,38))
... s rewert=$J($TR($E(zeile,110,120)," ","")/100,0,2) i $E(zeile,121,121)="-" s rewert=-rewert
... s stsum=$J($TR($E(zeile,122,132)," ","")/100,0,2) i $E(zeile,133,133)="-" s stsum=-stsum
... s wc=0
... s vdat=einldat
... s sk1=$J($TR($E(zeile,79,82)," ","")/100,0,2)
... s tg1=$TR($E(zeile,68,70)," ","")
... s zk="",i1="" f s i1=$O(^BP(firma,4,i1)) q:i1="" d
.... s ad=^(i1)
.... i +$P(ad,%,2)=+sk1,+$P(ad,%,1)=+tg1,$P(ad,%,3)="",$P(ad,%,4)="" s zk=i1
... i zk="" s qsw=2,fpos=i q
... s sdat1=$$TXT7^%LN200($$H^%LN200(vdat)+tg1)
... s sdat2="",sk2=""
... s ndat=$$TXT7^%LN200($$H^%LN200(vdat)+ntg)
... s btext=""
... s bongsjn="N"
... s kwert=""
... s stpfjn=$S(+$TR($E(zeile,98,108)," ",""):"J",1:"N")
... s rkbujn="N"
... s seitanz=""
... s ftyp=""
... s velnr=$$GET^BMXOBJ("HAGEBAU","LiefNr")
... ;
... ;Rechnung speichern
... S ^ER(firma,fil,0,"ER",belnr,0)=status_%_einldat_%_konto_%_renr_%_datum_%_rewert_%_wc_%_""_%_1_%_vdat_%_zk_%_sdat1_%_sdat2_%_ndat_%_sk1_%_sk2_%_zweg_%_btext_%_""_%_""_%_""_%_ftyp_%_""_%_""_%_""_%_""_%_bongsjn_%_kwert_%_stpfjn_%_rkbujn_%_velnr_%_seitanz
... S ^ER(firma,fil,1,einldat,"ER",belnr)=status
... S ^ER(firma,fil,2,konto,renr)="ER"_%_belnr
... S $P(^ER(firma,fil,0,"ER",belnr,1),%,1,2)=rewert_%_stsum
... ;
... ;Sammelkontokreis in Lieferantenstamm setzen
... i sktok'="" I $D(^B(firma,"L",konto,2))#2 S $P(^(2),%,1)=sktok
... ;
... i +qsw=0 s obj.Verbucht=i d obj.%Save()
d obj.%Save()
d obj.%Close()
;
q anz_"|"_qsw_"|"_fpos
;
datum(d)
q ($E(d,1,4)-1900)_$E(d,5,8)
;
datumv(d)
q ($E(d,5,8)-1900)_$E(d,3,4)_$E(d,1,2)
;
VerbuchZA(firma,fil,id,wj,pcode)
N (firma,fil,id,wj,pcode)
d ^%XTT
S FIRMA=firma
S FIL=fil
s obj=##class(Hagbau.Param).%OpenId(firma_"||"_fil)
i obj="" q 0
s bank=obj.Bank
s tol=obj.TolBetrag
d obj.%Close()
;
s obj=##class(Hagbau.Files).%OpenId(id)
i obj="" q 0
s anz=obj.ZZ.Count()
;
S erkjn=$D(^MENUE("NADLINGER",firma,25))
s qsw=0,fpos=0
for i=1:1:anz d q:+qsw
. I i>obj.Verbucht D
.. s zeile=obj.ZZ.GetAt(i)
.. i $E(zeile,1,4)="ZVGP" D
... s konto=$$rebl($E(zeile,5,10))
... i $L(konto),$D(^BZM(firma,"L",2,konto))#2 s konto=$P(^(konto),%,1)
... e s qsw=1,fpos=i q
... s ff=$O(^UEB(firma,"L",bank,konto,""),-1)+1
... ;
... s renr=$$rebl($E(zeile,84,95))
... s belnr=renr
... I +erkjn,$L(renr),$D(^ER(firma,fil,2,konto,renr))#2 s belnr=$P(^(renr),%,2)
... e i +erkjn s qsw=2,fpos=i q
... i +erkjn=0,belnr="" s qsw=2,fpos=i q
... ;
... s sub="0"
... s opwj=""
... s i1="" f s i1=$O(^B(firma,"L",konto,"OP",i1)) q:i1="" I $D(^(i1,belnr)) s opwj=i1 q
... i opwj="" s qsw=3,fpos=i q
... I $D(^B(firma,"L",konto,"OP",opwj,belnr,sub))#2 s opbetr=$P(^(sub),%,6)-$P(^(sub),%,5)
... E s qsw=3,fpos=i q
... I $D(^UEBTMP(firma,"OP","L",konto,opwj,belnr,sub)) Q
... ;
... s (ne,sk)=0
... f i1=0:1:9 d
.... s ne1=$J($TR($E(zeile,i1*38+104,i1*38+114)," ","")/100,0,2) i $E(zeile,i1*38+115,i1*38+115)="-" s br1=-br1
.... s ne=ne+ne1
.... s sk1=$J($TR($E(zeile,i1*38+116,i1*38+126)," ","")/100,0,2) i $E(zeile,i1*38+127,i1*38+127)="-" s sk1=-sk1
.... s ne=ne-sk1,sk=sk+sk1
... s skpr=$J($TR($E(zeile,484,487)," ","")/100,0,2)
... if $$abs(ne+sk-opbetr)'>tol s sk=opbetr-ne
... S ^UEB(firma,"L",bank,konto,"POS",ff)=opwj_%_belnr_%_sub_%_ne_%_sk_%_skpr_%_""
... S ^UEBTMP(firma,"OP","L",konto,opwj,belnr,sub)=ff_%_bank_%
... s knam=$P($G(^B(firma,"L",konto,0)),%,1)
... S ^UEBTMP(firma,"A","L",bank,knam,konto)=konto
... ;Zahlungsmerker & Status setzen
... I +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)="HG"_obj.ZVNummer_"/"_i_%_$$TXT7^%LN200(obj.Datum)
.... S:$L(einldat) $P(^ER(firma,fil,1,einldat,"ER",belnr),%,1)=4
.. ;
.. i +qsw=0 s obj.Verbucht=i d obj.%Save()
d obj.%Save()
d obj.%Close()
;
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 anz_"|"_qsw_"|"_fpos
;
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
]]>