Re: wydruk notatki w forte środki trwałe
Zmodyfikuj raport -> Etykiety środków trwałych - graficzny
ZNAJDŹ
Kod:
// Etykiety środków trwałych
// (C) 2001 MATRIX.PL
WSTAW POD
Kod:
dispatch con = GetAdoConnection()
dispatch rs = "ADODB.Recordset"
limit 8000
string sub PobierzUwagi( long id_srodka)
if rs.State == 1 then rs.Close()
rs.Open( ( using "SELECT uwagi FROM ST.tblSRODKI WHERE id = %l", id_srodka),con,3,3)
PobierzUwagi = rs.Fields(0).Value
endsub
ZNAJDŹ
Kod:
SetStyl(Styl(aNazwaB, 0))
print ISSrodek.Nazwa; LF
WSTAW POD
Kod:
SetStyl(Styl(aNrP, 0))
print PobierzUwagi( idSrodka ); LF
