<< Kliknij, aby wyświetlić Spis treści >> Nawigacja:  Dodatki > Przykładowy Skrypt napisany w VBScript

Li = PB.RowCount( "dzk_poz_edy", il_rc )

Fro i = 1 to li_rc

Li = PB.GetItemNumber("dzk_poz_edy", i ,"cena", ln_cena)

If ln_cena = 0 then

Msgbox("cena tego towaru jest zerowa „)

End if

Next