31 lines
1.3 KiB
QBasic
31 lines
1.3 KiB
QBasic
Attribute VB_Name = "modDruckPruefgang"
|
|
|
|
Public Sub DruckPruefgang(PruefgangNr As Long)
|
|
|
|
PrinterMsg "Prüfprotokoll PrüfgangNr: " & m_Pruefgang.PruefgangNr
|
|
PrinterMsg ""
|
|
PrinterMsg "Datum der Prüfung: " & Format(m_Pruefgang.Datum, "dd.mm.yyyy hh:mm")
|
|
PrinterMsg ""
|
|
PrinterMsg "Prüfstation " & Format(g_App.PruefstationNr, "@@@@") & " Ort: " & g_App.Settings.PruefstationStandort
|
|
PrinterMsg ""
|
|
PrinterMsg "PrüferNr: " & g_App.Mitarbeiter.getNr & " Name: " & g_App.Mitarbeiter.getName
|
|
PrinterMsg ""
|
|
|
|
PrinterMsg CStr(Einbauplatz.getNr) & ". Einbauplatz Auftrag: " & CStr(Pruefzaehler.getAuftrag.getNr)
|
|
PrinterMsg ""
|
|
PrinterMsg "Seriennummer: " & CStr(Pruefzaehler.getSerienNr)
|
|
PrinterMsg ""
|
|
PrinterMsg "Prüfpunkte nach Klasse: " & Pruefzaehler.getPruefklasseKZ
|
|
PrinterMsg ""
|
|
PrinterMsg "Zählertyp: " & Pruefzaehler.getIdentNrObj.getTyp & " " & Pruefzaehler.getIdentNrObj.getTypzusatz & "," & Pruefzaehler.getIdentNrObj.getTemperatur & " Grad, Anzeige: " & Pruefzaehler.getAuftragPosition.getAnzeige
|
|
|
|
PrinterMsg "Prüfung durchgeführt mit " & PZCount & " Zählern"
|
|
|
|
PrinterMsg "Prüfungsart: Vergleichsprüfung gegen Referenzzähler"
|
|
PrinterMsg "Prüfungsart: Waage"
|
|
PrinterMsg ""
|
|
PrinterMsg "Grenzwert überschritten: " & m_Pruefpunkt.getFGu & " < " & Fehler & " < " & m_Pruefpunkt.getFGu
|
|
|
|
End Sub
|
|
|