Proszę pooglądać raporty które już są w programie. Jest klika miejsc gdzie można podpatrzeć jak to zrobić. Wg. mnie to jakoś tak :
Kod:
dispatch xDocPn = xFActory.NewObject("BDokumentPn")
xDocPn.Edit()
xDocPn.UstawRejestr("KASA")
xDocPn.UstawTypDk("KP")
xDocPn.UstawKwote(100)
xDocPn.data_platnosci = "2008-0101"
xDocPn.DaneKh.khKod= "kontrahent"
print xDocPn.Save() // 0-udało się