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 := '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 := '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 := 'CampSup0Denumire'; DataType := ftWideMemo; end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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;

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 := '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 := '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 := '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;

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

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

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

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_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 := '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 := '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;

Campuri cdsCutDim

Campuri cdsCutDim