TPF0 TppReportppKuittiRaporttiAutoStopDataPipeline*KuittiPohjaPipelineLomake.ppKuittiPipelinePassSetting psTwoPassPrinterSetup.BinNameDefaultPrinterSetup.CopiesPrinterSetup.DocumentNameReportPrinterSetup.PaperNameA4PrinterSetup.PrinterNameCutePDF WriterPrinterSetup.mmMarginBottomˆPrinterSetup.mmMarginLeftˆPrinterSetup.mmMarginRightˆPrinterSetup.mmMarginTopˆPrinterSetup.mmPaperHeight(ˆPrinterSetup.mmPaperWidthP4PrinterSetup.PaperSize Template.FileNameC:\Jemma\kpohja00001.rtmUnits utMillimeters DeviceTypeScreenOutlineSettings.CreateNodeOutlineSettings.CreatePageNodesOutlineSettings.EnabledOutlineSettings.VisiblePreviewFormSettings.WindowStatewsMaximizedPreviewFormSettings.ZoomSettingzsPercentage TextSearchSettings.DefaultString TextSearchSettings.Enabled LeftTopVersion7.03 mmColumnWidthDataPipelineNameppKuittiPipeline TppHeaderBand ppHeaderBand1PrintHeight phDynamicmmBottomOffsetmmHeight@þmmPrintPositionTppLabelppLabel2UserNameKUITTINUMEROCaption123Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeft»mmTopÅmmWidthÈBandTypeTppLabelppLabel4UserNameLabel4CaptionKuittiFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeftJ×mmTopÅmmWidthà$BandTypeTppLabelppLabel5UserNameLabel5CaptionMyyjÃ¤Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StylefsBoldTransparent mmHeight_mmLeftSØmmTopò;mmWidth &BandTypeTppLabelppLabel6UserNameMYYJANIMINUMEROCaption MAARIT MYYJÃ„Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeftÄmmTopò;mmWidthIeBandTypeTppLineppLine1UserNameLine1ParentWidth WeightÀþ?mmHeight^mmLeftmmTop1mmWidth@ BandTypeTppLabelppLabel7UserNameAsiakasLabelCaptionAsiakasFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeftV mmTop‡‹mmWidth“0BandTypeTppLineppLine2UserNameLine2ParentWidth WeightÀþ?mmHeight4mmLeftmmTopÚmmWidth@ BandTypeTppLabelppLabel8UserNameLabel8CaptionTuoteFont.CharsetANSI_CHARSET Font.ColorclBlack Font.NameFontA11 Font.Size Font.StyleTransparent mmHeight‡mmLeftV mmTopêmmWidth'BandTypeTppLabelppLabel9UserNameLabel9CaptionA-hintaFont.CharsetANSI_CHARSET Font.ColorclBlack Font.NameFontA11 Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent mmHeight’mmLeft0ÔmmTopêmmWidth.CBandTypeTppLabel ppLabel10UserNameLabel10CaptionMÃ¤Ã¤rÃ¤Font.CharsetANSI_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent mmHeight‡mmLeft®¥mmTopêmmWidthÔ*BandTypeTppLabel ppLabel11UserNameLabel11CaptionAhinta alv0Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent mmHeight‡mmLeftxmmTopêmmWidthéJBandTypeTppLabel ppLabel12UserNameLabel12Caption Yht. alv0Font.CharsetANSI_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent mmHeight‡mmLeft/nmmTopêmmWidth0CBandTypeTppLabel ppLabel13UserNameLabel13Caption YhteensÃ¤Font.CharsetANSI_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent mmHeight‡mmLeft¢ÈmmTopêmmWidth)@BandTypeTppLineppLine3UserNameLine3ParentWidth PositionlpBottomStylelsDoubleWeightÀþ?mmHeightV mmLeftmmTopêómmWidth@ BandType TppRegion ppRegion2UserNameAsiakasAlueCaptionAsiakasAlue Pen.StylepsClearmmHeightžPmmLeft@mmTopmˆmmWidthVBandTypemmBottomOffsetmmOverFlowOffsetmmStopPosition TppDBText ppDBText18UserNameAsiakasNimiAutoSize DataFieldAsiakasnimiDataPipeline(KuittiPohjaPipelineLomake.ppKuittitiedotFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleParentDataPipelineTransparent DataPipelineNameppKuittitiedotmmHeight¶mmLeft?EmmTop˜mmWidth–IBandType TppDBText ppDBText19UserNameAsiakasNimi2AutoSize DataFieldAsiakasnimi2DataPipeline(KuittiPohjaPipelineLomake.ppKuittitiedotFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleParentDataPipelineTransparent DataPipelineNameppKuittitiedotmmHeight¶mmLeft?EmmTopœmmWidth2QBandType TppDBText ppDBText20UserNameAsiakasNimi3AutoSize DataFieldAsiakasnimi3DataPipeline(KuittiPohjaPipelineLomake.ppKuittitiedotFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleParentDataPipelineTransparent DataPipelineNameppKuittitiedotmmHeight¶mmLeft?EmmTopˆªmmWidth2QBandType TppDBText ppDBText21UserNameAsiakasPoPostiOsAutoSize DataField KertaAsOsoiteDataPipeline(KuittiPohjaPipelineLomake.ppKuittitiedotFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleParentDataPipelineTransparent DataPipelineNameppKuittitiedotmmHeight¶mmLeft?EmmTop¹mmWidthxXBandType TppDBText ppDBText22UserNameAsiakasPoPostiNro DataFieldKertaAsPostiNroDataPipeline(KuittiPohjaPipelineLomake.ppKuittitiedotFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleParentDataPipelineTransparent DataPipelineNameppKuittitiedotmmHeightmmLeft?EmmTopyÇmmWidth¶4BandType TppDBText ppDBText23UserNameAsiakasPoPostiTmpAutoSize DataFieldKertaAsPostiTmpDataPipeline(KuittiPohjaPipelineLomake.ppKuittitiedotFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleParentDataPipelineTransparent DataPipelineNameppKuittitiedotmmHeight¶mmLeft0mmTopyÇmmWidth(kBandTypeTppLabel ppLabel34UserName FirmanNimiCaptionFirman nimiFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameVerdana Font.Size Font.StylefsBoldTransparent mmHeightmmLeftV mmTopxmmWidth oBandTypeTppLabel ppLabel35UserNameFirmanLisaNimiCaptionFirmanlisÃ¤nimiFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameVerdana Font.Size Font.StyleTransparent mmHeight£mmLeftV mmTop"mmWidthäwBandTypeTppLabel ppLabel36UserNameFirmanOsoiteCaptionOsoiteFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameVerdana Font.Size Font.StyleTransparent mmHeight‰mmLeftV mmTop¾5mmWidthi+BandTypeTppLabel ppLabel37UserNameFirmanPostiOsoiteCaptionPostiOsoiteFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameVerdana Font.Size Font.StyleTransparent mmHeight‰mmLeftV mmTopPGmmWidth»LBandTypeTppLabel ppLabel39UserName FirmanPuhelinCaptionPuhelinFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameVerdana Font.Size Font.StyleTransparent mmHeight‰mmLeftV mmTopâXmmWidth¥2BandTypeTppLabelppLabel1UserNameYtunnusOtsikkoCaptionY-TunnusFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameVerdana Font.Size Font.StyleTransparent mmHeightp mmLeftV mmToplimmWidthé:BandTypeTppLabel ppLabel20UserName FirmanYtunnusCaption FirmanYtunnusFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameVerdana Font.Size Font.StyleTransparent mmHeight; mmLeftaImmToplimmWidth.SBandTypeTppLabel ppLabel38UserNameLabel1Caption%<- Noiden takana koodia, Ã¤lÃ¤ poistaFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameVerdana Font.Size Font.StyleTransparent VisiblemmHeight‰mmLeft!žmmTopÐ7mmWidthùBandType TppDBText ppDBText41UserNameDBText41 DataField MyyntiAikaDataPipeline(KuittiPohjaPipelineLomake.ppKuittitiedotFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleParentDataPipelineTransparent DataPipelineNameppKuittitiedotmmHeightmmLeft»mmTopi+mmWidthžPBandTypeTppLabel ppLabel65UserNameKASSANUMEROCaption00001Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeight¶mmLeftÄmmTop„MmmWidth &BandTypeTppLabel ppLabel66UserNameLabel66CaptionKassaFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeftSØmmTop„MmmWidth>&BandType TppDetailBand ppDetailBand1PrintHeight phDynamicmmBottomOffsetmmHeight^mmPrintPositionTppSubReportppSubReport6UserName Maksupaate ExpandAllNewPrintJobOutlineSettings.CreateNode ParentPrinterSetupTraverseAllDataDataPipelineNameppMaksuPaateRiviPipelinemmHeightÐmmLeftmmTopmmWidth@ BandTypemmBottomOffsetmmOverFlowOffsetmmStopPositionTppChildReportppChildReport6AutoStopDataPipeline2KuittiPohjaPipelineLomake.ppMaksuPaateRiviPipelinePrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.PaperNameA4PrinterSetup.PrinterNameCutePDF WriterPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeight(ˆPrinterSetup.mmPaperWidthP4PrinterSetup.PaperSize Units utMillimetersVersion7.03 mmColumnWidthDataPipelineNameppMaksuPaateRiviPipeline TppDetailBand ppDetailBand7PrintHeight phDynamicmmBottomOffsetmmHeighti+mmPrintPosition TppDBText ppDBText26UserNameDBText26AutoSize DataFieldKorttiSummaDataPipeline2KuittiPohjaPipelineLomake.ppMaksuPaateRiviPipeline DisplayFormat#,0.00;-#,0.00Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineNameppMaksuPaateRiviPipelinemmHeight°mmLeft ¦mmTopmmWidth`BandType TppDBText ppDBText29UserNameDBText29 DataField KorttiNimiDataPipeline2KuittiPohjaPipelineLomake.ppMaksuPaateRiviPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent DataPipelineNameppMaksuPaateRiviPipelinemmHeight›mmLeftqmmTopmmWidth†%BandType TppDBText ppDBText31UserName TakaisinSUmmaAutoSize DataFieldTakaisinDataPipeline2KuittiPohjaPipelineLomake.ppMaksuPaateRiviPipeline DisplayFormat#,0.00;-#,0.00Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineNameppMaksuPaateRiviPipelinemmHeightmmLeftÈmmTop´mmWidthÙ=BandType TppDBText ppDBText32UserNameTakaisinTxt DataFieldTakaisinTekstiDataPipeline2KuittiPohjaPipelineLomake.ppMaksuPaateRiviPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent DataPipelineNameppMaksuPaateRiviPipelinemmHeight›mmLeftqmmTop´mmWidth†%BandType TraCodeModule raCodeModule4 ProgramStream ƒTraEventHandlerProgramNameDetailBeforePrintProgramTypettProcedureSource«procedure DetailBeforePrint; begin if MaksupaateRiviTiedot['KayttoTapa'] = '1' then KayttoTapa := 'PK' else if MaksupaateRiviTiedot['KayttoTapa'] = '2' then KayttoTapa := 'PL' else if MaksupaateRiviTiedot['KayttoTapa'] = '3' then KayttoTapa := 'LK'; KorttiNumero := MaksupaateRiviTiedot['KorttiNumero']; voimassaOlo := MaksupaateRiviTiedot['VoimassaOlo'] ; Varmennus := MaksupaateRiviTiedot['Varmennus']; Summa := MaksupaateRiviTiedot['KorttiSumma']; KorttiNimi := MaksupaateRiviTiedot['KorttiNimi']; Tunnistusmenetelma := ''; Toimialakoodi := MaksupaateRiviTiedot['Toimialakoodi']; Aid := ''; Auttunnus := ''; { if MaksupaateRiviTiedot['Nappailty'] = '*' then KorttiNappailtyLuettuTeksti := 'Kortti nÃ¤ppÃ¤ilty' else KorttiNappailtyLuettuTeksti := 'Kortti luettu'; } if MaksupaateRiviTiedot['OlikoEMV'] = True then begin if MaksupaateRiviTiedot['Rahaxi'] = False then begin Rahaxiko := False; if MaksupaateRiviTiedot['PinTunnistus'] = True then begin Tunnistusmenetelma := 'PIN-koodi'; Aid := MaksupaateRiviTiedot['EMVAid']; Auttunnus := MaksupaateRiviTiedot['EMVAutorisointitunnus']; end else begin Tunnistusmenetelma := 'Allekirjoitus'; Aid := MaksupaateRiviTiedot['EMVAid']; end; end else begin Rahaxiko := True; end; end; if MaksupaateRiviTiedot['Takaisin'] <> 0 then begin TakaisinSumma.visible := True; end else begin TakaisinSumma.visible := False; end; Takaisintxt.Visible := Takaisinsumma.Visible; end; ComponentNameDetail EventNameBeforePrintEventIDTraEventHandlerProgramNameDBText29OnGetTextProgramTypettProcedureSource¾procedure DBText29OnGetText(var Text: String); begin if KuittiTiedot['OnkoMaksupaateRivi'] = True then Text := Text + '/' + kayttotapa {+ MaksupaateRiviTiedot['Nappailty']}; end; ComponentNameDBText29 EventName OnGetTextEventID5TppSubReportppSubReport1UserNameTuoteriviAliraportti ExpandAllNewPrintJobOutlineSettings.CreateNode ParentPrinterSetupTraverseAllDataDataPipelineNameppTuoteRiviPipelinemmHeightÐmmLeftmmTopmmWidth@ BandTypemmBottomOffsetmmOverFlowOffsetmmStopPositionTppChildReportppChildReport1AutoStopDataPipeline-KuittiPohjaPipelineLomake.ppTuoteRiviPipelinePrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.PaperNameA4PrinterSetup.PrinterNameCutePDF WriterPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeight(ˆPrinterSetup.mmPaperWidthP4PrinterSetup.PaperSize Units utMillimetersVersion7.03 mmColumnWidthDataPipelineNameppTuoteRiviPipeline TppDetailBand ppDetailBand2PrintHeight phDynamicmmBottomOffsetmmHeight“0mmPrintPosition TppDBText ppDBText1UserNameDBText1 DataFieldNimiDataPipeline-KuittiPohjaPipelineLomake.ppTuoteRiviPipelineFont.CharsetANSI_CHARSET Font.ColorclBlack Font.NameFontA11 Font.Size Font.StyleTransparent DataPipelineNameppTuoteRiviPipelinemmHeightmmLeftÃ’mmTop mmWidth®ìBandType TppDBText ppDBText2UserNameDBText2 DataFieldA-HintaDataPipeline-KuittiPohjaPipelineLomake.ppTuoteRiviPipeline DisplayFormat#,0.00;-#,0.00Font.CharsetANSI_CHARSET Font.ColorclBlack Font.NameFontA11 Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineNameppTuoteRiviPipelinemmHeight¶mmLeft(ÓmmTopmmWidth0CBandType TppDBText ppDBText3UserNameMaara DataFieldMaaraDataPipeline-KuittiPohjaPipelineLomake.ppTuoteRiviPipeline DisplayFormat0.00XFont.CharsetANSI_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineNameppTuoteRiviPipelinemmHeight¶mmLefty€mmTopmmWidth NBandType TppDBText ppDBText10UserNameDBText10 DataFieldNettoDataPipeline-KuittiPohjaPipelineLomake.ppTuoteRiviPipeline DisplayFormat#,0.00;-#,0.00Font.CharsetANSI_CHARSET Font.ColorclBlack Font.NameFontA11 Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineNameppTuoteRiviPipelinemmHeightmmLeftÅmmTopmmWidth0CBandType TppDBText ppDBText11UserName AleEuroDBText BlankWhenZero DataFieldAlennusArvoDataPipeline-KuittiPohjaPipelineLomake.ppTuoteRiviPipeline DisplayFormat#,0.00;-#,0.00Font.CharsetANSI_CHARSET Font.ColorclBlack Font.NameFontA11 Font.Size Font.StylefsItalic TextAlignmenttaRightJustifiedTransparent VisibleDataPipelineNameppTuoteRiviPipelinemmHeight‹mmLeftÅmmTop‰mmWidth#CBandType TppDBText ppDBText5UserNameDBText3AutoSize DataFieldNumeroDataPipeline-KuittiPohjaPipelineLomake.ppTuoteRiviPipelineFont.CharsetANSI_CHARSET Font.ColorclBlack Font.NameFontA11 Font.Size Font.StyleTransparent DataPipelineNameppTuoteRiviPipelinemmHeight¶mmLeftV mmTopmmWidth1BandType TppDBText ppDBText15UserNameDBText15 DataFieldA-HintaAlv0DataPipeline-KuittiPohjaPipelineLomake.ppTuoteRiviPipeline DisplayFormat#,0.00;-#,0.00Font.CharsetANSI_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineNameppTuoteRiviPipelinemmHeight¶mmLeft¬ mmTopmmWidth0CBandType TppDBText ppDBText16UserNameDBText16 DataField NettoAlv0DataPipeline-KuittiPohjaPipelineLomake.ppTuoteRiviPipeline DisplayFormat#,0.00;-#,0.00Font.CharsetANSI_CHARSET Font.ColorclBlack Font.NameFontA11 Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineNameppTuoteRiviPipelinemmHeight¶mmLeft/nmmTopmmWidth0CBandType TppDBMemo ppDBMemo1UserNameDBMemo1CharWrap DataFieldKuittiTekstiDataPipeline-KuittiPohjaPipelineLomake.ppTuoteRiviPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleParentDataPipelineStretch Transparent DataPipelineNameppTuoteRiviPipelinemmHeight4mmLeftÃ’mmTop mmWidth}wBandTypemmBottomOffsetmmOverFlowOffsetmmStopPosition mmLeading TppDBText ppDBText14UserName TuoteNimi2 DataFieldNimi2DataPipeline-KuittiPohjaPipelineLomake.ppTuoteRiviPipelineFont.CharsetANSI_CHARSET Font.ColorclBlack Font.NameFontA11 Font.Size Font.StyleTransparent DataPipelineNameppTuoteRiviPipelinemmHeightmmLeftÃ’mmTop’mmWidth®ìBandType TppDBMemo ppDBMemo2UserNameDBMemo2CharWrap DataFieldTakuuTekstiDataPipeline-KuittiPohjaPipelineLomake.ppTuoteRiviPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleShiftRelativeTo ppDBMemo1Stretch Transparent DataPipelineNameppTuoteRiviPipelinemmHeight4mmLeftÃ’mmTopO(mmWidth}wBandTypemmBottomOffsetmmOverFlowOffsetmmStopPosition mmLeading TppDBText ppDBText48UserName AleProsDBText BlankWhenZero DataFieldAlennusProsentteinaDataPipeline-KuittiPohjaPipelineLomake.ppTuoteRiviPipeline DisplayFormat#,0.00 %;-#,0.00 %Font.CharsetANSI_CHARSET Font.ColorclBlack Font.NameFontA11 Font.Size Font.StylefsItalic TextAlignmenttaRightJustifiedTransparent VisibleDataPipelineNameppTuoteRiviPipelinemmHeightmmLeft/nmmTop‰mmWidth.CBandTypeTppLabel ppLabel55UserNameAleLabelAutoSizeCaptionAleFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StylefsItalicTransparent VisiblemmHeightmmLeft7PmmTop‰mmWidth£BandType TraCodeModule raCodeModule1 ProgramStream TraEventHandlerProgramNameDetailBeforePrintProgramTypettProcedureSourceprocedure DetailBeforePrint; var aleolemassa: Boolean; begin aleolemassa := (TuoteRiviTiedot['AlennusArvo'] <> '0'); AleProsDBText.Visible := aleolemassa and (TuoteRiviTiedot['AlennusProsentteina'] <> '0'); AleEuroDBText.Visible := aleolemassa; AleLabel.Visible := aleolemassa; tuotenimi2.visible := (tuoterivitiedot['Nimi2'] <> ''); if not (tuotenimi2.visible or aleolemassa) then dbmemo1.top := tuotenimi2.top else dbmemo1.top := tuotenimi2.top + tuotenimi2.height; end; ComponentNameDetail EventNameBeforePrintEventIDTraEventHandlerProgramNameDBMemo2OnGetMemoProgramTypettProcedureSourceäprocedure DBMemo2OnGetMemo(Lines: TStrings); begin if tuoteriviTiedot['Takuu'] <> 0 then lines.text := 'Takuu '+inttostr(TuoteRiviTiedot['Takuu']) else lines.text := TuoteRiviTiedot['TakuuTeksti']; end; ComponentNameDBMemo2 EventName OnGetMemoEventIDVTppSubReportppSubReport2UserName MtAliraportti ExpandAllNewPrintJobOutlineSettings.CreateNode ParentPrinterSetupTraverseAllDataDataPipelineNameppMTRiviPipelinemmHeightÐmmLeftmmTopmmWidth@ BandTypemmBottomOffsetmmOverFlowOffsetmmStopPositionTppChildReportppChildReport2AutoStopDataPipeline*KuittiPohjaPipelineLomake.ppMTRiviPipelinePrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.PaperNameA4PrinterSetup.PrinterNameCutePDF WriterPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeight(ˆPrinterSetup.mmPaperWidthP4PrinterSetup.PaperSize Units utMillimetersVersion7.03 mmColumnWidthDataPipelineNameppMTRiviPipeline TppDetailBand ppDetailBand3VisiblemmBottomOffsetmmHeightW)mmPrintPosition TppDBText ppDBText4UserNameDBText4 DataFieldNimiDataPipeline*KuittiPohjaPipelineLomake.ppMTRiviPipelineFont.CharsetANSI_CHARSET Font.ColorclBlack Font.Name 15 cpi [Euro] Font.Size Font.StyleTransparent DataPipelineNameppMTRiviPipelinemmHeight›mmLeft(ÓmmTop mmWidthØBandTypeTppVariableppVariable2UserName MaksutapaAutoSize CalcOrderDataTypedtDouble DisplayFormat#,0.00;-#,0.00Font.CharsetANSI_CHARSET Font.ColorclBlack Font.Name10 cpi Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent mmHeight›mmLeft3¬mmTop mmWidth ^BandType TppDBText ppDBText33UserName MtTakaisinTxt DataFieldTakaisinTekstiDataPipeline*KuittiPohjaPipelineLomake.ppMTRiviPipelineFont.CharsetANSI_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent DataPipelineNameppMTRiviPipelinemmHeight›mmLeft(ÓmmTop¬mmWidthØBandType TppDBText ppDBText34UserNameMtTakaisinSumma DataFieldTakaisinDataPipeline*KuittiPohjaPipelineLomake.ppMTRiviPipeline DisplayFormat#,0.00;-#,0.00Font.CharsetANSI_CHARSET Font.ColorclBlack Font.Name 15 cpi [Euro] Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineNameppMTRiviPipelinemmHeight›mmLeft3¬mmTop¬mmWidth ^BandType TraCodeModule raCodeModule3 ProgramStream öTraEventHandlerProgramNameMtAliraporttiOnPrintProgramTypettProcedureSource[procedure MtAliraporttiOnPrint; begin detail.visible:=KuittiTiedot['Tyyppi']=2; end; ComponentName MtAliraportti EventNameOnPrintEventID TraEventHandlerProgramNameMaksutapaOnCalcProgramTypettProcedureSource procedure MaksutapaOnCalc(var Value: Variant); begin if MaksutapaRiviTiedot['MaksutapaAnnettu'] then Value := MaksutapaRiviTiedot['AnnettuSumma'] else value:=MaksutapaRiviTiedot['KaupanArvo']; value:=MaksutapaRiviTiedot['MaksutapaSumma']; end; ComponentName Maksutapa EventNameOnCalcEventID!TraEventHandlerProgramNameDetailBeforePrintProgramTypettProcedureSourceçprocedure DetailBeforePrint; begin if MaksutapaRiviTiedot['Takaisin'] > 0 then MtTakaisinTxt.visible := True else MtTakaisinTxt.visible := false; MtTakaisinSUmma.visible := MtTakaisinTxt.visible; end; ComponentNameDetail EventNameBeforePrintEventIDTppSubReportppSubReport4UserNameKassaUlosmaksuAliraportti ExpandAllNewPrintJobOutlineSettings.CreateNode TraverseAllDataDataPipelineNameppKassaUlosMaksuPipelinemmHeightÐmmLeftmmTopmmWidth@ BandTypemmBottomOffsetmmOverFlowOffsetmmStopPositionTppChildReportppChildReport4AutoStopDataPipeline2KuittiPohjaPipelineLomake.ppKassaUlosMaksuPipelinePrinterSetup.BinNameDefaultPrinterSetup.CopiesPrinterSetup.DocumentNameReportPrinterSetup.PaperNameA4PrinterSetup.PrinterNameCutePDF WriterPrinterSetup.mmMarginBottomˆPrinterSetup.mmMarginLeftˆPrinterSetup.mmMarginRightˆPrinterSetup.mmMarginTopˆPrinterSetup.mmPaperHeight(ˆPrinterSetup.mmPaperWidthP4PrinterSetup.PaperSize Units utMillimetersVersion7.03 mmColumnWidthDataPipelineNameppKassaUlosMaksuPipeline TppDetailBand ppDetailBand5mmBottomOffsetmmHeight‰mmPrintPosition TppDBText ppDBText12UserNameDBText12 DataFieldNimiDataPipeline2KuittiPohjaPipelineLomake.ppKassaUlosMaksuPipelineFont.CharsetANSI_CHARSET Font.ColorclBlack Font.NameFontA11 Font.Size Font.StyleTransparent DataPipelineNameppKassaUlosMaksuPipelinemmHeight‰mmLeftmmTopmmWidthÄ½BandType TppDBText ppDBText13UserNameDBText13 DataFieldSummaDataPipeline2KuittiPohjaPipelineLomake.ppKassaUlosMaksuPipeline DisplayFormat0.00Font.CharsetANSI_CHARSET Font.ColorclBlack Font.NameFontA11 Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineNameppKassaUlosMaksuPipelinemmHeight‰mmLeftÅmmTopmmWidth0CBandType TraCodeModule raCodeModule7 ProgramStream TppSubReportppSubReport5UserName TekstiRivi ExpandAllNewPrintJobOutlineSettings.CreateNode TraverseAllDataDataPipelineNameppTekstiPipelinemmHeightÐmmLeftmmTopmmWidth@ BandTypemmBottomOffsetmmOverFlowOffsetmmStopPositionTppChildReportppChildReport5AutoStopDataPipeline*KuittiPohjaPipelineLomake.ppTekstiPipelinePrinterSetup.BinNameDefaultPrinterSetup.CopiesPrinterSetup.DocumentNameReportPrinterSetup.PaperNameA4PrinterSetup.PrinterNameCutePDF WriterPrinterSetup.mmMarginBottomˆPrinterSetup.mmMarginLeftˆPrinterSetup.mmMarginRightˆPrinterSetup.mmMarginTopˆPrinterSetup.mmPaperHeight(ˆPrinterSetup.mmPaperWidthP4PrinterSetup.PaperSize Units utMillimetersVersion7.03 mmColumnWidthDataPipelineNameppTekstiPipeline TppDetailBand ppDetailBand6mmBottomOffsetmmHeight£mmPrintPosition TppDBText ppDBText17UserNameDBText17AutoSize DataFieldTekstiDataPipeline*KuittiPohjaPipelineLomake.ppTekstiPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent DataPipelineNameppTekstiPipelinemmHeight¶mmLeftmmTopmmWidth%BandType TraCodeModule raCodeModule6 ProgramStream TppSubReportppSubReport8UserName ValisummaRivi ExpandAllNewPrintJobOutlineSettings.CreateNode ParentPrinterSetupTraverseAllDataDataPipelineNameppValisummaPipelinemmHeightÐmmLeftmmTopmmWidth@ BandTypemmBottomOffsetmmOverFlowOffsetmmStopPositionTppChildReportppChildReport8AutoStopDataPipeline-KuittiPohjaPipelineLomake.ppValisummaPipelinePrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.PaperNameA4PrinterSetup.PrinterNameCutePDF WriterPrinterSetup.mmMarginBottomˆPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopˆPrinterSetup.mmPaperHeight(ˆPrinterSetup.mmPaperWidthP4PrinterSetup.PaperSize Units utMillimetersVersion7.03 mmColumnWidthDataPipelineNameppValisummaPipeline TppDetailBand ppDetailBand9PrintHeight phDynamicmmBottomOffsetmmHeightà.mmPrintPosition TppDBText ppDBText24UserNameDBText17AutoSize DataField ValisummaDataPipeline-KuittiPohjaPipelineLomake.ppValisummaPipeline DisplayFormat#,0.00;-#,0.00Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineNameppValisummaPipelinemmHeightmmLefto³mmTop"mmWidth0RBandTypeTppLineppLine7UserNameLine7StylelsDoubleWeightÀþ?mmHeightV mmLeft‚:mmTopmmWidth½ÏBandTypeTppLabel ppLabel28UserNameLabel28Caption YhteensÃ¤Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeft‚:mmTop"mmWidthFBandTypeTppLabel ppLabel29UserNameLabel29AutoSizeCaptionAlennusFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent VisiblemmHeightmmLeft‚:mmTopÎmmWidth<BandType TppDBText ppDBText25UserNameDBText25 DataField AnnettuAleDataPipeline-KuittiPohjaPipelineLomake.ppValisummaPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent VisibleDataPipelineNameppValisummaPipelinemmHeight›mmLeftïÂmmTopÎmmWidth.CBandType TppDBText ppDBText30UserNameDBText30 DataField AleYksikkoDataPipeline-KuittiPohjaPipelineLomake.ppValisummaPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent VisibleDataPipelineNameppValisummaPipelinemmHeight›mmLeft.mmTopÎmmWidth›BandType TraCodeModule raCodeModule8 ProgramStream =TraEventHandlerProgramNameDetailBeforePrintProgramTypettProcedureSourcezprocedure DetailBeforePrint; begin if Valisumma['Onkoensimmainen'] = True then begin Line7.visible := True; DbText17.font.size := 14; Label28.font.size := 14; end else begin Line7.visible := False; DbText17.font.size := 12; Label28.Font.size := 12; end; if Valisumma['AnnettuAle'] <> 0 then begin {detail.height := 12;} label29.visible := True; dbtext30.visible := True; dbtext25.visible := True; end else begin {detail.height := 6;} label29.visible := False; dbtext30.visible := False; dbtext25.visible := False; end; end; ComponentNameDetail EventNameBeforePrintEventIDTraEventHandlerProgramNameLabel28OnGetTextProgramTypettProcedureSource¨procedure Label28OnGetText(var Text: String); begin if Valisumma['Onkoensimmainen'] = True then Text := 'YHTEENSÃ„' else Text := 'VÃ¤lisumma'; end; ComponentNameLabel28 EventName OnGetTextEventID5TppSubReport ppSubReport10UserNamelaskunsuoritus ExpandAllNewPrintJobOutlineSettings.CreateNode TraverseAllDataDataPipelineNameppLaskSuorPipelinemmHeightÐmmLeftmmTopmmWidth@ BandTypemmBottomOffsetmmOverFlowOffsetmmStopPositionTppChildReportppChildReport10AutoStopDataPipeline,KuittiPohjaPipelineLomake.ppLaskSuorPipelinePrinterSetup.BinNameDefaultPrinterSetup.CopiesPrinterSetup.DocumentNameReportPrinterSetup.PaperNameA4PrinterSetup.PrinterNameCutePDF WriterPrinterSetup.mmMarginBottomˆPrinterSetup.mmMarginLeftˆPrinterSetup.mmMarginRightˆPrinterSetup.mmMarginTopˆPrinterSetup.mmPaperHeight(ˆPrinterSetup.mmPaperWidthP4PrinterSetup.PaperSize Units utMillimetersVersion7.03 mmColumnWidthDataPipelineNameppLaskSuorPipeline TppDetailBandppDetailBand11mmBottomOffsetmmHeightØ8mmPrintPosition TppDBText ppDBText38UserNameDBText38 DataFieldLaskunSummaDataPipeline,KuittiPohjaPipelineLomake.ppLaskSuorPipeline DisplayFormat#,0.00;-#,0.00Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineNameppLaskSuorPipelinemmHeightmmLeft‘«mmTop‰mmWidthÀTBandTypeTppLabel ppLabel42UserNameLabel42CaptionSuoritusFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StylefsBold TextAlignmenttaRightJustifiedTransparent mmHeight‰mmLeftàŒmmTopmmWidthÐ7BandType TppDBText ppDBText39UserNameDBText39 DataFieldLaskuNroDataPipeline,KuittiPohjaPipelineLomake.ppLaskSuorPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineNameppLaskSuorPipelinemmHeight¶mmLeft#½mmTopmmWidth.CBandTypeTppLabel ppLabel43UserNameLabel43CaptionLasku# Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent mmHeight¶mmLeftl~mmTopmmWidthI0BandTypeTppLabel ppLabel44UserNameLabel44CaptionSummaFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent mmHeightmmLeft mmTop‰mmWidth‹/BandType TppDBText ppDBText40UserNameDBText40AutoSize BlankWhenZero DataFieldSummaDataPipeline,KuittiPohjaPipelineLomake.ppLaskSuorPipeline DisplayFormat#,0.00;-#,0.00Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StylefsBold TextAlignmenttaRightJustifiedTransparent DataPipelineNameppLaskSuorPipelinemmHeight‰mmLeftNÎmmTopmmWidthá9BandType TraCodeModule raCodeModule9 ProgramStream TppSubReport ppSubReport11UserNameRahaxiTeksti ExpandAllNewPrintJobOutlineSettings.CreateNode TraverseAllDataDataPipelineNameppRahaxiTekstiPipelinemmHeightÐmmLeftmmTopmmWidth@ BandTypemmBottomOffsetmmOverFlowOffsetmmStopPositionTppChildReportppChildReport11AutoStopDataPipeline0KuittiPohjaPipelineLomake.ppRahaxiTekstiPipelinePrinterSetup.BinNameDefaultPrinterSetup.CopiesPrinterSetup.DocumentNameReportPrinterSetup.PaperNameA4PrinterSetup.PrinterNameCutePDF WriterPrinterSetup.mmMarginBottomˆPrinterSetup.mmMarginLeftˆPrinterSetup.mmMarginRightˆPrinterSetup.mmMarginTopˆPrinterSetup.mmPaperHeight(ˆPrinterSetup.mmPaperWidthP4PrinterSetup.PaperSize Units utMillimetersVersion7.03 mmColumnWidthDataPipelineNameppRahaxiTekstiPipeline TppDetailBandppDetailBand12PrintHeight phDynamicmmBottomOffsetmmHeight„MmmPrintPosition TppDBText ppDBText42UserNameDBText42 BlankWhenZero DataFieldTeksti1DataPipeline0KuittiPohjaPipelineLomake.ppRahaxiTekstiPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent DataPipelineNameppRahaxiTekstiPipelinemmHeightmmLeftV mmTopmmWidth7BandType TppDBText ppDBText43UserNameDBText43 BlankWhenZero DataFieldTeksti2DataPipeline0KuittiPohjaPipelineLomake.ppRahaxiTekstiPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent DataPipelineNameppRahaxiTekstiPipelinemmHeightmmLeftV mmTop›mmWidth7BandType TppDBText ppDBText44UserNameDBText44 BlankWhenZero DataFieldTeksti3DataPipeline0KuittiPohjaPipelineLomake.ppRahaxiTekstiPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent DataPipelineNameppRahaxiTekstiPipelinemmHeightmmLeftV mmTop$#mmWidth7BandType TppDBText ppDBText45UserNameDBText45 BlankWhenZero DataFieldTeksti4DataPipeline0KuittiPohjaPipelineLomake.ppRahaxiTekstiPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent DataPipelineNameppRahaxiTekstiPipelinemmHeightmmLeftV mmTop3mmWidth7BandType TraCodeModuleraCodeModule11 ProgramStream ©TraEventHandlerProgramNameDetailBeforePrintProgramTypettProcedureSourceprocedure DetailBeforePrint; begin DBText42.Visible := RahaxiTekstit['Teksti1'] <> ''; DBText43.Visible := RahaxiTekstit['Teksti2'] <> ''; DBText44.Visible := RahaxiTekstit['Teksti3'] <> ''; DBText45.Visible := RahaxiTekstit['Teksti4'] <> ''; end; ComponentNameDetail EventNameBeforePrintEventIDTppSubReport ppSubReport12UserNameSisaanulosKirjRaportti ExpandAllNewPrintJobOutlineSettings.CreateNode TraverseAllDataDataPipelineNameppSisaanUloskirjausPipelinemmHeightÐmmLeftmmTopmmWidth@ BandTypemmBottomOffsetmmOverFlowOffsetmmStopPositionTppChildReportppChildReport12AutoStopDataPipeline5KuittiPohjaPipelineLomake.ppSisaanUloskirjausPipelinePrinterSetup.BinNameDefaultPrinterSetup.CopiesPrinterSetup.DocumentNameReportPrinterSetup.PaperNameA4PrinterSetup.PrinterNameCutePDF WriterPrinterSetup.mmMarginBottomˆPrinterSetup.mmMarginLeftˆPrinterSetup.mmMarginRightˆPrinterSetup.mmMarginTopˆPrinterSetup.mmPaperHeight(ˆPrinterSetup.mmPaperWidthP4PrinterSetup.PaperSize Units utMillimetersVersion7.03 mmColumnWidthDataPipelineNameppSisaanUloskirjausPipeline TppDetailBandppDetailBand13mmBottomOffsetmmHeightAmmPrintPosition TppRegion ppRegion4UserNameNormaaliRegionCaptionNormaaliRegionParentWidth Pen.StylepsClearmmHeightò;mmLeftmmTopmmWidth@ BandTypemmBottomOffsetmmOverFlowOffsetmmStopPositionTppLabel ppLabel57UserNameSisaanKirjLabelCaptionSisÃ¤Ã¤nkirjattuFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeft+mmTop<mmWidth¯RBandType TppDBText ppDBText49UserNameSisaanKirjDBText DataField SisaanaikaDataPipeline5KuittiPohjaPipelineLomake.ppSisaanUloskirjausPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineNameppSisaanUloskirjausPipelinemmHeightmmLeftË“mmTop<mmWidth½‹BandTypeTppLabel ppLabel58UserName UlosKirjLabelCaptionUloskirjattuFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeight¶mmLeft+mmTopÎmmWidth!DBandType TppDBText ppDBText50UserNameUlosKirjDBText DataFieldUlosaikaDataPipeline5KuittiPohjaPipelineLomake.ppSisaanUloskirjausPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineNameppSisaanUloskirjausPipelinemmHeightmmLeftË“mmTopÎmmWidth½‹BandTypeTppLabel ppLabel59UserName KestoLabelCaptionKestoFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeft+mmTop`*mmWidth$#BandType TppDBText ppDBText51UserNameKestoDBText DataFieldKestoDataPipeline5KuittiPohjaPipelineLomake.ppSisaanUloskirjausPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineNameppSisaanUloskirjausPipelinemmHeightmmLeftË“mmTop`*mmWidth½‹BandType TraCodeModuleraCodeModule10 ProgramStream ÀTraEventHandlerProgramNameDetailBeforePrintProgramTypettProcedureSource1procedure DetailBeforePrint; var b: Boolean; s: string; begin b := SisaanUloskirjausRivi['Keskeytysko']; if not b then begin b := (SisaanUloskirjausRivi['Ulosaika'] <> 0.0); UlosKirjLabel.Visible := b; UlosKirjDBText.Visible := b; s := Trim(StringReplace(SisaanUloskirjausRivi['Kesto'], 'h', '', 3)); b := True; if (s = '0.00') or (s = '0') then b := False; KestoLabel.Visible := b; KestoDBText.Visible := b; end else begin b := True; UlosKirjLabel.Text := 'ULOSKIRJAUS KESK.'; UlosKirjLabel.Visible := b; UlosKirjDBText.Visible := b; b := False; SisaanKirjLabel.Visible := b; SisaanKirjDBText.Visible := b; KestoLabel.Visible := b; KestoDBText.Visible := b; end; end; ComponentNameDetail EventNameBeforePrintEventID TppFooterBand ppFooterBand1mmBottomOffsetmmHeightðmmPrintPositionTppLineppLine5UserNameLine5ParentWidth WeightÀþ?mmHeight+mmLeftmmTopmmWidth@ BandTypeTppSystemVariableppSystemVariable2UserNameSystemVariable2VarTypevtPageCountFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeft”õmmTopmmWidthM BandTypeTppLabel ppLabel18UserNameLabel18Caption/Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeftiðmmTopmmWidth"BandTypeTppSystemVariableppSystemVariable3UserNameSystemVariable3VarTypevtPageNoFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent mmHeightmmLeftæmmTopmmWidth<BandTypeTppLabel ppLabel19UserNameLabel19CaptionSivuFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent mmHeight¶mmLeft.¾mmTopmmWidthuBandTypeTppLabelppLabel3UserNameLabel3CaptionLabel3Font.CharsetDEFAULT_CHARSET Font.ColorclSilver Font.NameArial Black Font.Size Font.StylefsBold TextAlignment taCenteredTransparent mmHeightÅmmLeft«gmmTopmmWidth>BandTypeTppLabel ppLabel40UserNamewwwCaptionwwwFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightp mmLeftV mmTop"mmWidth´BandTypeTppLabel ppLabel41UserNameemailCaptionemailFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeight¼mmLeftV mmTop4mmWidth BandTypeTppSystemVariableppSystemVariable1UserNameSystemVariable1VarTypevtPrintDateTimeFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightM mmLeftš¸mmTop›mmWidthPGBandTypeTppSummaryBandppSummaryBand1PrintHeight phDynamicmmBottomOffsetmmHeightÀ mmPrintPositionTppSubReportppSubReport3UserNameAlvAliraportti ExpandAllNewPrintJobOutlineSettings.CreateNode ParentPrinterSetupTraverseAllDataDataPipelineName ppAlvPipelinemmHeight›mmLeftmmTop‚.mmWidth@ BandTypemmBottomOffsetmmOverFlowOffsetmmStopPositionTppChildReportppChildReport3AutoStopDataPipeline'KuittiPohjaPipelineLomake.ppAlvPipelinePrinterSetup.BinNameDefaultPrinterSetup.DocumentNameReportPrinterSetup.PaperNameA4PrinterSetup.PrinterNameCutePDF WriterPrinterSetup.mmMarginBottomPrinterSetup.mmMarginLeftPrinterSetup.mmMarginRightPrinterSetup.mmMarginTopPrinterSetup.mmPaperHeight(ˆPrinterSetup.mmPaperWidthP4PrinterSetup.PaperSize Units utMillimetersVersion7.03 mmColumnWidthDataPipelineName ppAlvPipelineTppTitleBandppTitleBand1mmBottomOffsetmmHeight×mmPrintPositionTppLabel ppLabel14UserNameLabel2Caption Veron perusteFont.CharsetANSI_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLefty€mmTopÓmmWidthXhBandTypeTppLabel ppLabel15UserNameLabel3CaptionAlv-0%Font.CharsetANSI_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent mmHeight›mmLefti7mmTop<mmWidth¶4BandTypeTppLabel ppLabel16UserNameLabel16CaptionAlvFont.CharsetANSI_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent mmHeight›mmLeftv•mmTop<mmWidth½BandTypeTppLabel ppLabel17UserNameLabel17Caption VerollinenFont.CharsetANSI_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent mmHeight›mmLeft³»mmTop<mmWidthaIBandType TppDetailBand ppDetailBand4mmBottomOffsetmmHeightÅmmPrintPosition TppDBText ppDBText6UserNameDBText6 DataFieldSeliteDataPipeline'KuittiPohjaPipelineLomake.ppAlvPipelineFont.CharsetANSI_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent DataPipelineName ppAlvPipelinemmHeight›mmLeft‚mmTopmmWidthchBandType TppDBText ppDBText7UserNameDBText7 DataFieldVerotonDataPipeline'KuittiPohjaPipelineLomake.ppAlvPipeline DisplayFormat#,0.00;-#,0.00 â‚¬Font.CharsetANSI_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineName ppAlvPipelinemmHeight›mmLeft’mmTopmmWidthŒNBandType TppDBText ppDBText8UserNameDBText8AutoSize DataFieldVeroDataPipeline'KuittiPohjaPipelineLomake.ppAlvPipeline DisplayFormat#,0.00;-#,0.00 â‚¬Font.CharsetANSI_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineName ppAlvPipelinemmHeight›mmLeft‰mmTopmmWidth$#BandType TppDBText ppDBText9UserNameDBText9 DataField YhteensÃ¤DataPipeline'KuittiPohjaPipelineLomake.ppAlvPipeline DisplayFormat#,0.00;-#,0.00Font.CharsetANSI_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineName ppAlvPipelinemmHeight›mmLeftˆ¶mmTopmmWidthŒNBandTypeTppSummaryBandppSummaryBand2mmBottomOffsetmmHeightp mmPrintPosition TraCodeModule raCodeModule2 ProgramStream TppRegion ppRegion1UserNameMaksupaateRegionKeepTogether CaptionMaksupaateRegionParentWidth Pen.StylepsClearShiftRelativeToppSubReport3Stretch mmHeightd‡mmLeftmmTop¯RmmWidth@ BandTypemmBottomOffsetmmOverFlowOffsetmmStopPositionTppLabel ppLabel21UserNameLabel21CaptionKortin nimi Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeftV mmTopÑVmmWidthSBandTypeTppLabel ppLabel22UserNameLabel22Caption Kortin numeroFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeft.ümmTopÑVmmWidthXhBandTypeTppLabel ppLabel23UserNameLabel23CaptionSummaFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeftV mmToplimmWidthb9BandTypeTppLabel ppLabel24UserNameLabel24CaptionLabel24Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeft.ümmTop}kmmWidth3;BandTypeTppLabel ppLabel25UserNameLabel25CaptionLabel25Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeftV mmTop~mmWidth3;BandTypeTppLineppLine6UserNameLine6Weight€ÿ?mmHeight^mmLeft^mmTop¹mmWidth^^BandTypeTppLabel ppLabel26UserNameLabel26Caption AllekirjoitusFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeft^mmTop#½mmWidthSBandTypeTppLabel ppLabel27UserNameLabel27Caption VarmennusFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeight›mmLeft®¥mmTop}kmmWidthÀTBandTypeTppLabel ppLabel30UserNameLabel30CaptionLabel30Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignment taCenteredTransparent mmHeight›mmLeft^mmTopÑVmmWidthé:BandTypeTppLabel ppLabel51UserNameLabel51Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent VisiblemmHeight’mmLeftz9mmTopFÁmmWidth’ÊBandTypeTppLabel ppLabel52UserNameLabel52Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeight’mmLeftz9mmTop«®mmWidth’ÊBandTypeTppLabel ppLabel49UserNameLabel49Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeight’mmLeftz9mmTopœmmWidth’ÊBandTypeTppLabel ppLabel48UserNameLabel48Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeight’mmLeftz9mmTopv‰mmWidth’ÊBandTypeTppLabel ppLabel47UserNameLabel47AutoSizeCaption Aut.tunnusFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StylefsItalicTransparent VisiblemmHeight’mmLeft·¦mmTopFÁmmWidthjJBandTypeTppLabel ppLabel46UserNameLabel46AutoSizeCaptionAidFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StylefsItalicTransparent mmHeight’mmLeft®¥mmTop«®mmWidth×BandTypeTppLabel ppLabel50UserNameLabel50AutoSizeCaption ToimialakoodiFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StylefsItalicTransparent mmHeight’mmLeft®¥mmTopœmmWidth`BandTypeTppLabel ppLabel45UserNameLabel45AutoSizeCaptionTunnistusmenetelmÃ¤Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StylefsItalicTransparent mmHeight’mmLeft®¥mmTopv‰mmWidth²BandTypeTppLabel ppLabel53UserNameLabel53Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeightmmLeft.ümmTop)€mmWidth3;BandTypeTppSubReportppSubReport9UserNameLaskutiedotAliraportti ExpandAllNewPrintJobOutlineSettings.CreateNode TraverseAllDataVisibleDataPipelineNameppLaskutiedotPipelinemmHeight£mmLeftmmTopÎmmWidth@ BandTypemmBottomOffsetmmOverFlowOffsetmmStopPositionTppChildReportppChildReport9AutoStopDataPipeline/KuittiPohjaPipelineLomake.ppLaskutiedotPipelinePrinterSetup.BinNameDefaultPrinterSetup.CopiesPrinterSetup.DocumentNameReportPrinterSetup.PaperNameA4PrinterSetup.PrinterNameCutePDF WriterPrinterSetup.mmMarginBottomˆPrinterSetup.mmMarginLeftˆPrinterSetup.mmMarginRightˆPrinterSetup.mmMarginTopˆPrinterSetup.mmPaperHeight(ˆPrinterSetup.mmPaperWidthP4PrinterSetup.PaperSize Units utMillimetersVersion7.03 mmColumnWidthDataPipelineNameppLaskutiedotPipelineTppTitleBandppTitleBand5mmBottomOffsetmmHeight<mmPrintPosition TppDetailBandppDetailBand10mmBottomOffsetmmHeight¯RmmPrintPositionTppLabel ppLabel31UserNameLabel31CaptionLaskun nro:Font.CharsetDEFAULT_CHARSET Font.ColorclWindowText Font.NameArial Font.Size Font.StylefsBoldTransparent mmHeightƒmmLeft mmTopmmWidthë^BandTypeTppLabel ppLabel32UserNameLabel32CaptionErÃ¤pÃ¤ivÃ¤:Font.CharsetDEFAULT_CHARSET Font.ColorclWindowText Font.NameArial Font.Size Font.StylefsBoldTransparent mmHeightƒmmLeftmmTopèmmWidth”JBandType TppDBText ppDBText35UserNameDBText35 DataFieldLaskunroDataPipeline/KuittiPohjaPipelineLomake.ppLaskutiedotPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclWindowText Font.NameArial Font.Size Font.StyleTransparent DataPipelineNameppLaskutiedotPipelinemmHeight›mmLeft'ammTopmmWidthS…BandType TppDBText ppDBText36UserNameDBText36 DataFieldErapaivaDataPipeline/KuittiPohjaPipelineLomake.ppLaskutiedotPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclWindowText Font.NameArial Font.Size Font.StyleTransparent DataPipelineNameppLaskutiedotPipelinemmHeight›mmLeft'ammTopèmmWidthS…BandTypeTppLabel ppLabel33UserNameLabel33Caption Viitenro:Font.CharsetDEFAULT_CHARSET Font.ColorclWindowText Font.NameArial Font.Size Font.StylefsBoldTransparent mmHeight-mmLeftmmTop¾5mmWidth#CBandType TppDBText ppDBText37UserNameDBText37 DataFieldViitenroDataPipeline/KuittiPohjaPipelineLomake.ppLaskutiedotPipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent DataPipelineNameppLaskutiedotPipelinemmHeight£mmLeft'ammTop¾5mmWidthS…BandTypeTppSummaryBandppSummaryBand6mmBottomOffsetmmHeightgmmPrintPositionTppSubReportppSubReport7UserNameMaaraAletRaportti ExpandAllNewPrintJobOutlineSettings.CreateNode TraverseAllDataDataPipelineNameppMaaraAlePipelinemmHeight£mmLeftmmTopmmWidth@ BandTypemmBottomOffsetmmOverFlowOffsetmmStopPositionTppChildReportppChildReport7AutoStopDataPipeline,KuittiPohjaPipelineLomake.ppMaaraAlePipelinePrinterSetup.BinNameDefaultPrinterSetup.CopiesPrinterSetup.DocumentNameReportPrinterSetup.PaperNameA4PrinterSetup.PrinterNameCutePDF WriterPrinterSetup.mmMarginBottomˆPrinterSetup.mmMarginLeftˆPrinterSetup.mmMarginRightˆPrinterSetup.mmMarginTopˆPrinterSetup.mmPaperHeight(ˆPrinterSetup.mmPaperWidthP4PrinterSetup.PaperSize Units utMillimetersVersion7.03 mmColumnWidthDataPipelineNameppMaaraAlePipelineTppTitleBandppTitleBand2mmBottomOffsetmmHeightèmmPrintPositionTppLabel ppLabel54UserNameLabel54CaptionMÃ¤Ã¤rÃ¤aletFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StylefsBoldTransparent mmHeightƒmmLeft mmTop"mmWidthLBandType TppDetailBand ppDetailBand8mmBottomOffsetmmHeight½mmPrintPosition TppDBText ppDBText27UserNameDBText27 DataFieldNroDataPipeline,KuittiPohjaPipelineLomake.ppMaaraAlePipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent DataPipelineNameppMaaraAlePipelinemmHeightmmLeftmmTop"mmWidth.CBandType TppDBText ppDBText28UserNameDBText28 DataFieldNimiDataPipeline,KuittiPohjaPipelineLomake.ppMaaraAlePipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent DataPipelineNameppMaaraAlePipelinemmHeightmmLeftaImmTop"mmWidthœBandType TppDBText ppDBText46UserNameDBText46 DataFieldEhtoDataPipeline,KuittiPohjaPipelineLomake.ppMaaraAlePipelineFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent DataPipelineNameppMaaraAlePipelinemmHeightmmLeft‹èmmTop"mmWidthaIBandType TppDBText ppDBText47UserNameDBText47 DataFieldSummaDataPipeline,KuittiPohjaPipelineLomake.ppMaaraAlePipeline DisplayFormat0.00Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.Style TextAlignmenttaRightJustifiedTransparent DataPipelineNameppMaaraAlePipelinemmHeightmmLeft5mmTop"mmWidth.CBandTypeTppSummaryBandppSummaryBand3mmBottomOffsetmmHeight4mmPrintPosition TppRegion ppRegion3UserNameAllekirjoitusRegionKeepTogether CaptionAllekirjoitusRegionParentWidth Pen.StylepsClearShiftRelativeTo ppRegion1Stretch VisiblemmHeight`*mmLeftmmTop>ßmmWidth@ BandTypemmBottomOffsetmmOverFlowOffsetmmStopPositionTppLabel ppLabel56UserNameLabel56Caption AllekirjoitusFont.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.NameArial Font.Size Font.StyleTransparent mmHeight›mmLeftM mmTopêómmWidth·SBandTypeTppLineppLine4UserNameLine4Weight€ÿ?mmHeight^mmLeftM mmTopÈïmmWidth^^BandType TraCodeModule raCodeModule5 ProgramStream ›$ TraVarProgram ChildTypeProgramName VariablesProgramTypettProcedureSource˜procedure Variables; var KayttoTapa: String; KorttiNumero: String; voimassaOlo: String; Varmennus: String; Tunnistusmenetelma: String; Toimialakoodi: String; Aid: String; Auttunnus: String; Summa: Double; KorttiNimi: String; FCopy: Integer; Rahaxiko: Boolean; KorttiNappailtyLuettuTeksti: String; AllekirjoitusNakyvissa: Boolean; begin end; TraProgram ChildTypeProgramNameGlobalOnCreateProgramTypettProcedureSource—procedure GlobalOnCreate; begin Fcopy := 0; Rahaxiko := False; KorttiNappailtyLuettuTeksti := ''; Allekirjoitusnakyvissa := False; end; TraEventHandlerProgramNameDetailBeforePrintProgramTypettProcedureSourceÕprocedure DetailBeforePrint; var t: Integer; begin t := KuittiTiedot['Tyyppi']; maksupaate.Visible := False; tuoteRivialiraportti.Visible := False; kassaulosmaksuAliraportti.Visible := False; mtaliraportti.Visible := False; TekstiRivi.Visible := False; laskunsuoritus.Visible := False; { MyyntiErottelu.visible := false;} ValisummaRivi.Visible := False; RahaxiTeksti.Visible := False; SisaanulosKirjRaportti.Visible := False; case t of 1: {Tuote} TuoteRiviAliRaportti.Visible := True; 4: {VÃ¤lisumma} begin if Valisumma['AnnettuAle'] <> 0 then ValisummaRivi.Height := 12 else ValisummaRivi.Height := 6; ValisummaRivi.Visible := True; end; 2: {Maksutapa} MtAliraportti.Visible := True; 5: {Teksti} Tekstirivi.Visible := True; 13: {Kassaanmaksu} KassaUlosmaksuAliRaportti.Visible := True; 14: {Ulosmaksu} begin KassaUlosmaksuAliRaportti.Visible := True; AllekirjoitusNakyvissa := True; end; 17: {SisÃ¤Ã¤nkirjaus} SisaanulosKirjRaportti.Visible := True; 18: {Uloskirjaus} SisaanulosKirjRaportti.Visible := True; 19: {Laskun suoritus} laskunsuoritus.Visible := True; 45: {MaksupÃ¤Ã¤te} Maksupaate.Visible := True; 25: {Rahaxi, tulostetaan oikea tyyppi oikealle henkilÃ¶lle} begin if ((FCopy <> 1) and (RahaxiTekstit['Tyyppi'] = 0)) or ((FCopy = 1) and (RahaxiTekstit['Tyyppi'] <> 0)) then RahaxiTeksti.Visible := True; end; end; end; if (t <> 0) and (t <> 99) {and (t <> 10)} and (t <> 9999) then Detail.Visible := True else Detail.Visible := False; if Kuitintiedot['Asiakasnumero'] <> 0 then AsiakasAlue.Visible := True else AsiakasAlue.Visible := False; if Laskutiedot['Laskunro'] <> 0 then label4.Caption := 'LÃ¤hete' else label4.Caption := 'Kuitti'; end; ComponentNameDetail EventNameBeforePrintEventIDTraEventHandlerProgramNameLabel21OnGetTextProgramTypettProcedureSourcefprocedure Label21OnGetText(var Text: String); begin Text := KorttiNimi + ' ' + KayttoTapa; end; ComponentNameLabel21 EventName OnGetTextEventID5TraEventHandlerProgramNameLabel22OnGetTextProgramTypettProcedureSourceÑprocedure Label22OnGetText(var Text: String); begin if Fcopy = 1 then Text := 'Korttinro: ...' + Copy(KorttiNumero,length(korttinumero)-4, 5) else Text := 'Korttinro: ' + KorttiNumero; end; ComponentNameLabel22 EventName OnGetTextEventID5TraEventHandlerProgramNameLabel24OnGetTextProgramTypettProcedureSourcebprocedure Label24OnGetText(var Text: String); begin Text := FormatFloat('0.00', Summa) end; ComponentNameLabel24 EventName OnGetTextEventID5TraEventHandlerProgramNameLabel25OnGetTextProgramTypettProcedureSource®procedure Label25OnGetText(var Text: String); begin if Summa >= 0 then Text := 'HyvÃ¤ksyn veloitettavaksi' else Text := 'HyvÃ¤ksyn hyvitettÃ¤vÃ¤ksi'; end; ComponentNameLabel25 EventName OnGetTextEventID5TraEventHandlerProgramNameLabel27OnGetTextProgramTypettProcedureSourceŸprocedure Label27OnGetText(var Text: String); begin if Varmennus <> '' then Text := 'Varmennustunnus: ' + Varmennus else Text := ''; end; ComponentNameLabel27 EventName OnGetTextEventID5TraEventHandlerProgramNameSummaryBeforePrintProgramTypettProcedureSourceÁprocedure SummaryBeforePrint; var b: Boolean; begin if Summa <> 0 then MaksupaateRegion.Visible := True else MaksupaateRegion.Visible := False; if Laskutiedot['Laskunro'] <> 0 then LaskutiedotAliraportti.Visible := True; if MaksupaateRegion.Visible then MaksupaateRegion.Visible := (not Rahaxiko); if MaksupaateRegion.Visible then begin b := (FCopy <> 1); {MyyjÃ¤n kappale} Label53.Text := KorttiNappailtyLuettuTeksti; Line6.Visible := b; Label26.Visible := b; Label25.Visible := b; b := False; if Tunnistusmenetelma <> '' then begin b := True; Label48.Text := Tunnistusmenetelma; Label49.Text := Toimialakoodi; Label52.Text := Aid; end; Label45.Visible := b; Label50.Visible := b; Label46.Visible := b; Label47.Visible := b; Label48.Visible := b; {TunnistusmenetelmÃ¤} Label49.Visible := b; {Toimialakoodi} Label52.Visible := b; {Aid} Label51.Visible := b; {Aut.tunnus} if b then begin if AutTunnus <> '' then begin Label47.Visible := True; Label51.Visible := True; Label51.Text := AutTunnus; end else begin Label47.Visible := False; Label51.Visible := False; end; end; end; if AllekirjoitusNakyvissa then AllekirjoitusRegion.Visible := True; end; ComponentNameSummary EventNameBeforePrintEventIDTraEventHandlerProgramNameReportOnStartPageProgramTypettProcedureSource‹procedure ReportOnStartPage; begin if (Report.SecondPass = True ) and (Report.AbsolutePageNo = 1) then FCopy := FCopy + 1; end; ComponentNameReport EventNameOnStartPageEventIDTraEventHandlerProgramNameLabel3OnGetTextProgramTypettProcedureSourceprocedure Label3OnGetText(var Text: String); var s: string; begin s := ''; if Report.PrinterSetup.Copies > 1 then begin if Fcopy = 1 then s := 'Asiakkaan kappale' else s := 'MyyjÃ¤n kappale'; end; Text := s; end; ComponentNameLabel3 EventName OnGetTextEventID5TraEventHandlerProgramNameLabel30OnGetTextProgramTypettProcedureSourcecprocedure Label30OnGetText(var Text: String); begin Text := 'Voimassa: ' + voimassaolo; end; ComponentNameLabel30 EventName OnGetTextEventID5TraEventHandlerProgramNameAsiakasAlueOnPrintProgramTypettProcedureSourcekprocedure AsiakasAlueOnPrint; begin asiakasalue.visible := Kuitintiedot['Asiakasnumero'] <> 0; end; ComponentNameAsiakasAlue EventNameOnPrintEventID TraEventHandlerProgramNameFirmanNimiOnGetTextProgramTypettProcedureSourcedprocedure FirmanNimiOnGetText(var Text: String); begin Text := SkjAsetusS('YritysNimi'); end; ComponentName FirmanNimi EventName OnGetTextEventID5TraEventHandlerProgramNameFirmanLisaNimiOnGetTextProgramTypettProcedureSourcelprocedure FirmanLisaNimiOnGetText(var Text: String); begin Text := SkjAsetusS('YritysLisaNimi'); end; ComponentNameFirmanLisaNimi EventName OnGetTextEventID5TraEventHandlerProgramNameFirmanOsoiteOnGetTextProgramTypettProcedureSourcebprocedure FirmanOsoiteOnGetText(var Text: String); begin Text := SkjAsetusS('Osoite'); end; ComponentNameFirmanOsoite EventName OnGetTextEventID5TraEventHandlerProgramNameFirmanPostiOsoiteOnGetTextProgramTypettProcedureSourcehprocedure FirmanPostiOsoiteOnGetText(var Text: String); begin Text := SkjAsetusS('PostiOs'); end; ComponentNameFirmanPostiOsoite EventName OnGetTextEventID5TraEventHandlerProgramNameFirmanPuhelinOnGetTextProgramTypettProcedureSourceprocedure FirmanPuhelinOnGetText(var Text: String); begin Text := SkjAsetusS('Puh1') + ' ' + SkjAsetusS('Puh2'); Text := Trim(Text); if Text = '' then if SkjAsetusS('Fax') <> '' then Text := 'Fax: ' + SkjAsetusS('Fax'); end; ComponentName FirmanPuhelin EventName OnGetTextEventID5TraEventHandlerProgramNameFirmanYtunnusOnGetTextProgramTypettProcedureSourcedprocedure FirmanYtunnusOnGetText(var Text: String); begin Text := SkjAsetusS('Ytunnus'); end; ComponentName FirmanYtunnus EventName OnGetTextEventID5TraEventHandlerProgramNameemailOnGetTextProgramTypettProcedureSourceµprocedure emailOnGetText(var Text: String); begin if SkjAsetusS('sahkoposti') <> '' then Text := 'sÃ¤hkÃ¶posti '+ SkjAsetusS('sahkoposti') else Text := ''; end; ComponentNameemail EventName OnGetTextEventID5TraEventHandlerProgramNamewwwOnGetTextProgramTypettProcedureSourceœprocedure wwwOnGetText(var Text: String); begin if SkjAsetusS('www') <> '' then Text := 'www '+ SkjAsetusS('www') else Text := ''; end; ComponentNamewww EventName OnGetTextEventID5TppParameterListppParameterList1TppParameterKASSANRODataTypedtStringValue00001TppParameterALIASDataTypedtStringValueJemmaTppParameter OHJELMAVERSIODataTypedtStringValue3.12.2010 12:06:22