WinArhi > Fereastra principala > Oferte si Comenzi deschise > Meniu > Optiuni > Editare Script funcții

Funcții generale disponibile în orice script (rapoarte, accesorii, consum, etc.)

function WA_IntToHex(Value, Digits: Integer): String

function WA_StrToIntDef(AText: String; ADefault: Integer): Integer

function WA_RoundTo(AValue: Extended; ADigit: Integer): Extended - Rotunjeste cu numarul de cifre specificate in ADigit. Daca ADigit este negativ se rotunjeste cu numarul de cifre in dreapta virgulei.

function WA_Ceil(AValue: Extended): Integer - Rotunjeste in sus.

function WA_IncYear(AValue: TDateTime; ANumberOfYears: Integer = 1): TDateTime

function WA_DateTimeToStrSQL(AValue: TDateTime): String

function WA_PosEx(SubStr, Str: String; Offset: Integer): Integer

function WA_Param(Str: String; Index: Integer; Separator: Char = '',''): String

function WA_ReplaceStr(AText, AFromText, AToText: String): String

function WA_ReplaceText(AText, AFromText, AToText: String): String

function WA_StringOfChar(AChar: Char; ACount: Integer): String

function WA_SplitString(AString, ASeparator: String; ATrimAll: Boolean = True; AExcludeEmpty: Boolean = True): array of String

function WA_StrInArray(AStr: String; StringsArray: array of String; CaseSensitive: Boolean = True; WithTrim: Boolean = False): Boolean

function WA_IfThen(ACondition: Boolean; ATrueValue, AFalseValue: Variant): Variant

function WA_LoadImage(WAEngine, AfrxComponent, AImageFile: String; MessageIfFileDoesNotExist: Boolean = True) -

Incarca o imagine in TfrxPictureView sau TfrxImageControl din folder-ul de rapoarte al bazei de date.

Parametrul WAEngine se completeaza intotdeuna cu <WAEngine>

Parametrul AfrxComponent se completeaza cu numele componentei care afiseaza imaginea

Ex. WA_LoadImage(<WAEngine>, 'frxPictureView1', 'Sigla.jpg')

function WA_LoadImage2(AfrxComponent, AImageFile: String; MessageIfFileDoesNotExist: Boolean = True)

Incarca o imagine in TfrxPictureView sau TfrxImageControl din folder-ul de imagini al bazei de date.

Parametrul AfrxComponent se completeaza cu numele componentei care afiseaza imaginea

Ex. WA_LoadImage2('frxPictureView1', 'Accesorii\Maner.jpg')

function WA_MilimeterToInch16(Value: Double): String - Transforma din milimetri in inch pana la 1/16

//Desen accesorii din script

procedure WA_DrawSelectedAcc(AfrxImageControl: String)

Incarca in AfrxImageControl un desen al accesoriului la care se introduc parametrii.

Parametrul ''AfrxImageControl'' se completeaza cu numele componentei care afiseaza imaginea

Ex. WA_DrawSelectedAcc(''Image1'')

function WA_HardwareItemQty(ItemCode: String): Double

Intoarce cantitatea articolului de feronerie al ochiului pe care este accesoriul

function WA_HardwareItemTypeQty(ItemType: String): Double

Intoarce cantitatea articolului de feronerie de tipul ItemType al ochiului pe care este accesoriul

//Pentru accesul la parametrii accesoriului din rapoarte

function WA_AccScriptParamValue(AListaAccScriptIndex: Integer; AParamName: String): Variant

Valabila doar in rapoarte. Intoarce valoarea parametrului cu numele AParamName. AListaAccScriptIndex se va completa cu campul aferent din tabel de accesorii.

Pot fi folositi si parametrii AccName, AccQty, AccRemarks, AccColor, AccColorCode, DelivOnWnd.

function WA_CDSToBase64(ACds: TDSClientDataSet): String

procedure WA_Base64ToCDS(ABase64: String; ACds: TDSClientDataSet)

function WA_ShowroomDataBase: Boolean - Intoarce True daca este baza de date blocata (pentru Showroom)

procedure WA_IndexFieldNames(TableName, FieldNames: String - Sorteaza tabelul TableName dupa campurile din FieldNames.'#13#10' Campurile se separa cu ;

function WA_GetTableFilter(TableName: String): String - Intoarce filtrul tabelului TableName.

procedure WA_TableFilter(TableName, Filter: String - Filtreaza tabelul TableName cu conditia din Filter.

procedure WA_TableLocate(TableName, KeyFields: String; KeyValues: Variant

function WA_FieldExists(TableName, FieldName: String): Boolean

procedure WA_SetMasterDetail(MasterTable, MasterFields, DetailTable, DetailFields: String; DetailSubIndex: String = '')

Stabileste relatia Master-Detail a doua tabele.

Campurile se separa cu ;

Sortarea tabelului secundar se face obligatoriu dupa DetailFields si nu mai poate fi folosita functia WA_IndexFieldNames. Pentru acesta se poate folosi DetailSubIndex

procedure WA_TableLoadFromFile(ATableName, AFileName: String)

procedure WA_UserTable1LoadFromBase64(ABase64: String)

//in special pentru scriptul de debitare

procedure WA_UniQuery1FR_SetSQLIfNotSame(const ASQL: String)

procedure WA_UniQuery2FR_SetSQLIfNotSame(const ASQL: String)

procedure WA_UniQuery3FR_SetSQLIfNotSame(const ASQL: String)

procedure WA_UniQuery1FR_SetSQL(const ASQL: String)

procedure WA_UniQuery2FR_SetSQL(const ASQL: String)

procedure WA_UniQuery3FR_SetSQL(const ASQL: String)

procedure WA_UniQuery1FR_SetIndexFieldNames(const AIndexFieldNames: String)

procedure WA_UniQuery2FR_SetIndexFieldNames(const AIndexFieldNames: String)

procedure WA_UniQuery3FR_SetIndexFieldNames(const AIndexFieldNames: String)

procedure WA_UniQuery1FR_ExportExcel(const AFileName: String = '')

procedure WA_UniQuery2FR_ExportExcel(const AFileName: String = '')

procedure WA_UniQuery3FR_ExportExcel(const AFileName: String = '')

function WA_EagleTable(const ATableName: String): String

function WA_WinArhiSQLDbTableExists(const ATableName: String): Boolean

function WA_WinArhiEagleSQLDbTableExists(const ATableName: String): Boolean

function WA_OpenTable(FileName: String; InternalName: String = ''): TDSClientDataSet

InternalName poate fi omis daca nu se doreste deschiderea aceluiasi tabel de doua ori.

InternalName reprezinta instanta interna. Daca se doreste o dublura a aceluiasi tabel atunci trebuie specificat alt InternalName.

FileName poate incepe cu un sub-folder (ex. ''ScriptTabels\TableName.cds''). Folder-ul de baza este cel al bazei de date.

function WA_AddFieldListOfCodeValues(AFieldName: String): String - Intoarce o lista separata de linie noua cu codurile valorilor pentru campul suplimentar AFieldName

function WA_TranslateTableField(Text: String): String

function WA_ValueExists(ValueName: String): Boolean

function WA_DecimalSeparator: Char

function WA_StrToFloat(AValue: String): Double - Schimba virgula si punctul cu separatorul decimal inainte de a face conversia

function WA_StrToFloatDefault(AValue: String; ADefault: Double): Double - Schimba virgula si punctul cu separatorul decimal inainte de a face conversia

function WA_FloatToStrDot(AValue: Double): String

function WA_Min(const AValue1, AValue2: Variant): Variant

function WA_Max(const AValue1, AValue2: Variant): Variant

function WA_EvaluateExpr(const AExpression: String; const AVarNames, AVarValues: Variant): Double - Evalueaza expresia matematica din AExpression in AValue folosint lista de variabile si valorile lor

function WA_WriteAnsiStringToFile(AText, AFile: String): Boolean

function WA_WriteUnicodeStringToFile(AText, AFile: String): Boolean

function WA_StringInStringList(const AString, AStringList: String): Boolean - AStringList is a list of strings separated by at least LF (ASCII 10). Strings are trimmed before comparing.

function WA_RegExIsMatch(const Input, Pattern: String): Boolean - Se foloseste algoritmul PCRE RegEx pentru a determina daca in Input se gaseste un Patern

Funcții generale care pot fi folosite în script

Funcții generale care pot fi folosite în script