Mam listę płac paski troszkę edytowana, wyskakuje okienko wyboru okresu kiedy dam wykonaj pojawia się taki komunikat
Załącznik:
kdpask01.jpg [ 13.83 KiB | Przeglądany 2016 razy ]
Kod od linii 108 do 131
Kod:
for i = 0 to i >= nSklCount
DaneSkladnika ( skl,i )
if Skladnik ( i,okr ) || zerowe || skl.typ == "Element kadrowy" then
buf = skl.opis //pole opis skladnika do bufora
sPomXX = find regular "/(P/)"
if sPomXX then
tabela #tbl, od pozStab1,pozWtab1
kolumna 1, skl.GetNazwaDoDruku()
kolumna 2, StrSkladnik( i,okr )
koniec
pozWtab1 = str.Pozycja(#Y)
else
tabela #tbl, od pozStab2,pozWtab2
kolumna 1, skl.GetNazwaDoDruku()
kolumna 2, StrSkladnik( i,okr )
koniec
pozWtab2 = str.Pozycja(#Y)
endif
endif
next i
DaneSkladnika ( skl,i )
if Skladnik ( i,okr ) || zerowe || skl.typ == "Element kadrowy" then
buf = skl.opis //pole opis skladnika do bufora
sPomXX = find regular "/(P/)"
if sPomXX then
tabela #tbl, od pozStab1,pozWtab1
kolumna 1, skl.GetNazwaDoDruku()
kolumna 2, StrSkladnik( i,okr )
koniec
pozWtab1 = str.Pozycja(#Y)
else
tabela #tbl, od pozStab2,pozWtab2
kolumna 1, skl.GetNazwaDoDruku()
kolumna 2, StrSkladnik( i,okr )
koniec
pozWtab2 = str.Pozycja(#Y)
endif
endif
next i
czy jest ktoś jest w stanie mi pomoc ?