Editare Script funcții |
Top Previous Next |
|
Left, Right, Up, Down: Integer; //lungimile de falt la feronerie si dimensiunile ochiului în care se află profilul pentru profile LeftActive, RightActive, UpActive, DownActive: Integer; //lungimile de falt (doar la feronerie) ActiveHandleHeight: Integer;//înăltimea de jos de la falt (v11) (doar la feronerie) HandleSideLength: Integer;//faltul pe latura manerului (indisponibil la domeniul XY al setului) (v11) (doar la feronerie) SashPrHeight: Double; //(doar la feronerie) SashPrWidth: Double; //(doar la feronerie) SashCode: String; //(doar la feronerie) FramePrHeight: Double; FramePrWidth: Double; FrameCode: String; FrameType: Integer;//TipProfilSimplu DownFrameCode: String; ThresholdCode: String; PrSeries: String; PrSubSeries: String; PrBaseColor: String;//v11 PrBaseColorCode: String;//v11 PrIntAplColor: String;//v11 PrIntAplColorCode: String;//v11 PrExtAplColor: String;//v11 PrExtAplColorCode: String;//v11 PrRabbetAplColor: String;//v11 PrRabbetAplColorCode: String;//v11 PrExtPlatingColor: String;//v11 PrPosition: Integer; //ProfilePosUp, ProfilePosDown, ... OutOpening: Boolean; //la feronerie este al cercevelei iar în rest al ferestrei HardwareColor: String; HardwareFixedColor: String; ArticleColor: String; HasFalseMullion: Boolean;//doar la feronerie si la profilele de cercevea //v11 WeightGr: Integer; //greutatea termopanului (doar la feronerie) KgPerSqm: Double; //greutatea termopanului (doar la feronerie) ActiveOpeningSet: String; //doar la feronerie HasActiveOpening: Boolean; //doar la feronerie si la profilele de cercevea FalseMullionCode: String; //doar la feronerie si la profilele de cercevea DrainageCapsCode: String; //doar la feronerie //Pentru funcțiile apelate de termopan GlassHeight: Double; GlassWidth: Double; //Pentru functiile apelate din profile PrLength: Double; PrArchHeight: Double;//ia si valori negative pentru bolta în interior //SteelLength: Double;//Lungimea aproximativă a armăturii (PrLength - 2 * C_Otel) WindowQty: Integer;//numărul de ferestre final (înmultit deja cu PanelQty) PanelQty: Integer;//numarul de panouri CallerQty: Double;//cantitea totală (înmultit deja cu CallerPcs); la profile este lungimea totala CallerPcs: Double;//la profile este numarul de bucati de profil CallerPos: Integer;
//Consum si debitare function WA_AddCutItem( Code: String; Length: Double; NumberOfPieces: Double = 1; NumberOfCutedPieces: Integer = 0; Angle1: Double = 90; //-1 pentru a prelua unghiul profilului apelant Angle2: Double = 90; //-1 pentru a prelua unghiul profilului apelant SourceTableType: Integer = 0; //TTipTabelScriptFunctii = (Profile, Placare, Feronerie, Geam, Manopera, ManoperaMontaj) ColorBase: String = ''; ColorAplInt: String = ''; ColorAplExt: String = ''; ColorAplRabbet: String = ''; OptimizationNeeded: Boolean = False //nu se ține cont decât la accesorii, placare și dacă este găsită culoarea (altfel este setat automat în funcție de culoare) ): Double
//Consum function WA_AddItem( Code: String; Quantity: Double; SourceTableType: Integer = 0; //TTipTabelScriptFunctii = (Profile, Placare, Feronerie, Geam, Manopera, ManoperaMontaj) ColorBase: String = ''; ColorAplInt: String = ''; ColorAplExt: String = ''; ColorAplRabbet: String = ''; ): Double
//Consum //Debitare doar la profile de fereastra function ProfilExp( Cod: String; Culoare: String = ''''; Catitate: Double = 1; NrBuc: Double = 1; PozProfil: String = ''''; U1: Double = -1; //-1 pentru a prelua unghiul profilului apelant U2: Double = -1; //-1 pentru a prelua unghiul profilului apelant SubSerie: String = ''''; UBeta1: Double = 90; UBeta2: Double = 90): Boolean
//Consum (pentru apelul funcțiilor interne) function ExecFunc( 'FunctionName: String; 'Param1: String; 'Param2: String = ''''; 'Param3: String = ''''; 'Param4: String = ''''; 'Param5: String = ''''; 'Param6: String = ''''; 'Param7: String = ''''; 'Param8: String = ''''; 'Param9: String = ''''; 'Param10: String = ''''): Boolean
//După apelul funcțiilor WA_AddCutItem si WA_AddItem poziționarea cursorului în aceste tabele poate fi schimbată //deoarece sunt aceleasi tabele cu care lucrează aceste funcții function cdsProfile: TDSClientDataSet; function cdsColor: TDSClientDataSet; function cdsPlatingColor: TDSClientDataSet; function cdsHardware: TDSClientDataSet; function cdsGlass: TDSClientDataSet; |