Aby eksportować towary w formacie 3.0 razem ze stanami magazynowymi konieczne jest dokonanie niewielkich zmian w raportach eksportujących
Raporty → Eksport → Eksport - include →
Eksport towarów - include
znajdź :
Kod:
int err
BaseZZ basZZ
NAD tym dodaj :
Kod:
BaseSM sm
int errSM
sm.SetKey("towar")
sm.SetKeySeg("idtw",idTW)
sm.SetKeySeg("magazyn",0)
znajdź :
Kod:
eksport.Pole("nazwa", basTW.GetField("nazwa"))
POD tym dodaj :
Kod:
errSM = sm.GetRec( GE )
while errSM == 0
if sm.GetField("idtw") != idTW then exit
if sm.GetField("magazyn") == 0 then
eksport.Pole("stan", (Using "%f", sm.GetField("stan")))
eksport.Pole("stan handlowy", (Using "%f", sm.GetField("stanHandl")))
else
eksport.PoczatekSekcji("Magazyn",0)
eksport.Pole("kod", PoleKodMagazynu(sm.GetField("magazyn")))
eksport.Pole("stan", (Using "%f", sm.GetField("stan")))
eksport.Pole("stan handlowy", (Using "%f", sm.GetField("stanHandl")))
eksport.KoniecSekcji()
endif
errSM = sm.GetRec( NX )
wend
Dzięki tym zmianom eksportowany plik towarów posiada dodatkowe pola i sekcje dotyczące magazynów i stanów
Kod:
[...]
nazwa =Silnik odkurzacza Atlas 14
stan =52.000000
stan handlowy =51.000000
Magazyn{
kod =MAG
stan =1.000000
stan handlowy =0.000000
}
Magazyn{
kod =POM
stan =51.000000
stan handlowy =51.000000
}
[...]