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

with AddFieldDef do begin Name := 'OrdineVizualizareCom'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'OrdineCampSup'; DataType := ftWideString; Size := 100; end;

with AddFieldDef do begin Name := 'Ordine'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'TipObj'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'TipObjRO'; DataType := ftString; Size := 1; end;

//PozFerUsa corespunde cu cdsConsElm.PozitieFerUsa

with AddFieldDef do begin Name := 'PozFerUsa'; DataType := ftInteger; end;//pozitia panou+fereastra ex.2001, 2002

with AddFieldDef do begin Name := 'PozObiect'; DataType := ftInteger; end;//pozitia obiectului ex.1, 2, 3 (panou sau fereastra)

with AddFieldDef do begin Name := 'NrBucataFereastra'; DataType := ftInteger; end;//daca sunt 2 buc.fer. va fi 1 sau 2

with AddFieldDef do begin Name := 'Produs'; DataType := ftWideString; Size := 30; end;

with AddFieldDef do begin Name := 'ProdusFisaMontaj'; DataType := ftWideString; Size := 70; end;

with AddFieldDef do begin Name := 'Obiect'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'ObjNrBuc'; DataType := ftInteger end;

with AddFieldDef do begin Name := 'ObjSerie'; DataType := ftWideString; Size := 30; end;

with AddFieldDef do begin Name := 'ObjSubSerie'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'ObjCuloare'; DataType := ftWideString; Size := 100; end;//100 din v11 pentru a primi culoare completa

with AddFieldDef do begin Name := 'ObjCuloareBaza'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'ObjCuloareAplInt'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'ObjCuloareAplExt'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'ObjCuloareAplFlt'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'ObjCuloarePlcExt'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'ObjCuloarePlcExtObs'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'ObjObs'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'ObjObs2'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'ObjObs3'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'ObjObs4'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'ObjObs5'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'OptiuniSelFerUsa'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'OptiuniSelComplet'; DataType := ftWideMemo; end;//opțiunile selectabile complete (fereastră + comandă)

with AddFieldDef do begin Name := 'OptionaleFeronerie'; DataType := ftWideMemo; end;//opționalele de feronerie efective (câte o linie CodGrupa=Cod): ale cercevelei pentru profilele ei, ale tuturor cercevelelor ferestrei pentru toc, prag, montanți, ștulp, baghete și profile suplimentare; gol la cuplări, panouri și accesorii

with AddFieldDef do begin Name := 'ObjObsOferta'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'ObjOrasLivrare'; DataType := ftWideString; Size := 40; end;

with AddFieldDef do begin Name := 'ObjJudetLivrare'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'ObjTaraLivrare'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'ObjJudetClient'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'ObjGarnituriBataieFer'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'ObjGarnituriBataieUsa'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'ObjGarnituriTermopanToc'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'ObjGarnituriTermopanCcv'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'ObjFeroMarcaCuloare'; DataType := ftWideString; Size := 100; end;

with AddFieldDef do begin Name := 'ObjDealer'; DataType := ftWideString; Size := 30; end;

with AddFieldDef do begin Name := 'ObjTipMontaj'; DataType := ftWideString; Size := 40; end;

with AddFieldDef do begin Name := 'TipImbColt'; DataType := ftWideString; Size := 50; end;//tipul de îmbinare de colț

with AddFieldDef do begin Name := 'CodObiect'; DataType := ftWideString; Size := 10; end;

with AddFieldDef do begin Name := 'Amplasare'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'Suprafata'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'SuprafataBrut'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'ID_Sertar'; DataType := ftInteger; end;//sertarul pentru optimizare

with AddFieldDef do begin Name := 'MaxID_Sertar'; DataType := ftInteger; end;//sertarul cel mai mare per toc si ccv separat

with AddFieldDef do begin Name := 'ID_SertarBagheta'; DataType := ftInteger; end;//sertarul baghetei. daca se foloseste sertar separat de cel de toc

with AddFieldDef do begin Name := 'ID_SertarPrSup'; DataType := ftInteger; end;//sertarul profilelor suplimentare daca se foloseste sertar separat de cel de toc

with AddFieldDef do begin Name := 'ID_Rama'; DataType := ftInteger; end;//ID-ul din codul de bare de sudura

with AddFieldDef do begin Name := 'ID_RamaDeLaToc'; DataType := ftInteger; end;//ID-ul din codul de bare de sudura (cel al tocului)

with AddFieldDef do begin Name := 'ID_FerUsa'; DataType := ftInteger; end;//sertarul ferestrei (a tocului). In special pentu a sti ce cercevea la ce fereastra vine

with AddFieldDef do begin Name := 'SertarBnd'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'ID_Sertare_Cercevele'; DataType := ftWideString; Size := 200; end;//sertarele cercevelelor care vin la impreuna cu acel toc (sau bandou?)

with AddFieldDef do begin Name := 'ID_Sertare_Bagheta'; DataType := ftWideString; Size := 200; end;//sertarele baghetelor care vin la impreuna cu acel toc (sau bandou?)

with AddFieldDef do begin Name := 'ID_Sertare_Bagheta_Ochi'; DataType := ftWideString; Size := 200; end;//ochiurile pentru ID_Sertare_Bagheta

with AddFieldDef do begin Name := 'PrimulCodUnicElement'; DataType := ftInteger; end;//chiar daca sunt mai multe bucati el este acelasi (primul)

with AddFieldDef do begin Name := 'CodUnicElement'; DataType := ftInteger; end;//cod unic de element (ferestre, accesorii, adausuri toc etc.)

with AddFieldDef do begin Name := 'CodUnicElementFereastra'; DataType := ftInteger; end;//CodUnicElement al ferestrei de care apartine (daca apartine...)

with AddFieldDef do begin Name := 'FisierComanda'; DataType := ftWideString; Size := 100; end;

with AddFieldDef do begin Name := 'NumeClient'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'CodDocument'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'IDUnicClient'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'IDUnicOferta'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'NrOferta'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'DataTabelOferta'; DataType := ftDateTime; end;

with AddFieldDef do begin Name := 'DataLivrare'; DataType := ftDateTime; end;

with AddFieldDef do begin Name := 'DataMontaj'; DataType := ftDateTime; end;

with AddFieldDef do begin Name := 'DataComandaFerma'; DataType := ftDateTime; end;

with AddFieldDef do begin Name := 'CodUnicComanda'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'CodCicluProd'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'CodInternComanda'; DataType := ftWideString; Size := LengthCodIntern; end;

with AddFieldDef do begin Name := 'CodIntern2Comanda'; DataType := ftWideString; Size := LengthCodIntern; end;

with AddFieldDef do begin Name := 'CodIntern3Comanda'; DataType := ftWideString; Size := LengthCodIntern; end;

with AddFieldDef do begin Name := 'CodClient'; DataType := ftWideString; Size := 30; end;

with AddFieldDef do begin Name := 'CodUnicOferta'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'CodPunctOfertare'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'DZ_Cod'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'DZ_Denumire'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'Div1_Cod'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'Label_Cod'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'CampSupXML'; DataType := ftWideMemo; end;//înlocuiește vechile câmpuri CampSup0Denumire, CampSup0Valoare ... CampSup9Valoare. Conține un XML cu perechile denumire/valoare ale câmpurilor suplimentare ale ofertei

with AddFieldDef do begin Name := 'Imagine'; DataType := ftWideString; Size := 20; end;//din DSWinArhiImage

with AddFieldDef do begin Name := 'NrRama'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'IndexRama'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'PozProfil'; DataType := ftWideString; Size := 10; end;

with AddFieldDef do begin Name := 'PozProfilSimplu'; DataType := ftWideString; Size := 10; end;

with AddFieldDef do begin Name := 'PozProfilSimpluRO'; DataType := ftWideString; Size := 10; end;

with AddFieldDef do begin Name := 'PozObligProfilOV'; DataType := ftString; Size := 1; end;

with AddFieldDef do begin Name := 'NrProfilInCadru'; DataType := ftInteger end;

with AddFieldDef do begin Name := 'AreManer'; DataType := ftWideString; Size := 1; end;

with AddFieldDef do begin Name := 'CotaManerP'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'CotaManerO'; DataType := ftFloat; end;//cota mânerului pe armătură, la prima armătură (CodO0): se măsoară de la capătul A al armăturii sau, dacă CotaManerODinCapatB = True, de la capătul B; la armătura i se mută odată cu acel capăt (CotaManerO - AjustareOA0 + AjustareOAi, respectiv cu B)

with AddFieldDef do begin Name := 'DenManer'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'Marca'; DataType := ftWideString; Size := 30; end;

with AddFieldDef do begin Name := 'SerieProfile'; DataType := ftWideString; Size := 30; end;

//CuloareCompleta in afara de CatCuloareP care este categoria culorii de baza

with AddFieldDef do begin Name := 'CatCuloareP'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'CodCuloareP'; DataType := ftWideString; Size := 20; end;//este cod culoare complet

with AddFieldDef do begin Name := 'DenCuloareP'; DataType := ftWideString; Size := 60; end;

with AddFieldDef do begin Name := 'CuloareP'; DataType := ftWideString; Size := 200; end;//200 din v11 pentru a prelua culoarea completa dar identic cu CreazaTabelConsum() pentru a nu aparea truncheri diferite si sa nu mai corespunda un tabel cu altul

with AddFieldDef do begin Name := 'SeparatorCodCul'; DataType := ftWideString; Size := 3; end;

//Culore de baza si Culorile aplicate ale profilului

with AddFieldDef do begin Name := 'CodCulBaza'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'CulBaza'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'CodCulAplInt'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'CulAplInt'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'CodCulAplExt'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'CulAplExt'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'CodCulAplFlt'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'CulAplFlt'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'CulPlcExt'; DataType := ftWideString; Size := 50; end;//v12

with AddFieldDef do begin Name := 'CulPlcExtObs'; DataType := ftWideString; Size := 50; end;//v12.0.104

//Culorile Int si Ext ale bazei

with AddFieldDef do begin Name := 'CuloareIntP'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'CuloareExtP'; DataType := ftWideString; Size := 50; end;

//Culorile afisate (daca este vopsit profilul)

with AddFieldDef do begin Name := 'CodCuloareAfisata'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'CuloareAfisata'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'CodP'; DataType := ftWideString; Size := 30; end;

with AddFieldDef do begin Name := 'VariantaP'; DataType := ftWideString; Size := 40; end;

with AddFieldDef do begin Name := 'CodMasina'; DataType := ftWideString; Size := 10; end;

with AddFieldDef do begin Name := 'SufixCodP'; DataType := ftWideString; Size := 10; end;

with AddFieldDef do begin Name := 'DenP'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'LungBara'; DataType := ftInteger; end;//Lungimea in mm pentru optimizare ca sa introduca automat in stoc profile (la calculare consum)

with AddFieldDef do begin Name := 'LungBara2'; DataType := ftInteger; end;//Lungimea in mm pentru optimizare ca sa introduca automat in stoc profile (la calculare consum)

with AddFieldDef do begin Name := 'LungBara3'; DataType := ftInteger; end;//Lungimea in mm pentru optimizare ca sa introduca automat in stoc profile (la calculare consum)

with AddFieldDef do begin Name := 'LungBara4'; DataType := ftInteger; end;//Lungimea in mm pentru optimizare ca sa introduca automat in stoc profile (la calculare consum)

with AddFieldDef do begin Name := 'LungBara5'; DataType := ftInteger; end;//Lungimea in mm pentru optimizare ca sa introduca automat in stoc profile (la calculare consum)

with AddFieldDef do begin Name := 'IgnoraLungMaxBara'; DataType := ftBoolean; end;//daca este bifat nu va mai da mesaj de lungime maxima depasita

with AddFieldDef do begin Name := 'FunctiiDXF'; DataType := ftMemo; end;//vor fi separate de | functiile care se aplica la aplicarea in cascada

with AddFieldDef do begin Name := 'NrTermopanBagheta'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'BaghetaDirectInCadru'; DataType := ftBoolean; end;

with AddFieldDef do begin Name := 'NrTermopanSpros'; DataType := ftInteger; end;

for i := 0 to HIGH_OTELURI do begin

with AddFieldDef do begin Name := 'CodO' + IntToStr(i); DataType := ftWideString; Size := 30; end;

with AddFieldDef do begin Name := 'FunctiiDXFO' + IntToStr(i); DataType := ftMemo; end;//vor fi separate de | functiile care se aplica la aplicarea in cascada

with AddFieldDef do begin Name := 'SufixCodO' + IntToStr(i); DataType := ftWideString; Size := 10; end;

with AddFieldDef do begin Name := 'DenO' + IntToStr(i); DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'DenO' + IntToStr(i) + 'Scurta'; DataType := ftWideString; Size := 25; end;

with AddFieldDef do begin Name := 'LungBaraO' + IntToStr(i); DataType := ftInteger; end;//Lungimea in mm pentru optimizare ca sa introduca automat in stoc profile (la optimizare)

with AddFieldDef do begin Name := 'LungBara2O' + IntToStr(i); DataType := ftInteger; end;//Lungimea in mm pentru optimizare ca sa introduca automat in stoc profile (la optimizare)

with AddFieldDef do begin Name := 'LungBara3O' + IntToStr(i); DataType := ftInteger; end;//Lungimea in mm pentru optimizare ca sa introduca automat in stoc profile (la optimizare)

with AddFieldDef do begin Name := 'OptiPtConsumO' + IntToStr(i); DataType := ftInteger; end;//TTipAjustareConsum (pentru ca optimizarea sa seteze automat NrMinimBare)

end;

with AddFieldDef do begin Name := 'CodPrag'; DataType := ftWideString; Size := 30; end;

with AddFieldDef do begin Name := 'DenPrag'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'DenPragScurta'; DataType := ftWideString; Size := 25; end;

with AddFieldDef do begin Name := 'IDUnicProfil'; DataType := ftInteger; end;//TProfil.IDUnicProfil

with AddFieldDef do begin Name := 'IDUnicProfilBaza'; DataType := ftInteger; end;//TProfil.IDUnicProfilBaza

with AddFieldDef do begin Name := 'LungSiUnghiIdenticeCuProfilBaza'; DataType := ftBoolean; end;//TProfil.LungSiUnghiIdenticeCuProfilBaza

with AddFieldDef do begin Name := 'IDUnicProfilOtel'; DataType := ftInteger; end;//v9 - primul ID din HIGH_OTELURI

with AddFieldDef do begin Name := 'Unghi1Otel'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'Unghi2Otel'; DataType := ftFloat end;

with AddFieldDef do begin Name := 'Feronerie'; DataType := ftWideString; Size := 100; end;

with AddFieldDef do begin Name := 'FeronerieModif'; DataType := ftBoolean; end;//12.0.45 daca Cantitate <> CantitateInit

with AddFieldDef do begin Name := 'IndexAccesoriu'; DataType := ftInteger; end;//per indexul per comanda sau fereastra/panou

with AddFieldDef do begin Name := 'DenAccesoriu'; DataType := ftWideString; Size := 100; end;

with AddFieldDef do begin Name := 'GrupaAcc'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'ObsAccesoriu'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'NrOchi'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'ListaAccScriptIndex'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'tipBara_ScurtareProfilStart'; DataType := ftBoolean; end;

with AddFieldDef do begin Name := 'NrBucImpInDeb'; DataType := ftInteger; end;//numarul de bucati in care s imparte profilul in debitare daca ImpartePrInDebMaiLungiDecatBara=True

with AddFieldDef do begin Name := 'LungPOrig'; DataType := ftFloat; end;//Inainte de aplicarea tolerantei de debitare si a rotunjirii

with AddFieldDef do begin Name := 'LungP'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'LungPTotal'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'LungPInterior'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'LungP_UnCap'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'LungPInitial'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'LungProfilBaza'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'LungBandouFrezat'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'CodPtPrelucrari'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'C_TotalP'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'C_LatimeP'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'C_BuzaP'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'C_BuzaPFinal'; DataType := ftFloat; end;//C_Buza ajustată de utilizator. Are sens doar dacă se generează pentru fiecare profil în parte

with AddFieldDef do begin Name := 'HBoltaCerc'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'RazaCerc'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'CoardaCerc'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'LungO'; DataType := ftFloat; end;//lungimea primei armături (CodO0); armătura i: LungO - (AjustareOA0 + AjustareOB0) + (AjustareOAi + AjustareOBi)

with AddFieldDef do begin Name := 'LungO_Nerotunjit'; DataType := ftFloat; end;//lungimea primei armături (CodO0) fără rotunjirea în jos la Pas armătură; la armătura i se aplică aceeași formulă ca la LungO

with AddFieldDef do begin Name := 'C_OtelA'; DataType := ftFloat; end;//cota de oțel la capătul A a primei armături (CodO0); armătura i: C_OtelA + AjustareOA0 - AjustareOAi

with AddFieldDef do begin Name := 'C_OtelB'; DataType := ftFloat; end;//cota de oțel la capătul B a primei armături (CodO0); armătura i: C_OtelB + AjustareOB0 - AjustareOBi

with AddFieldDef do begin Name := 'C_DifA'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'C_DifB'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'C_DifA_Buza'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'C_DifB_Buza'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'C_SuduraA'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'C_SuduraB'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'CodPrindereA'; DataType := ftWideString; Size := 20; end;//doar pentru Bandou

with AddFieldDef do begin Name := 'CodPrindereB'; DataType := ftWideString; Size := 20; end;//doar pentru Bandou

with AddFieldDef do begin Name := 'DenImbinareA'; DataType := ftWideString; Size := 50; end;//imbinarea intre doua profile din DenImbinareSt

with AddFieldDef do begin Name := 'DenImbinareB'; DataType := ftWideString; Size := 50; end;//imbinarea intre doua profile din DenImbinareDr

with AddFieldDef do begin Name := 'NrBucati'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'UM'; DataType := ftWideString; Size := 10; end;

with AddFieldDef do begin Name := 'UnghiA'; DataType := ftFloat; end;//A si B - unghiurile in sensul acelor provit din interior

with AddFieldDef do begin Name := 'UnghiB'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'InvSensLaDescExt'; DataType := ftBoolean; end;//cand unghiurile (de fapt profilul cu totul) se intoarce la deschidere exterior (tocul si bandoul din toc)

with AddFieldDef do begin Name := 'Unghi1'; DataType := ftFloat; end;//1 si 2 - unghiurile de debitare (schimbate la toc si bandou pe deschidere exterior)

with AddFieldDef do begin Name := 'Unghi2'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'UnghiBeta1'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'UnghiBeta2'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'Unghi1Afisat'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'Unghi2Afisat'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'Unghi1Bold'; DataType := ftWideString; Size := 1; end;

with AddFieldDef do begin Name := 'Unghi2Bold'; DataType := ftWideString; Size := 1; end;

with AddFieldDef do begin Name := 'RO_TipProfil'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'TipProfil'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'TipProfilSimplu'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'TipProfilSimpluDupaUtilizare'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'SwLegaturaT1'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'SwLegaturaT2'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'LegT1'; DataType := ftWideString; Size := 254; end;

with AddFieldDef do begin Name := 'LegT2'; DataType := ftWideString; Size := 254; end;

with AddFieldDef do begin Name := 'Lung_Alaturi'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'Fero_Set'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'Fero_Marca'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'Fero_Desc'; DataType := ftWideString; Size := 20; end;

with AddFieldDef do begin Name := 'ToateSertareleFer'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'DeschidereExt'; DataType := ftString; Size := 1; end;

with AddFieldDef do begin Name := 'GrupaInSertar'; DataType := ftInteger; end;

//with AddFieldDef do begin Name := 'ToateCarutSertarV2Fer'; DataType := ftWideMemo; end; este completat in Optimizare

with AddFieldDef do begin Name := 'GrosimeTermopanDinConsum'; DataType := ftInteger; end;

with AddFieldDef do begin Name := 'CodBaghetaDinConsum'; DataType := ftString; Size := 30; end;

with AddFieldDef do begin Name := 'CodGarnituraGeamDinConsum'; DataType := ftString; Size := 30; end;

with AddFieldDef do begin Name := 'DimBaghete'; DataType := ftString; Size := 30; end;

with AddFieldDef do begin Name := 'EsteInCCV'; DataType := ftBoolean; end;

with AddFieldDef do begin Name := 'FeroCuBroasca'; DataType := ftBoolean; end;

with AddFieldDef do begin Name := 'FeroCuArticol1'; DataType := ftBoolean; end;

with AddFieldDef do begin Name := 'DornmassBroasca'; DataType := ftFloat; end;

with AddFieldDef do begin Name := 'ObsOchiuri'; DataType := ftWideString; Size := 50; end;

with AddFieldDef do begin Name := 'CotePeProfil'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'PiesePeProfil'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LivrarePeFer'; DataType := ftBoolean; end; // pentru accesoriile si profilele de adaus livrate montate pe fereastra

with AddFieldDef do begin Name := 'LabelCod0'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelVal0'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelCod1'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelVal1'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelCod2'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelVal2'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelCod3'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelVal3'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelCod4'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelVal4'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelCod5'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelVal5'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelCod6'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelVal6'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelCod7'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelVal7'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelCod8'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelVal8'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelCod9'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'LabelVal9'; DataType := ftWideMemo; end;

with AddFieldDef do begin Name := 'OptiPtConsum'; DataType := ftInteger; end; //TTipAjustareConsum

with AddFieldDef do begin Name := 'ImpartPrInDebLaBara'; DataType := ftInteger; end;//TTipImpartPrInDebLaBara

with AddFieldDef do begin Name := 'EsteDreptunghi'; DataType := ftBoolean; end;

with AddFieldDef do begin Name := 'ToateLaturileAuAcelasiPr'; DataType := ftBoolean; end;

with AddFieldDef do begin Name := 'AreAccSauPrCuLivrarePeFer'; DataType := ftBoolean; end;

with AddFieldDef do begin Name := 'OrdineGenerare'; DataType := ftInteger; end; //ordinea in care se scriu profilele in tabel

with AddFieldDef do begin Name := 'ObsProfil'; DataType := ftWideString; Size := 50; end;

//Lungimi proprii pe armătură (sufixul >LEN), adăugate la sfârșitul tabelului

for i := 0 to HIGH_OTELURI do begin

with AddFieldDef do begin Name := 'AjustareOA' + IntToStr(i); DataType := ftFloat; end;//cu câți mm este armătura CodOi mai lungă decât armătura de bază la capătul A (negativ = mai scurtă, gol = 0)

with AddFieldDef do begin Name := 'AjustareOB' + IntToStr(i); DataType := ftFloat; end;//la fel, la capătul B

end;

with AddFieldDef do begin Name := 'CotaManerODinCapatB'; DataType := ftBoolean; end;//True dacă CotaManerO se măsoară de la capătul B al armăturii (altfel de la capătul A)

//Împărțirea armăturii la propria bară („B” pe rândul armăturii): coloane adăugate la sfârșitul tabelului

for i := 0 to HIGH_OTELURI do begin

with AddFieldDef do begin Name := 'ImpartPrInDebLaBaraO' + IntToStr(i); DataType := ftInteger; end;//setarea de pe rândul armăturii CodOi (0 = nu, 1 = „X”, 2 = „B”; NULL = nesetată)

with AddFieldDef do begin Name := 'BucatiDebO' + IntToStr(i); DataType := ftWideMemo; end;//bucățile în care se taie armătura CodOi (gol = neîmpărțită)

end;

Armături cu lungimi diferite pe același profil (sufixul >LEN)

Începând cu versiunea 2026.0.89, armăturile aceluiași profil (CodO0 ... CodO9) pot avea lungimi diferite: prin sufixul >LEN al unei funcții de armătură din coloana Funcții a profilului sau prin parametrul LengthAdjustment al funcțiilor WA_AddCutItem / WA_AddCutItem2 dintr-o funcție de armătură din script (detalii: Funcții de legătură - sufixul >LEN). Pe fiecare rând al tabelului:

LungO, LungO_Nerotunjit, C_OtelA, C_OtelB, CotaManerO - sunt valorile primei armături (CodO0);

AjustareOA0 ... AjustareOA9, AjustareOB0 ... AjustareOB9 - cu câți mm este armătura CodOi mai lungă decât armătura de bază la capătul A, respectiv B (negativ = mai scurtă, gol = 0). Armătura de bază este cea calculată ca până acum (retragerile de oțel, C_OtelMin, Pas armătură, abaterea de debitare a primei armături și rotunjirea dimensiunilor de debitare); ajustarea unei armături se împarte pe jumătate la fiecare capăt, deci AjustareOA0 / AjustareOB0 sunt nenule doar dacă și prima armătură are >LEN;

CotaManerODinCapatB - True dacă CotaManerO se măsoară de la capătul B al armăturii, altfel de la capătul A.

Valorile armăturii i (CodOi) se calculează astfel:

- lungimea: LungO - (AjustareOA0 + AjustareOB0) + (AjustareOAi + AjustareOBi); la fel pentru LungO_Nerotunjit;

- cota de oțel la capătul A: C_OtelA + AjustareOA0 - AjustareOAi; la capătul B: C_OtelB + AjustareOB0 - AjustareOBi;

- cota mânerului: CotaManerO - AjustareOA0 + AjustareOAi sau, dacă CotaManerODinCapatB = True, CotaManerO - AjustareOB0 + AjustareOBi (o valoare CotaManerO = 0 rămâne 0).

Un script de debitare care modifică LungO, C_OtelA sau C_OtelB mută odată cu ele toate armăturile rândului, pentru că ajustările rămân aceleași.

De exemplu, dacă o cercevea are în Funcții Otel(1244516) și Otel(1244506)>LEN(-200), atunci CodO0 = 1244516, CodO1 = 1244506 și AjustareOA1 = AjustareOB1 = -100: armătura 1244506 este cu 200 mm mai scurtă decât LungO, iar cotele ei de oțel sunt cu câte 100 mm mai mari decât C_OtelA și C_OtelB.

Armătură împărțită în debitare la propria bară („B” pe rândul armăturii)

Începând cu versiunea 2026.0.90, o armătură al cărei rând din tabelul de profile este completat cu „B” la Împarte profilul în debitare dacă depășește bara se împarte în debitare la propria bară (detalii: Profile - împărțirea armăturii la propria bară). Pe fiecare rând al tabelului:

ImpartPrInDebLaBaraO0 ... ImpartPrInDebLaBaraO9 - setarea de pe rândul armăturii CodOi, ca număr (TTipImpartPrInDebLaBara): 0 = nu, 1 = împărțire egală („X”, fără efect la armătură), 2 = „B” (la lungimea maximă de bară); gol (NULL) = armătura nu are setarea;

BucatiDebO0 ... BucatiDebO9 - bucățile în care se taie armătura CodOi, în format de mașină: câte un grup pentru fiecare bucată pe care o reprezintă rândul (NRBUCATI), grupurile separate prin „|”, bucățile unui grup prin „;”, cu punct zecimal; un grup care începe cu „S” are prima bucată scurtată (pentru ca ultima să ajungă la lungimea minimă). Gol = armătura nu este împărțită.

De exemplu, o armătură de 6100 mm pe un rând cu NRBUCATI = 2 (două bucăți identice de profil, deci două armături), cu bara de 6000 mm, grosimea discului de 5 mm, fără pierderi și Lungime minimă 300 mm, la începutul lanțului: „S5800;300|5695;405” – prima armătură se taie în 5800 mm dintr-o bară (prima bucată, scurtată pentru ca ultima să aibă 300 mm) și 300 mm din bara următoare, iar a doua folosește cei 5695 mm rămași pe această bară (6000 - 300 - 5) și 405 mm dintr-o bară nouă. Bucățile unui grup însumează lungimea armăturii CodOi; un grup cu o singură valoare înseamnă că acea armătură se taie dintr-o bucată.

LungO, C_OtelA, C_OtelB, CotaManerO și celelalte câmpuri ale rândului rămân valorile armăturii întregi; când rândul conține o astfel de armătură, fiecare exemplar al ferestrei are rândul lui în tabel (ca la un profil cu „B”). Împărțirea se face după scriptul de debitare al rândului, cu lungimile finale ale armăturilor; un script care schimbă codul armăturii dintr-un slot (CodOi) anulează împărțirea acelei armături.

Campuri cdsCutDim

Campuri cdsCutDim