Witam
Problem dotyczy już bardzo starych wersji ale i też tych najnowszych.
Gdyby ktoś chciał drukować "Spis z natury" z kodami paskowymi (tam często przechowywane są przeróżne informacje) to napotka problem : pierwszy towar na liście ma pusty kod paskowy a pozostałe mają kod paskowy "poprzednika". Odpowiedzialny za ten stan rzeczy jest błąd logiczny w raporcie drukujący to zestawienie (linia 316):
Cytuj:
if bKod then kolumna i,regular 2 : i+=1
SetKeySeg(tw,"kod",regular 2)
KodP = GetField(tw,"Kodpaskowy")
if bKodP then kolumna i, KodP : i+=1
SetKeySeg(tw,"kod",regular 2)
KodP = GetField(tw,"Kodpaskowy")
if bKodP then kolumna i, KodP : i+=1
klasyczny błąd : GetField() bez GetRec()
zrobiłem tak :
Cytuj:
if bKod then kolumna i,regular 2 : i+=1
SetKeySeg(tw,"kod",regular 2)
GetRec(tw,EQ)
KodP = GetField(tw,"Kodpaskowy")
if bKodP then kolumna i, KodP : i+=1
SetKeySeg(tw,"kod",regular 2)
GetRec(tw,EQ)
KodP = GetField(tw,"Kodpaskowy")
if bKodP then kolumna i, KodP : i+=1
Może nie jest zbyt elegancko (bo dalej też jest GetRec() ) ale czytelnie i działa
pozdrawiam
Robert