Raporty → Dokumenty → Inwentaryzacja → Arkusz inwentaryzacyjny wg dostaw →
Inwentaryzacja wg dostaw
ZNAJDŹ
Kod:
NoDate=1
typWydruku = Val( Arg0 )
WSTAW POD
Kod:
MapValue mvSt
mvSt.Type( string )
baseXT xt
int xtErr
xt.SetKey("super")
xt.SetKeySeg("super",10000)
xt.SetKeySeg("kod","")
xtErr = xt.GetRec( GE )
while xtErr == 0
if xt.GetField("super") != 10000 then exit
mvSt.Set( (using "%d",xt.GetField("subtypi")),xt.GetField("kod") )
xtErr = xt.GetRec( NX )
wend
ZNAJDŹ
Kod:
kolumny = 13- !bDostawy- !bData- !bWartBiez- !bWartSpis- !bRoznIlos- !bRoznWart- !bStanBiez- !bStanSpis-!bKodP -!PrawoDoCen
ZAMIEŃ NA
Kod:
kolumny = 13- !bDostawy- !bData- !bWartBiez- !bWartSpis- !bRoznIlos- !bRoznWart- !bStanBiez- !bStanSpis-!bKodP -!PrawoDoCen + 2
ZNAJDŹ
Kod:
if bRoznWart then KolTab(i)=nKwotaWt : i+=1
WSTAW POD
Kod:
KolTab(i)=200 : i+=1//cenaD
KolTab(i)=200 : i+=1//stawka
ZNAJDŹ
Kod:
if bRoznWart then asKolNames(i)="Różnica wartości" : i+=1
WSTAW POD
Kod:
asKolNames(i)="Cena D" : i+=1//cenaD
asKolNames(i)="Stawka VAT" : i+=1//stawka
ZNAJDŹ
Kod:
if bRoznWart then StlTab(i)=kr : StlTabB(i)=br : i+=1
WSTAW POD
Kod:
StlTab(i)=kr : StlTabB(i)=br : i+=1 // cena D
StlTab(i)=kr : StlTabB(i)=br : i+=1 // stawka
ZNAJDŹ
Kod:
if bWartSpis && bPuste then kolumna i, Kwota(fStanSpis*fCena) : i+=1
if bRoznIlos && bPuste then nKolIlosc = i : i+=1
WSTAW POD
Kod:
kolumna i, Kwota(GetField(tw,"cenaD")):i+=1 // cena D
kolumna i, mvSt.Get( (using "%d",GetField(tw,"vatspi")),"-" ):i+=1 // stawka
ZNAJDŹ
Kod:
if bWartBiez then i+=bRoznIlos
endif
f bRoznWart then kolumna i, Kwota( fSumaRozn )
endif
WSTAW POD
Kod:
kolumna i, Kwota( 0 ) : i+=1 // cenaD
kolumna i, Kwota( 0 ) : i+=1 // stawka
[center]
[/center]
