Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

   oAAA := CreateObject( "AAA...." )
   ...
   oBBB := CreateObject( "BBB...." )
   ...
   oAAA:MyProperty := oBBB       // DAS geht NICHT mit Xbase++

Code: Alles auswählen

$appobj = new-object -comobject praxisCENTER3.ApplicationObject
$appobj.SetMode('MultiplePatient', '1')

# get Physician
$physician = $appobj.Physician

$physician.LANR="123456789"
$physician.BSNR="821234567"
$physician.Title="Dr"
$physician.FirstName="Hans"
$physician.LastName="Maier"
$physician.PostalCode="81369"
$physician.Activate()

# get Patients 
$patients = $appobj.Patients
$patients.Clear()
$patients.Count
 
# add new patient
$pat1 = new-object -comobject praxiscenter3.patient
$patients.add($pat1)
$pat1.ID = "45678"
$pat1.IKId = "108377503"
$pat1.InsuredMemberId = "123456789"
$pat1.FirstName = "Max"
$pat1.LastName = "Mayer2"
$pat1.City = "Berlin"
$pat1.PostalCode = "80337"
$pat1.Street = "Parkstrasse"
$pat1.No = "6"
$pat1.Pregnancy = 0
$pat1.Height = 196
$pat1.Birthday = "07.09.1981"
$pat1.Sex = 0

# get prescription collection
$prescription = $pat1.Prescription
$prescription.Clear()

# add new prescription item
# erfolgt in ipc
#$presMed = new-object -comobject praxiscenter3.PrescriptionMedicament
#$presMed.NecAutIdem=1
#$presMed.Count=4
#$presMed.PIC=780908
#$presMed.PrintName="xyz_PrintName2"
#$presMed.NewPrescription=1
#$presMed.Dosage.Morning = 3
#$presMed.SelectedPrescriptionType = 1
#$prescription.Add($presMed)
#$prescription.Activate()

# aktivate patient
$pat1.Activate()
# aktivate App/Session
$appobj.Activate()

$appobj.Show()


# Rezeptieren
# ALT + F9

$med = new-object -comobject praxisCENTER3.Medicament
foreach ($presMed in $prescription)
{
	# $presMed.PIC

	$appobj.GetMedicament($presMed.PIC,[ref]$med)
	# Ausgabe der Eigenschaften in der Console
	$med.PIC
	$med.narcoticaddition
	$med.Homeopathic

}
#$prescription.Count
#$presMed = $prescription.Item(0)
#$presMed.PIC


$appobj.Hide()
$appobj.Close()

Code: Alles auswählen

$med = new-object -comobject praxisCENTER3.Medicament
foreach ($presMed in $prescription)
{
   # $presMed.PIC

   $appobj.GetMedicament($presMed.PIC,[ref]$med)

Code: Alles auswählen

   bCollBlock     := {|oService,n| AADD(aItem,{ n,;
     oService:getProperty("PIC"),;
     oService:getProperty("narcoticaddition"),;
     oService:getProperty("Homeopathic") })}

   ComEvalCollection(prescription, bCollBlock )

   IF LEN(aItem) > 0
       // auswerten
   ENDIF

Code: Alles auswählen

// AutomationObjekt
oIfap := CreateObject("PraxisCENTER3.ApplicationObject")
oIfap := oIfap:dynamicCast ( ActiveXObject() )
...
...
oIfAp:OnPrescription := { |x| FOnPrescript(x) }


STATIC FUNCTION FOnPrescript (x)
aMedi := AClone ({})
  
// IfAp-PC verstecken
oIfap:Hide()
 
oMed := CreateObject("PraxisCENTER3.Medicament")

// Presciption --> aMedi
IF oPat:Prescription:Count > 0

   for i:=0 to oPat:Prescription:Count-1
			oMedic := oPat:Prescription:Item(i)
      // Daten des Medikamentes in Array ablegen
      cPZN := padl(alltrim(ntoc(oMedic:PIC)), 7, "0")

			oifap:GetMedicament(cPZN, oMed)

      nAVP := val(strtran(ntoc(oMed:Pharmacyprice), ",", "."))
      aadd(aMedi,{cZ1, cZ2, cPZN, nAVP, oMed:DosageForm, allTrim(oMed:Quantity)+" "+allTrim(oMed:QuantityOfUnit), cSort, cDosi, nAnz})
      
			? cPZN
			? nAVP      
   next i
   use
ENDIF
oPat:Prescription:Clear()
lPrescription := .T.
RETURN (.T.)

Code: Alles auswählen

oifap:GetMedicament(cPZN, @oMed)

Code: Alles auswählen

oIfap:dynamicCast ( ActiveXObject() )

Code: Alles auswählen

o:subscribeEvent("Name_of_Event")

Code: Alles auswählen

oifap:GetMedicament(cPZN, oMed)

Code: Alles auswählen

 {|oService, n| ...}

Code: Alles auswählen

#$presMed.PIC=780908

Code: Alles auswählen

oifap:GetMedicament(nPZN, oMed:interface)