commit 7d786c5d4e57e6030a11699f671f25e63180a858 Author: Marius Mutu Date: Thu Jul 16 12:28:41 2026 +0300 Initial: flux text FoxBin2Prg (git urmareste .??2 in-arbore, binarele VFP git-ignored) Co-Authored-By: Claude Fable 5 diff --git a/.gitattributes b/.gitattributes new file mode 100644 index 0000000..bbf8fed --- /dev/null +++ b/.gitattributes @@ -0,0 +1,4 @@ +# SVN ramane autoritatea pentru line endings (rulaj paralel svn+git). +# Dezactiveaza orice normalizare CRLF/LF facuta de git, ca sa nu mai apara +# "modificari" fantoma dupa fiecare svn update/checkout care doar atinge mtime-ul. +* -text diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..cc5b976 --- /dev/null +++ b/.gitignore @@ -0,0 +1,83 @@ +# ============================================================================= +# Flux text FoxBin2Prg: git urmareste DOAR versiunile text .??2 (in arbore), +# nu binarele VFP. Binarele convertibile si indecsii regenerabili se ignora. +# SVN ramane sursa de adevar pentru binare (via global-ignores pe .??2). +# ============================================================================= + +# --- Binare VFP convertibile in text .??2 (ambele forme de caz) --- +*.vcx +*.VCX +*.vct +*.VCT +*.scx +*.SCX +*.sct +*.SCT +*.frx +*.FRX +*.frt +*.FRT +*.mnx +*.MNX +*.mnt +*.MNT +*.lbx +*.LBX +*.lbt +*.LBT +*.pjx +*.PJX +*.pjt +*.PJT +*.dbc +*.DBC +*.dct +*.DCT + +# --- Indecsi regenerabili (nu se transporta in .db2/.dc2) --- +*.cdx +*.CDX +*.dcx +*.DCX + +# --- Fisiere generate/compilate Visual FoxPro --- +*.fxp +*.FXP +*.mpr +*.MPR +*.mpx +*.MPX +*.vcr +*.VCR +*.src + +# --- Executabile compilate (roafacturare.exe, roafacturare_sterse.exe) --- +*.exe +*.EXE + +# --- Backup-uri si fisiere temporare create de editorul VFP --- +*.bak +*.BAK +*.tmp +*.TMP +*.err +*.ERR +*.Stats +*.stackdump + +# --- Stare locala / specifica masinii, nu proiectului --- +FOXUSER.DBF +FOXUSER.FPT +log.txt +LOG.txt +ROAFACTURARE.ARM +ROAFACTURARE.ini +roafacturare_ref.CDX +roafacturare_ref.DBF +roafacturare_ref.FPT + +# --- Subversion (working copy paralela) --- +.svn/ + +# --- COMUN este gestionat separat, prin propriul sau git (romfast/comun.git) --- +COMUN/ diff --git a/Ajutor/ordine_operatii_facturare.txt b/Ajutor/ordine_operatii_facturare.txt new file mode 100644 index 0000000..79ac8f1 --- /dev/null +++ b/Ajutor/ordine_operatii_facturare.txt @@ -0,0 +1,7 @@ +initializeaza_date_factura +initializeaza_date_gestiune - pentru tip = +initializeaza_part_rez +adauga_articol_factura +scrie_factura_avize / scrie_factura2 +scrie_factura_avize_retur - pentru tip = +finalizeaza_scriere_verificare \ No newline at end of file diff --git a/Clase/ofundal_facturare.vc2 b/Clase/ofundal_facturare.vc2 new file mode 100644 index 0000000..eeeee74 --- /dev/null +++ b/Clase/ofundal_facturare.vc2 @@ -0,0 +1,1026 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="ofundal_facturare.vcx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS pg_meniu_princ AS pg_meniu OF "..\comun\clase\ofundal.vcx" + *< CLASSDATA: Baseclass="pageframe" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Page1.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Cw10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page1.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page2.Cw9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page3.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Pict_meniu1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Pict_liniuta2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw5" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw6" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw7" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw8" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Pict_liniuta1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Pict_liniuta3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw9" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw10" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw11" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Pict_liniuta4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw12" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page4.Cw13" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page5.Ct_comenzi1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Page6.Ct_lucrari_detalii1" UniqueID="" Timestamp="" /> + + * + ErasePage = .T. + Height = 525 + Name = "pg_meniu_princ" + PageCount = 6 + Themes = .F. + Width = 798 + Page1.Caption = "Inițializări" + Page1.FontCharSet = 238 + Page1.Name = "Page1" + Page1.PageOrder = 1 + Page2.Caption = "Facturare" + Page2.Name = "Page2" + Page2.PageOrder = 4 + Page3.BackColor = 255,255,255 + Page3.Caption = "Avize de expediție" + Page3.FontCharSet = 238 + Page3.FontSize = 10 + Page3.Name = "Page3" + Page3.PageOrder = 5 + Page4.BackColor = 255,255,255 + Page4.Caption = "Rapoarte" + Page4.FontCharSet = 238 + Page4.FontSize = 10 + Page4.Name = "Page4" + Page4.PageOrder = 6 + Page5.BackColor = 255,255,255 + Page5.Caption = "Comenzi" + Page5.FontCharSet = 238 + Page5.FontName = "Arial" + Page5.FontSize = 10 + Page5.Name = "Page5" + Page5.PageOrder = 2 + Page6.BackColor = 255,255,255 + Page6.Caption = "Lucrări" + Page6.FontCharSet = 238 + Page6.FontSize = 10 + Page6.Name = "Page6" + Page6.PageOrder = 3 + * + + ADD OBJECT 'Page1.Cw1' AS cw WITH ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 2, ; + TabIndex = 1, ; + Top = 18, ; + Label_item1.Caption = "Clienți", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw10' AS cw WITH ; + Left = 5, ; + Name = "Cw10", ; + nid_cw = 10, ; + TabIndex = 8, ; + Top = 255, ; + Label_item1.Caption = "Opțiuni locale", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw2' AS cw WITH ; + Left = 5, ; + Name = "Cw2", ; + nid_cw = 2, ; + ntip = 2, ; + TabIndex = 2, ; + Top = 40, ; + Label_item1.Caption = "Agenți", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw3' AS cw WITH ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 3, ; + ntip = 2, ; + TabIndex = 3, ; + Top = 62, ; + Label_item1.Caption = "Delegați", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw4' AS cw WITH ; + Left = 5, ; + Name = "Cw4", ; + nid_cw = 4, ; + ntip = 2, ; + TabIndex = 4, ; + Top = 84, ; + Label_item1.Caption = "Mașini", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw5' AS cw WITH ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 5, ; + TabIndex = 5, ; + Top = 147, ; + Label_item1.Caption = "Model factură / aviz", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw6' AS cw WITH ; + Left = 5, ; + Name = "Cw6", ; + nid_cw = 6, ; + TabIndex = 6, ; + Top = 169, ; + Label_item1.Caption = "Serii numere", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw7' AS cw WITH ; + Left = 5, ; + Name = "Cw7", ; + nid_cw = 7, ; + ntip = 2, ; + TabIndex = 7, ; + Top = 191, ; + Label_item1.Caption = "Curs valutar", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw8' AS cw WITH ; + Left = 5, ; + Name = "Cw8", ; + nid_cw = 8, ; + TabIndex = 8, ; + Top = 233, ; + Label_item1.Caption = "Opțiuni server", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Cw9' AS cw WITH ; + Left = 5, ; + Name = "Cw9", ; + nid_cw = 9, ; + ntip = 2, ; + TabIndex = 4, ; + Top = 106, ; + Label_item1.Caption = "Rute", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page1.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 6, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 219 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page1.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 6, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 134 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page1.Pict_meniu1' AS pict_meniu WITH ; + Height = 473, ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8, ; + Width = 200 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page2.Cw1' AS cw WITH ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 1, ; + TabIndex = 1, ; + Top = 18, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "Pe bază de listă de prețuri", ; + Label_item1.Height = 18, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3, ; + Label_item1.Width = 152, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw2' AS cw WITH ; + Left = 5, ; + Name = "Cw2", ; + nid_cw = 2, ; + TabIndex = 2, ; + Top = 40, ; + Label_item1.Caption = "Pe bază de contract", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw3' AS cw WITH ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 3, ; + TabIndex = 3, ; + Top = 62, ; + Label_item1.Caption = "Pe bază de comandă", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw4' AS cw WITH ; + Left = 5, ; + Name = "Cw4", ; + nid_cw = 4, ; + TabIndex = 4, ; + Top = 84, ; + Label_item1.Caption = "Din aviz", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw5' AS cw WITH ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 5, ; + TabIndex = 5, ; + Top = 123, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "Materii prime și materiale", ; + Label_item1.Height = 30, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3, ; + Label_item1.Width = 169, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw6' AS cw WITH ; + Left = 5, ; + Name = "Cw6", ; + nid_cw = 6, ; + TabIndex = 6, ; + Top = 145, ; + Label_item1.Caption = "Produse", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw7' AS cw WITH ; + Left = 5, ; + Name = "Cw7", ; + nid_cw = 7, ; + TabIndex = 7, ; + Top = 167, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "Mărfuri la preț de achiziție", ; + Label_item1.Height = 30, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3, ; + Label_item1.Width = 169, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw8' AS cw WITH ; + Left = 5, ; + Name = "Cw8", ; + nid_cw = 8, ; + TabIndex = 8, ; + Top = 189, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "Mărfuri la preț de vânzare", ; + Label_item1.Height = 30, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3, ; + Label_item1.Width = 169, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Cw9' AS cw WITH ; + Left = 5, ; + Name = "Cw9", ; + nid_cw = 7, ; + TabIndex = 7, ; + Top = 211, ; + LABEL_ITEM1.AutoSize = .F., ; + LABEL_ITEM1.Caption = "Mărfuri la preț de achiziție *", ; + LABEL_ITEM1.Height = 30, ; + LABEL_ITEM1.Left = 5, ; + LABEL_ITEM1.Name = "LABEL_ITEM1", ; + LABEL_ITEM1.Top = 3, ; + LABEL_ITEM1.Width = 169, ; + LABEL_ITEM1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page2.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 6, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 110 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page2.Pict_meniu1' AS pict_meniu WITH ; + Height = 473, ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page3.Cw1' AS cw WITH ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 1, ; + TabIndex = 1, ; + Top = 18, ; + Label_item1.Caption = "Către clienți", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw2' AS cw WITH ; + Left = 5, ; + Name = "Cw2", ; + nid_cw = 2, ; + TabIndex = 2, ; + Top = 40, ; + Label_item1.Caption = "Către clienți în custodie", ; + Label_item1.Left = 3, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw3' AS cw WITH ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 3, ; + TabIndex = 3, ; + Top = 62, ; + LABEL_ITEM1.Caption = "Către clienți debitori", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Cw4' AS cw WITH ; + Left = 5, ; + Name = "Cw4", ; + nid_cw = 4, ; + TabIndex = 4, ; + Top = 84, ; + Label_item1.AutoSize = .F., ; + Label_item1.Caption = "Transfer între subunități", ; + Label_item1.Height = 18, ; + Label_item1.Left = 5, ; + Label_item1.Name = "Label_item1", ; + Label_item1.Top = 3, ; + Label_item1.Width = 135, ; + Label_item1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page3.Pict_meniu1' AS pict_meniu WITH ; + Height = 473, ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page4.Cw1' AS cw WITH ; + Left = 5, ; + Name = "Cw1", ; + nid_cw = 1, ; + ntip = 2, ; + TabIndex = 1, ; + Top = 18, ; + Label_item1.Caption = "Listă facturi,avize și proforme", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw10' AS cw WITH ; + Left = 6, ; + Name = "Cw10", ; + nid_cw = 11, ; + TabIndex = 9, ; + Top = 278, ; + Label_item1.Caption = "Rute", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw11' AS cw WITH ; + Left = 5, ; + linactiv = .T., ; + Name = "Cw11", ; + nid_cw = 9, ; + TabIndex = 8, ; + Top = 221, ; + Label_item1.Caption = "Alte rapoarte", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw12' AS cw WITH ; + Height = 40, ; + Left = 7, ; + Name = "Cw12", ; + nid_cw = 10, ; + TabIndex = 9, ; + Top = 314, ; + LABEL_ITEM1.AutoSize = .F., ; + LABEL_ITEM1.Caption = "Marfă nefacturată / nelivrată pe comenzi facturate parțial", ; + LABEL_ITEM1.Height = 32, ; + LABEL_ITEM1.Left = 5, ; + LABEL_ITEM1.Name = "LABEL_ITEM1", ; + LABEL_ITEM1.Top = 1, ; + LABEL_ITEM1.Width = 171, ; + LABEL_ITEM1.WordWrap = .T. + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw13' AS cw WITH ; + Left = 7, ; + Name = "Cw13", ; + nid_cw = 11, ; + TabIndex = 9, ; + Top = 359, ; + LABEL_ITEM1.Caption = "Comenzi bazate pe vânzări", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw2' AS cw WITH ; + Left = 5, ; + Name = "Cw2", ; + nid_cw = 2, ; + ntip = 2, ; + TabIndex = 2, ; + Top = 40, ; + Visible = .F., ; + LABEL_ITEM1.Caption = "Listă proforme", ; + LABEL_ITEM1.Name = "LABEL_ITEM1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw3' AS cw WITH ; + Left = 5, ; + Name = "Cw3", ; + nid_cw = 3, ; + ntip = 1, ; + TabIndex = 3, ; + Top = 77, ; + Label_item1.Caption = "Avize", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw4' AS cw WITH ; + Left = 5, ; + Name = "Cw4", ; + nid_cw = 5, ; + ntip = 1, ; + TabIndex = 5, ; + Top = 121, ; + Label_item1.Caption = "Facturi", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw5' AS cw WITH ; + Left = 5, ; + Name = "Cw5", ; + nid_cw = 6, ; + ntip = 1, ; + TabIndex = 6, ; + Top = 143, ; + Label_item1.Caption = "Încasări", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw6' AS cw WITH ; + Left = 5, ; + Name = "Cw6", ; + nid_cw = 7, ; + ntip = 1, ; + TabIndex = 7, ; + Top = 165, ; + Label_item1.Caption = "Articole", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw7' AS cw WITH ; + Left = 5, ; + Name = "Cw7", ; + nid_cw = 4, ; + ntip = 1, ; + TabIndex = 4, ; + Top = 99, ; + Label_item1.Caption = "Avize de transfer", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw8' AS cw WITH ; + Left = 5, ; + Name = "Cw8", ; + nid_cw = 8, ; + TabIndex = 8, ; + Top = 199, ; + Label_item1.Caption = "Centralizator", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Cw9' AS cw WITH ; + Left = 6, ; + Name = "Cw9", ; + nid_cw = 10, ; + TabIndex = 9, ; + Top = 256, ; + Label_item1.Caption = "Dispoziții de livrare", ; + Label_item1.Name = "Label_item1" + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="container" /> + + ADD OBJECT 'Page4.Pict_liniuta1' AS pict_liniuta WITH ; + Left = 5, ; + Name = "Pict_liniuta1", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 189 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page4.Pict_liniuta2' AS pict_liniuta WITH ; + Left = 5, ; + Name = "Pict_liniuta2", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 66 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page4.Pict_liniuta3' AS pict_liniuta WITH ; + Left = 5, ; + Name = "Pict_liniuta3", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 245 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page4.Pict_liniuta4' AS pict_liniuta WITH ; + Left = 6, ; + Name = "Pict_liniuta4", ; + Picture = ..\comun\grafice\f3.jpg, ; + Top = 303 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page4.Pict_meniu1' AS pict_meniu WITH ; + Height = 473, ; + Left = 2, ; + Name = "Pict_meniu1", ; + Picture = ..\comun\grafice\f2.jpg, ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Page5.Ct_comenzi1' AS ct_comenzi WITH ; + Anchor = 15, ; + Height = 485, ; + Left = 0, ; + Name = "Ct_comenzi1", ; + Top = -3, ; + Width = 787, ; + Gridsort1.Name = "Gridsort1", ; + _ct_controller_keypress1.Name = "_ct_controller_keypress1", ; + _grdrow1.cAdresa_facturare.Header1.Name = "Header1", ; + _grdrow1.cAdresa_facturare.Name = "cAdresa_facturare", ; + _grdrow1.cAdresa_facturare.Text1.Name = "Text1", ; + _grdrow1.cAdresa_livrare.Header1.Name = "Header1", ; + _grdrow1.cAdresa_livrare.Name = "cAdresa_livrare", ; + _grdrow1.cAdresa_livrare.Text1.Name = "Text1", ; + _grdrow1.cAgent.Header1.Name = "Header1", ; + _grdrow1.cAgent.Name = "cAgent", ; + _grdrow1.cAgent.Text1.Name = "Text1", ; + _grdrow1.cComanda_externa.Header1.Name = "Header1", ; + _grdrow1.cComanda_externa.Name = "cComanda_externa", ; + _grdrow1.cComanda_externa.Text1.Name = "Text1", ; + _grdrow1.cDataLivrat.Header1.Name = "Header1", ; + _grdrow1.cDataLivrat.Name = "cDataLivrat", ; + _grdrow1.cDataLivrat.Text1.Name = "Text1", ; + _grdrow1.cDataora.Header1.Name = "Header1", ; + _grdrow1.cDataora.Name = "cDataora", ; + _grdrow1.cDataora.Text1.Name = "Text1", ; + _grdrow1.cData_comanda.Header1.Name = "Header1", ; + _grdrow1.cData_comanda.Name = "cData_comanda", ; + _grdrow1.cData_comanda.Text1.Name = "Text1", ; + _grdrow1.cData_livrare.Header1.Name = "Header1", ; + _grdrow1.cData_livrare.Name = "cData_livrare", ; + _grdrow1.cData_livrare.Text1.Name = "Text1", ; + _grdrow1.cDelegat.Header1.Name = "Header1", ; + _grdrow1.cDelegat.Name = "cDelegat", ; + _grdrow1.cDelegat.Text1.Name = "Text1", ; + _grdrow1.cFacturat.Header1.Name = "Header1", ; + _grdrow1.cFacturat.Name = "cFacturat", ; + _grdrow1.cFacturat._checkbox1.Alignment = 2, ; + _grdrow1.cFacturat._checkbox1.Name = "_checkbox1", ; + _grdrow1.cLucrare.Header1.Name = "Header1", ; + _grdrow1.cLucrare.Name = "cLucrare", ; + _grdrow1.cLucrare.Text1.Name = "Text1", ; + _grdrow1.cNrinmat.Header1.Name = "Header1", ; + _grdrow1.cNrinmat.Name = "cNrinmat", ; + _grdrow1.cNrinmat.Text1.Name = "Text1", ; + _grdrow1.cNr_comanda.Header1.Name = "Header1", ; + _grdrow1.cNr_comanda.Name = "cNr_comanda", ; + _grdrow1.cNr_comanda.Text1.Name = "Text1", ; + _grdrow1.cNr_livrare.Header1.Name = "Header1", ; + _grdrow1.cNr_livrare.Name = "cNr_livrare", ; + _grdrow1.cNr_livrare.Text1.Name = "Text1", ; + _grdrow1.cNumar_contract.Header1.Name = "Header1", ; + _grdrow1.cNumar_contract.Name = "cNumar_contract", ; + _grdrow1.cNumar_contract.Text1.Name = "Text1", ; + _grdrow1.cNume.Header1.Name = "Header1", ; + _grdrow1.cNume.Name = "cNume", ; + _grdrow1.cNume.Text1.Name = "Text1", ; + _grdrow1.cSelectat.Header1.Name = "Header1", ; + _grdrow1.cSelectat.Name = "cSelectat", ; + _grdrow1.cSelectat._checkbox1.Alignment = 2, ; + _grdrow1.cSelectat._checkbox1.Name = "_checkbox1", ; + _grdrow1.cTip_comanda.Header1.Name = "Header1", ; + _grdrow1.cTip_comanda.Name = "cTip_comanda", ; + _grdrow1.cTip_comanda.Text1.Name = "Text1", ; + _grdrow1.cUtilizator.Header1.Name = "Header1", ; + _grdrow1.cUtilizator.Name = "cUtilizator", ; + _grdrow1.cUtilizator.Text1.Name = "Text1", ; + _grdrow1.Height = 366, ; + _grdrow1.Left = 6, ; + _grdrow1.Name = "_grdrow1", ; + _grdrow1.Top = 52, ; + _grdrow1.Width = 163, ; + _grdrow2.cCantitate.Header1.Name = "Header1", ; + _grdrow2.cCantitate.Name = "cCantitate", ; + _grdrow2.cCantitate.Text1.Name = "Text1", ; + _grdrow2.cCodBare.Header1.Name = "Header1", ; + _grdrow2.cCodBare.Name = "cCodBare", ; + _grdrow2.cCodBare.TEXT1.Name = "TEXT1", ; + _grdrow2.cCodmat.Header1.Name = "Header1", ; + _grdrow2.cCodmat.Name = "cCodmat", ; + _grdrow2.cCodmat.Text1.Name = "Text1", ; + _grdrow2.cDenumire.Header1.Name = "Header1", ; + _grdrow2.cDenumire.Name = "cDenumire", ; + _grdrow2.cDenumire.Text1.Name = "Text1", ; + _grdrow2.cDenumire.Width = 200, ; + _grdrow2.cNrCrt.Header1.Name = "Header1", ; + _grdrow2.cNrCrt.Name = "cNrCrt", ; + _grdrow2.cNrCrt.Text1.Name = "Text1", ; + _grdrow2.cPret.Header1.Name = "Header1", ; + _grdrow2.cPret.Name = "cPret", ; + _grdrow2.cPret.Text1.Name = "Text1", ; + _grdrow2.cPret_cu_tva.Header1.Name = "Header1", ; + _grdrow2.cPret_cu_tva.Name = "cPret_cu_tva", ; + _grdrow2.cPret_cu_tva._checkbox1.Alignment = 2, ; + _grdrow2.cPret_cu_tva._checkbox1.Name = "_checkbox1", ; + _grdrow2.Height = 367, ; + _grdrow2.Left = 173, ; + _grdrow2.Name = "_grdrow2", ; + _grdrow2.Top = 52, ; + _grdrow2.Width = 596, ; + Clb_tx_total.Lb_simplu1.Name = "Lb_simplu1", ; + Clb_tx_total.Name = "Clb_tx_total", ; + Clb_tx_total.Text_simplu1.Name = "Text_simplu1", ; + Clb_tx_total.Top = 425, ; + Cmd_executa1.Anchor = 4, ; + Cmd_executa1.Name = "Cmd_executa1", ; + Cmd_executa1.Top = 425, ; + Cmd_executa3.Anchor = 4, ; + Cmd_executa3.Left = 7, ; + Cmd_executa3.Name = "Cmd_executa3", ; + Cmd_executa3.Top = 453, ; + lb_comenzi_elemente.Left = 173, ; + lb_comenzi_elemente.Name = "lb_comenzi_elemente", ; + lb_comenzi_elemente.Top = 33, ; + But_nou1.Name = "But_nou1", ; + But_modifica1.Name = "But_modifica1", ; + But_sterge1.Name = "But_sterge1", ; + But_listare1.Name = "But_listare1", ; + Cmd_executa2.Anchor = 4, ; + Cmd_executa2.Left = 479, ; + Cmd_executa2.Name = "Cmd_executa2", ; + Cmd_executa2.Top = 453, ; + But_copie.Name = "But_copie", ; + Cmd_select_adv1.Anchor = 4, ; + Cmd_select_adv1.Left = 7, ; + Cmd_select_adv1.Name = "Cmd_select_adv1", ; + Cmd_select_adv1.Top = 425, ; + Cmd_executa4.Anchor = 4, ; + Cmd_executa4.Name = "Cmd_executa4", ; + Cmd_executa4.Top = 425, ; + But_factura1.Name = "But_factura1", ; + BUT_START_CRITERII1.Name = "BUT_START_CRITERII1", ; + BUT_RESET_CRITERII1.Name = "BUT_RESET_CRITERII1" + *< END OBJECT: ClassLib="..\comun\clase\ocomenzi.vcx" BaseClass="container" /> + + ADD OBJECT 'Page6.Ct_lucrari_detalii1' AS ct_lucrari_detalii WITH ; + Anchor = 15, ; + Left = 0, ; + Name = "Ct_lucrari_detalii1", ; + Top = -1, ; + Gridsort1.Name = "Gridsort1", ; + _ct_controller_keypress1.Name = "_ct_controller_keypress1", ; + _grdrow1.cDataora.Header1.Name = "Header1", ; + _grdrow1.cDataora.Name = "cDataora", ; + _grdrow1.cDataora.Text1.Name = "Text1", ; + _grdrow1.cData_lucrare.Header1.Name = "Header1", ; + _grdrow1.cData_lucrare.Name = "cData_lucrare", ; + _grdrow1.cData_lucrare.Text1.Name = "Text1", ; + _grdrow1.cExecutata.Header1.Name = "Header1", ; + _grdrow1.cExecutata.Name = "cExecutata", ; + _grdrow1.cExecutata._checkbox1.Alignment = 0, ; + _grdrow1.cExecutata._checkbox1.Name = "_checkbox1", ; + _grdrow1.cExplicatie.Header1.Name = "Header1", ; + _grdrow1.cExplicatie.Name = "cExplicatie", ; + _grdrow1.cExplicatie.Text1.Name = "Text1", ; + _grdrow1.cInchisa.Header1.Name = "Header1", ; + _grdrow1.cInchisa.Name = "cInchisa", ; + _grdrow1.cInchisa._checkbox1.Alignment = 2, ; + _grdrow1.cInchisa._checkbox1.Name = "_checkbox1", ; + _grdrow1.cNrord.Header1.Name = "Header1", ; + _grdrow1.cNrord.Name = "cNrord", ; + _grdrow1.cNrord.Text1.Name = "Text1", ; + _grdrow1.cTermen_executie.Header1.Name = "Header1", ; + _grdrow1.cTermen_executie.Name = "cTermen_executie", ; + _grdrow1.cTermen_executie.Text1.Name = "Text1", ; + _grdrow1.cUtilizator.Header1.Name = "Header1", ; + _grdrow1.cUtilizator.Name = "cUtilizator", ; + _grdrow1.cUtilizator.Text1.Name = "Text1", ; + _grdrow1.Height = 242, ; + _grdrow1.Left = 9, ; + _grdrow1.Name = "_grdrow1", ; + _grdrow1.Top = 52, ; + _grdrow1.Width = 163, ; + _grdrow3.cCantitate.Header1.Name = "Header1", ; + _grdrow3.cCantitate.Name = "cCantitate", ; + _grdrow3.cCantitate.Text1.Name = "Text1", ; + _grdrow3.cCantitate2.Header1.Name = "Header1", ; + _grdrow3.cCantitate2.Name = "cCantitate2", ; + _grdrow3.cCantitate2.Text1.Name = "Text1", ; + _grdrow3.cCodmat.Header1.Name = "Header1", ; + _grdrow3.cCodmat.Name = "cCodmat", ; + _grdrow3.cCodmat.Text1.Name = "Text1", ; + _grdrow3.cDenumire.Header1.Name = "Header1", ; + _grdrow3.cDenumire.Name = "cDenumire", ; + _grdrow3.cDenumire.Text1.Name = "Text1", ; + _grdrow3.cUM.Header1.Name = "Header1", ; + _grdrow3.cUM.Name = "cUM", ; + _grdrow3.cUM.Text1.Name = "Text1", ; + _grdrow3.cUM2.Header1.Name = "Header1", ; + _grdrow3.cUM2.Name = "cUM2", ; + _grdrow3.cUM2.Text1.Name = "Text1", ; + _grdrow3.Height = 420, ; + _grdrow3.Left = 179, ; + _grdrow3.Name = "_grdrow3", ; + _grdrow3.Top = 52, ; + _grdrow3.Width = 591, ; + _grdrow2.cData_comanda.Header1.Name = "Header1", ; + _grdrow2.cData_comanda.Name = "cData_comanda", ; + _grdrow2.cData_comanda.Text1.Name = "Text1", ; + _grdrow2.cData_livrare.Header1.Name = "Header1", ; + _grdrow2.cData_livrare.Name = "cData_livrare", ; + _grdrow2.cData_livrare.Text1.Name = "Text1", ; + _grdrow2.cNr_comanda.Header1.Name = "Header1", ; + _grdrow2.cNr_comanda.Name = "cNr_comanda", ; + _grdrow2.cNr_comanda.Text1.Name = "Text1", ; + _grdrow2.CNUME.Header1.Name = "Header1", ; + _grdrow2.CNUME.Name = "CNUME", ; + _grdrow2.CNUME.Text1.Name = "Text1", ; + _grdrow2.cTip_comanda.Header1.Name = "Header1", ; + _grdrow2.cTip_comanda.Name = "cTip_comanda", ; + _grdrow2.cTip_comanda.Text1.Name = "Text1", ; + _grdrow2.Height = 152, ; + _grdrow2.Left = 9, ; + _grdrow2.Name = "_grdrow2", ; + _grdrow2.Top = 320, ; + _grdrow2.Width = 163, ; + lb_lucrari_elemente.Left = 179, ; + lb_lucrari_elemente.Name = "lb_lucrari_elemente", ; + lb_lucrari_elemente.Top = 33, ; + lb_comenzi.Name = "lb_comenzi", ; + But_nou1.Name = "But_nou1", ; + But_modifica1.Name = "But_modifica1", ; + But_sterge1.Name = "But_sterge1", ; + But_listare1.Name = "But_listare1", ; + BUT_START_CRITERII1.Name = "BUT_START_CRITERII1", ; + BUT_RESET_CRITERII1.Name = "BUT_RESET_CRITERII1" + *< END OBJECT: ClassLib="..\comun\clase\ocomenzi.vcx" BaseClass="container" /> + + PROCEDURE Page1.Cw1.do_actiune + Do vizualizare_clienti In onomenclatoare.prg + ENDPROC + + PROCEDURE Page1.Cw10.do_actiune + Do vizualizare_optiuni_facturare In oproceduri_facturare.prg With 2 + ENDPROC + + PROCEDURE Page1.Cw2.do_actiune + Do vizualizare_agenti In onomenclatoare.prg + ENDPROC + + PROCEDURE Page1.Cw3.do_actiune + Do vizualizare_delegati In onomenclatoare.prg + ENDPROC + + PROCEDURE Page1.Cw4.do_actiune + Do vizualizare_masini In onomenclatoare2.prg + ENDPROC + + PROCEDURE Page1.Cw5.do_actiune + Do model.mpr + ENDPROC + + PROCEDURE Page1.Cw6.do_actiune + DO viz_config_serii_complet IN oserii_numere.prg + *!* DO serii_numere.mpr + ENDPROC + + PROCEDURE Page1.Cw7.do_actiune + DO vizualizeaza_curs IN oproceduri_curs.prg WITH Ttod(get_ora()) + ENDPROC + + PROCEDURE Page1.Cw8.do_actiune + lnOptiune = xmenu('Optiuni facturare;Optiuni comenzi') + IF EMPTY(m.lnOptiune) + RETURN + ENDIF + IF m.lnOptiune = 1 + Do vizualizare_optiuni_facturare In oproceduri_facturare.prg With 1 + ELSE + DO vizualizare_optiuni IN onom_comenzi.prg + ENDIF + ENDPROC + + PROCEDURE Page1.Cw9.do_actiune + Do nomrute.mpr + ENDPROC + + PROCEDURE Page2.Cw1.do_actiune + DO facturare_lista_de_preturi IN oproceduri_facturare.prg + ENDPROC + + PROCEDURE Page2.Cw2.do_actiune + lnOptiune = xmenu('Factura lei;Invoice;Factura fiscala in valuta') + DO CASE + CASE m.lnOptiune = 1 + DO facturare_contracte WITH 'FACTURA LEI' IN oproceduri_facturare.prg + CASE m.lnOptiune = 2 + DO facturare_contracte WITH 'INVOICE' IN oproceduri_facturare.prg + CASE m.lnOptiune = 3 + DO facturare_contracte WITH 'FACTURA VALUTA' IN oproceduri_facturare.prg + ENDCASE + + ENDPROC + + PROCEDURE Page2.Cw3.do_actiune + goComanda = '' + DO facturare_comenzi IN oproceduri_facturare.prg + ENDPROC + + PROCEDURE Page2.Cw4.do_actiune + DO facturare_avize IN oproceduri_facturare.prg + ENDPROC + + PROCEDURE Page2.Cw5.do_actiune + Do vanzare_materii_prime In oproceduri_facturare.prg + ENDPROC + + PROCEDURE Page2.Cw6.do_actiune + DO vanzare_produse IN oproceduri_facturare.prg + ENDPROC + + PROCEDURE Page2.Cw7.do_actiune + DO vanzare_marfa_pret_achi IN oproceduri_facturare.prg + ENDPROC + + PROCEDURE Page2.Cw8.do_actiune + Do vanzare_marfa_pret_vanz In oproceduri_facturare.prg + ENDPROC + + PROCEDURE Page2.Cw9.do_actiune + DO vanzare_marfa_pret_achi_vanz IN oproceduri_facturare.prg + ENDPROC + + PROCEDURE Page3.Cw1.do_actiune + DO aviz_clienti.mpr + ENDPROC + + PROCEDURE Page3.Cw2.do_actiune + DO aviz_clienti_custodie.mpr + ENDPROC + + PROCEDURE Page3.Cw3.do_actiune + DO aviz_clienti_debitori.mpr + ENDPROC + + PROCEDURE Page3.Cw4.do_actiune + DO aviz_subunitati.mpr + ENDPROC + + PROCEDURE Page4.Cw1.do_actiune + lnOptiune = xmenu('Vizualizare \ (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS ct_grup_camp AS _container OF "..\comun\clase\_baza.vcx" + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="ck_ordine" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nume_camp" UniqueID="" Timestamp="" /> + + * + *m: do_actualizeaza_ordine + *p: ccamp + *p: cnumecamp + *p: ngrupat + *p: nordine + *p: _memberdata && XML Metadata for customizable properties + * + + * + BorderWidth = 0 + ccamp = + cnumecamp = + Height = 17 + Name = "ct_grup_camp" + ngrupat = 0 + nordine = 0 + Width = 183 + _memberdata = + + + + + + + * + + ADD OBJECT 'ck_ordine' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "[Ordine camp]", ; + Height = 17, ; + Left = 122, ; + Name = "ck_ordine", ; + Top = 1, ; + Width = 43 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'lb_nume_camp' AS lb_simplu WITH ; + AutoSize = .F., ; + Caption = "[Explicatie camp]", ; + Height = 17, ; + Left = 2, ; + Name = "lb_nume_camp", ; + Top = 1, ; + Width = 118 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE do_actualizeaza_ordine + Lparameters tnOrdine + If !Empty(tnOrdine) + This.lb_nume_camp.FontBold = .T. + This.ck_ordine.Caption = Alltrim(Str(tnOrdine)) + This.ngrupat = 1 + Else + This.lb_nume_camp.FontBold = .F. + This.ck_ordine.Caption = [] + This.ngrupat = 0 + Endif + This.nordine = tnOrdine + + ENDPROC + + PROCEDURE Init + Lparameters tcCamp,tcNumeCamp + This.ccamp = tcCamp + This.cnumeCamp = tcNumeCamp + This.lb_nume_camp.Caption = This.cnumeCamp + This.do_actualizeaza_ordine(0) + + ENDPROC + + PROCEDURE ck_ordine.Click + This.Parent.Parent.do_modifica_ordine(This.Parent.Name,This.Parent.nordine,This.Value) + ENDPROC + +ENDDEFINE + +DEFINE CLASS ct_grupare AS _container OF "..\comun\clase\_baza.vcx" + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="lb_grupare" UniqueID="" Timestamp="" /> + + * + *m: do_adauga_ct + *m: do_modifica_ordine + *m: do_sterge_ct + *p: cclasa && Numele clasei ce va fi instantiata la adaugare. + *p: nleft + *p: nleft2 && 90 + *p: nmaxtop + *p: nmaxtop2 + *p: nmax_ordine + *p: _memberdata && XML Metadata for customizable properties + * + + * + cclasa = ct_grup_camp + Height = 200 + Name = "ct_grupare" + nleft = 15 + nleft2 = 90 + nmaxtop = 0 + nmaxtop2 = 0 + nmax_ordine = 0 + Width = 353 + _memberdata = + + + + + + + + * + + ADD OBJECT 'lb_grupare' AS lb_simplu WITH ; + Caption = "Grupat dupa :", ; + Height = 17, ; + Left = 12, ; + Name = "lb_grupare", ; + TabIndex = 8, ; + Top = 6, ; + Visible = .T., ; + Width = 76 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE do_adauga_ct + Lparameters tcCamp,tcNumeCamp + Local lcClasa,lcNumeObiect + If Empty(This.cclasa) + lcClasa = [CT_GRUP_CAMP] + Else + lcClasa = Upper(Alltrim(This.cclasa)) + Endif + lcNumeObiect = Upper(Alltrim([ct_grup_] + Strtran(tcCamp,[.],[_]))) + This.AddObject(lcNumeObiect,lcClasa,tcCamp,tcNumeCamp) + With This.&lcNumeObiect. + .Left = This.nLeft + .Top = This.nMaxTop + This.nMaxTop = .Top + .Height - 2 + .Visible = .T. + Endwith + ENDPROC + + PROCEDURE do_modifica_ordine + Lparameters tcNumeObiect,tnOrdine,tnValoare + If Empty(This.cclasa) + lcClasa = [CT_GRUP_CAMP] + Else + lcClasa = Upper(Alltrim(This.cclasa)) + Endif + If tnValoare = 0 + For i = 1 To This.Objects.Count + With This.Objects(i) + If Upper(Alltrim(.Class))=lcClasa + Do Case + Case .nordine = tnOrdine + If Pemstatus(This.Parent,"do_modifica",5) + This.Parent.do_modifica(2,.ccamp,.nordine - 1) + Endif + .do_actualizeaza_ordine(0) + Case .nordine > tnOrdine + If Pemstatus(This.Parent,"do_modifica",5) + This.Parent.do_modifica(2,.ccamp,.nordine - 1) + Endif + .do_actualizeaza_ordine(.nordine - 1) + Endcase + Endif + Endwith + Endfor + This.nmax_ordine = This.nmax_ordine - 1 + Else + This.nmax_ordine = This.nmax_ordine + 1 + With This.&tcNumeObiect. + If Pemstatus(This.Parent,"do_modifica",5) + This.Parent.do_modifica(2,.ccamp,This.nmax_ordine) + Endif + .do_actualizeaza_ordine(This.nmax_ordine) + Endwith + Endif + + ENDPROC + + PROCEDURE do_sterge_ct + Lparameters tcCamp + Local lcClasa,lcNumeObiect + If Empty(This.cclasa) + lcClasa = [CT_GRUP_CAMP] + Else + lcClasa = Upper(Alltrim(This.cclasa)) + Endif + lcNumeObiect = Upper(Alltrim([ct_grup_] + Strtran(tcCamp,[.],[_]))) + If Type('this.'+lcNumeObiect)<>'U' + With This.&lcNumeObiect. + lnHeight = .Height + lnTop = .Top + lnOrdine = .nordine + Endwith + This.RemoveObject(lcNumeObiect,lcClasa) + For i = 1 To This.Objects.Count + With This.Objects(i) + If Upper(Alltrim(.Class))=lcClasa + If lnOrdine > 0 And .nordine > lnOrdine + If Pemstatus(This.Parent,"do_modifica",5) + This.Parent.do_modifica(2,.ccamp,.nordine - 1) + Endif + .do_actualizeaza_ordine(.nordine - 1) + Endif + If .Top > lnTop + .Top = .Top - lnHeight + 2 + Endif + Endif + Endwith + Endfor + This.nMaxTop = This.nMaxTop - lnHeight + 2 + This.nmax_ordine = This.nmax_ordine - Iif(lnOrdine = 0,0,1) + Endif + ENDPROC + + PROCEDURE Init + DoDefault() + This.nmaxtop = This.lb_grupare.Top + This.lb_grupare.Height + ENDPROC + +ENDDEFINE + +DEFINE CLASS ct_ordine_camp AS _container OF "..\comun\clase\_baza.vcx" + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="ck_ordine" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_nume_camp" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="opt_ordine" UniqueID="" Timestamp="" /> + + * + *m: do_actualizeaza_ordine + *p: ccamp + *p: cnumecamp + *p: csens + *p: nordine + * + + * + BorderWidth = 0 + ccamp = + cnumecamp = + csens = + Height = 17 + Name = "ct_ordine_camp" + nordine = 0 + Width = 302 + * + + ADD OBJECT 'ck_ordine' AS _checkbox WITH ; + Alignment = 0, ; + AutoSize = .F., ; + Caption = "[Ordine camp]", ; + Height = 17, ; + Left = 122, ; + Name = "ck_ordine", ; + Top = 0, ; + Width = 43 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + ADD OBJECT 'lb_nume_camp' AS lb_simplu WITH ; + AutoSize = .F., ; + Caption = "[Explicatie camp]", ; + Height = 17, ; + Left = 2, ; + Name = "lb_nume_camp", ; + Top = 0, ; + Width = 118 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'opt_ordine' AS _optiongrup WITH ; + BorderStyle = 0, ; + Height = 28, ; + Left = 160, ; + Name = "opt_ordine", ; + Top = -6, ; + Width = 146, ; + Option1.AutoSize = .T., ; + Option1.Caption = "Crescator", ; + Option1.FontName = "Arial Narrow", ; + Option1.Left = 5, ; + Option1.Name = "Option1", ; + Option1.Top = 5, ; + Option2.AutoSize = .T., ; + Option2.Caption = "Descrescator", ; + Option2.FontName = "Arial Narrow", ; + Option2.Left = 68, ; + Option2.Name = "Option2", ; + Option2.Top = 5 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> + + PROCEDURE do_actualizeaza_ordine + Lparameters tnOrdine + If !Empty(tnOrdine) + This.lb_nume_camp.FontBold = .T. + This.ck_ordine.Caption = Alltrim(Str(tnOrdine)) + This.opt_ordine.Visible = .T. + Else + This.lb_nume_camp.FontBold = .F. + This.ck_ordine.Caption = [] + With This.opt_ordine + .Visible = .F. + .Value = 1 + Endwith + Endif + This.nordine = tnOrdine + + ENDPROC + + PROCEDURE Init + Lparameters tcCamp,tcNumeCamp + This.ccamp = tcCamp + This.cnumecamp = tcNumeCamp + This.lb_nume_camp.Caption = tcNumeCamp + This.do_actualizeaza_ordine(0) + + ENDPROC + + PROCEDURE ck_ordine.Click + This.Parent.Parent.do_modifica_ordine(This.Parent.Name,This.Parent.nordine,This.Value) + ENDPROC + + PROCEDURE opt_ordine.InteractiveChange + If This.Value = 1 + This.Parent.csens = [] + Else + This.Parent.csens = [DESC] + Endif + This.Parent.Parent.do_modifica_sens(This.Parent.ccamp,This.Value) + ENDPROC + +ENDDEFINE + +DEFINE CLASS ct_ordonare AS _container OF "..\comun\clase\_baza.vcx" + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="lb_ordonare" UniqueID="" Timestamp="" /> + + * + *m: do_adauga_ct + *m: do_modifica_ordine + *m: do_modifica_sens + *m: do_sterge_ct + *p: cclasa && Numele clasei ce va fi instantiata la adaugare. + *p: nleft + *p: nleft2 && 90 + *p: nmaxtop + *p: nmaxtop2 + *p: nmax_ordine + *p: _memberdata && XML Metadata for customizable properties + * + + * + cclasa = ct_ordine_camp + Height = 200 + Name = "ct_ordonare" + nleft = 9 + nleft2 = 90 + nmaxtop = 0 + nmaxtop2 = 0 + nmax_ordine = 0 + Width = 353 + _memberdata = + + + + + + + + * + + ADD OBJECT 'lb_ordonare' AS lb_simplu WITH ; + Caption = "Ordonate dupa:", ; + Height = 17, ; + Left = 8, ; + Name = "lb_ordonare", ; + TabIndex = 8, ; + Top = 6, ; + Visible = .T., ; + Width = 87 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE do_adauga_ct + Lparameters tcCamp,tcNumeCamp + Local lcClasa,lcNumeObiect + If Empty(This.cclasa) + lcClasa = [CT_ORDINE_CAMP] + Else + lcClasa = Upper(Alltrim(This.cclasa)) + Endif + lcNumeObiect = Upper(Alltrim([ct_ordine_] + Strtran(tcCamp,[.],[_]))) + This.AddObject(lcNumeObiect,lcClasa,tcCamp,tcNumeCamp) + With This.&lcNumeObiect. + .Left = This.nLeft + .Top = This.nMaxTop + This.nMaxTop = .Top + .Height - 2 + .Visible = .T. + Endwith + ENDPROC + + PROCEDURE do_modifica_ordine + Lparameters tcNumeObiect,tnOrdine,tnValoare + If Empty(This.cclasa) + lcClasa = [CT_ORDINE_CAMP] + Else + lcClasa = Upper(Alltrim(This.cclasa)) + Endif + If tnValoare = 0 + For i = 1 To This.Objects.Count + With This.Objects(i) + If Upper(Alltrim(.Class))=lcClasa + Do Case + Case .nordine = tnOrdine + If Pemstatus(This.Parent,"do_modifica",5) + This.Parent.do_modifica(3,.ccamp,0) + Endif + .do_actualizeaza_ordine(0) + Case .nordine > tnOrdine + If Pemstatus(This.Parent,"do_modifica",5) + This.Parent.do_modifica(3,.ccamp,.nordine - 1) + Endif + .do_actualizeaza_ordine(.nordine - 1) + Endcase + Endif + Endwith + Endfor + This.nmax_ordine = This.nmax_ordine - 1 + Else + This.nmax_ordine = This.nmax_ordine + 1 + With This.&tcNumeObiect. + If Pemstatus(This.Parent,"do_modifica",5) + This.Parent.do_modifica(3,.ccamp,This.nmax_ordine) + Endif + .do_actualizeaza_ordine(This.nmax_ordine) + Endwith + Endif + + ENDPROC + + PROCEDURE do_modifica_sens + Lparameters tcCamp,tnSens + If Pemstatus(This.Parent,"do_modifica",5) + This.Parent.do_modifica(4,tcCamp,tnSens) + Endif + ENDPROC + + PROCEDURE do_sterge_ct + Lparameters tcCamp + Local lcClasa,lcNumeObiect + If Empty(This.cclasa) + lcClasa = [CT_ORDINE_CAMP] + Else + lcClasa = Upper(Alltrim(This.cclasa)) + Endif + lcNumeObiect = Upper(Alltrim([ct_ordine_] + Strtran(tcCamp,[.],[_]))) + If Type('this.'+lcNumeObiect)<>'U' + With This.&lcNumeObiect. + lnHeight = .Height + lnTop = .Top + lnOrdine = .nordine + Endwith + This.RemoveObject(lcNumeObiect,lcClasa) + For i = 1 To This.Objects.Count + With This.Objects(i) + If Upper(Alltrim(.Class))=lcClasa + If lnOrdine > 0 And .nordine > lnOrdine + If Pemstatus(This.Parent,"do_modifica",5) + This.Parent.do_modifica(3,.ccamp,.nordine - 1) + Endif + .do_actualizeaza_ordine(.nordine - 1) + Endif + If .Top > lnTop + .Top = .Top - lnHeight + 2 + Endif + Endif + Endwith + Endfor + This.nMaxTop = This.nMaxTop - lnHeight + 2 + This.nmax_ordine = This.nmax_ordine - Iif(lnOrdine = 0,0,1) + Endif + ENDPROC + + PROCEDURE Init + DoDefault() + This.nmaxtop = This.lb_ordonare.Top + This.lb_ordonare.Height + ENDPROC + +ENDDEFINE + +DEFINE CLASS ct_selectie AS _container OF "..\comun\clase\_baza.vcx" + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Ct_grupare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_ordonare1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_coloane" UniqueID="" Timestamp="" /> + + * + *m: do_adauga + *m: do_compune_ordine_selectie + *m: do_instructiune_sql + *m: do_modifica + *m: do_sterge + *p: cclasa && Clasa folosita pentru checkbox-urile din selectii. + *p: ccoloanesuma && Numele coloanelor care sunt agregate. + *p: clistacoloaneordine && Lista delimitata prin virgula ce contine pozitiile din ccoloanesuma pentru care se vor adauga containere la ordonare. + *p: cnumecoloanesuma + *p: cnumetabela && Numele tabelei/view-ului din care se face selectia. + *p: cordine + *p: csql + *p: nelemente && Numarul de elemente din this.aselectie + *a: aselectie[30,4] + * + + * + cclasa = ct_selectie_camp + ccoloanesuma = + clistacoloaneordine = + cnumecoloanesuma = + cnumetabela = + cordine = + csql = + Height = 364 + Name = "ct_selectie" + nelemente = 0 + Width = 332 + * + + ADD OBJECT 'Ct_grupare1' AS ct_grupare WITH ; + Height = 133, ; + Left = 5, ; + Name = "Ct_grupare1", ; + Top = 227, ; + Width = 320, ; + lb_grupare.Name = "lb_grupare" + *< END OBJECT: ClassLib="orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_ordonare1' AS ct_ordonare WITH ; + Height = 133, ; + Left = 5, ; + Name = "Ct_ordonare1", ; + Top = 95, ; + Width = 320, ; + lb_ordonare.Name = "lb_ordonare" + *< END OBJECT: ClassLib="orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'lb_coloane' AS lb_simplu WITH ; + Caption = "Coloane in selectie:", ; + Height = 17, ; + Left = 10, ; + Name = "lb_coloane", ; + TabIndex = 9, ; + Top = 6, ; + Width = 111 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + PROCEDURE do_adauga + Lparameters tcCamp,tcNumeCamp,tlGrupare,tlOrdine + This.nelemente = This.nelemente + 1 + Ains(This.aselectie,This.nelemente) + This.aselectie[This.nelemente,1]=Upper(Alltrim(tcCamp)) + This.aselectie[this.nelemente,2]=0 + This.aselectie[this.nelemente,3]=0 + This.aselectie[this.nelemente,4]=0 + If tlGrupare + This.ct_grupare1.do_adauga_ct(Upper(Alltrim(tcCamp)),tcNumeCamp) + Endif + If tlOrdine + This.ct_ordonare1.do_adauga_ct(Upper(Alltrim(tcCamp)),tcNumeCamp) + Endif + + ENDPROC + + PROTECTED PROCEDURE do_compune_ordine_selectie + Lparameters taArraySelectie + Local lcOrdine, lcSens + lcOrdine = [] + ASORT(taArraySelectie,3) + For i = 1 To Alen(taArraySelectie,1) + If !Empty(taArraySelectie[i,1]) And !Empty(Nvl(taArraySelectie[i,3],0)) + If Empty(taArraySelectie[i,4]) Or (taArraySelectie[i,4] = 1) + lcSens = [] + Else + lcSens = [ DESC] + Endif + lcOrdine = lcOrdine + [,] + taArraySelectie[i,1] + lcSens + Endif + Endfor + This.cOrdine = lcOrdine + ENDPROC + + PROCEDURE do_instructiune_sql + Local llSelectieVida,lcSql,lcColoaneGrupate,lcAlteColoane,lcColoaneSuma,lcSelect,lcFiltru,lcGroupBy,lcOrderBy,lcOrdine,lcOrdineGrup + Local lnPozitii + Store .T. To llSelectieVida + If !Empty(This.clistacoloaneordine) + lnPozitii = Getwordcount(This.clistacoloaneordine,[,]) + 1 + Else + lnPozitii = 1 + Endif + For i = lnPozitii To Alen(Thisform.ct_selectie1.aselectie,1) + If !Empty(Thisform.ct_selectie1.aselectie[i,1]) + llSelectieVida = .F. + Exit + Endif + Endfor + If llSelectieVida + lcSql = [] + Else + Dimension laArraySelectie(This.nelemente,4) + Acopy(This.aselectie,laArraySelectie,1,This.nelemente*4) + This.do_compune_ordine_selectie(@laArraySelectie) + lcColoaneAgregare = This.ccoloanesuma + lcView = gcS + [.] + This.cnumetabela + lcColoaneGrupate = [] + lcAlteColoane = [] + lcColoaneSuma = [] + lcSelect = [] + lcFiltru = [1=2] + lcGroupBy = [] + lcOrderBy = [] + lcOrdine = This.cordine + lcOrdineGrup = [] + If !Empty(This.clistacoloaneordine) + *!* sterg coloana pentru care se va face suma + For i = 1 To lnPozitii - 1 + lnPozColoana = VAL(GETWORDNUM(this.clistacoloaneordine,i,[,])) + lcColoana = GETWORDNUM(this.ccoloanesuma,lnPozColoana,[,]) + lnRand = ASCAN(laArraySelectie,lcColoana,1,ALEN(laArraySelectie,1),1,15) + Adel(laArraySelectie,lnRand) + *!* Adel(laArraySelectie,1) + Endfor + Dimension laArraySelectie(This.nelemente-lnPozitii+1,4) + Endif + Asort(laArraySelectie,2) + For i = 1 To Getwordcount(lcColoaneAgregare,[,]) + lcNumeColoana = Getwordnum(lcColoaneAgregare,i,[,]) + lcColoaneSuma = lcColoaneSuma + [,SUM(] + lcNumeColoana + [) as ] + lcNumeColoana + Endfor + For i = 1 To Alen(laArraySelectie,1) + If !Empty(laArraySelectie[i,1]) + If !Empty(laArraySelectie[i,2]) + lcColoaneGrupate = lcColoaneGrupate + [,] + Alltrim(laArraySelectie[i,1]) + Else + lcAlteColoane = lcAlteColoane + [,] + Alltrim(laArraySelectie[i,1]) + Endif + Endif + Endfor + If !Empty(lcColoaneGrupate) + lcSelect = [GROUPING_ID(]+Substr(lcColoaneGrupate,2)+lcAlteColoane+[) AS GID] + lcColoaneGrupate + lcOrdineGrup = Substr(lcColoaneGrupate,2) + [,GID] + If Empty(lcAlteColoane) + lcSelect = lcSelect + lcColoaneSuma + lcGroupBy = [ GROUP BY ROLLUP(]+Substr(lcColoaneGrupate,2)+[) ] + Else + lcSelect = lcSelect + lcAlteColoane + lcColoaneSuma + lcGroupBy = [ GROUP BY ROLLUP(]+Substr(lcColoaneGrupate,2)+[,(]+Substr(lcAlteColoane,2)+[)) ] + Endif + Else + lcSelect = lcSelect + [GROUPING_ID(] + SUBSTR(lcAlteColoane,2) +[) AS GID] + ; + lcAlteColoane + lcColoaneSuma + lcGroupBy = [ GROUP BY ROLLUP((] + SUBSTR(lcAlteColoane,2) + [))] + lcOrdineGrup = [GID] + Endif + Do Case + Case !Empty(lcOrdine) And !Empty(lcOrdineGrup) + lcOrderBy = [ ORDER BY ] + lcOrdineGrup + lcOrdine + Case !Empty(lcOrdine) And Empty(lcOrdineGrup) + lcOrderBy = [ ORDER BY ] + Substr(lcOrdine,2) + Case !Empty(lcOrdineGrup) + lcOrderBy = [ ORDER BY ] + lcOrdineGrup + Otherwise + lcOrderBy = [] + Endcase + + lcSql = [SELECT ] + lcSelect + [ FROM ] + lcView + ; + [ WHERE ] + lcFiltru + lcGroupBy + lcOrderBy + Release laArraySelectie + Endif + This.cSql = lcSql + + ENDPROC + + PROCEDURE do_modifica + Lparameters tnColoana,tcCamp,tnValoare + && tnColoana : 2 - ordine grupare + && 3 - ordine la ordonare + && 4 - sens la ordonare = 1 - ASC + && 2 - DESC + lnPozitie=Ascan(This.aselectie,Upper(Alltrim(tcCamp)),1,30,1,9) + If lnPozitie > 0 + This.aselectie[lnPozitie,tnColoana]=tnValoare + Endif + + ENDPROC + + PROCEDURE do_sterge + Lparameters tcCamp,tcNumeCamp + lnPozitie=Ascan(This.aselectie,Upper(Alltrim(tcCamp)),1,30,1,9) + If lnPozitie > 0 + Adel(This.aselectie,lnPozitie) + This.nelemente = This.nelemente - 1 + Endif + This.ct_grupare1.do_sterge_ct(tcCamp) + This.ct_ordonare1.do_sterge_ct(tcCamp) + + ENDPROC + + PROCEDURE Init + If !Empty(This.clistacoloaneordine) + *!* se adauga la ordine si prima coloana din coloanele de sume + lcLista = Alltrim(Iif(Type('This.clistacoloaneordine')='C',This.clistacoloaneordine,Str(This.clistacoloaneordine))) + This.clistacoloaneordine=lcLista + For i = 1 To Getwordcount(lcLista,[,]) + lnPozitie=Val(Getwordnum(lcLista,i,[,])) + lcNume=Proper(Getwordnum(This.ccoloanesuma,lnPozitie,[,])) + If !Empty(This.cnumecoloanesuma) + lcNumeCamp=Proper(Getwordnum(This.cnumecoloanesuma,lnPozitie,[,])) + Else + lcNumeCamp = lcNume + Endif + This.do_adauga(lcNume,lcNumeCamp,.F.,.T.) + Endfor + Endif + + ENDPROC + +ENDDEFINE + +DEFINE CLASS ct_selectie_camp AS _container OF "..\comun\clase\_baza.vcx" + *< CLASSDATA: Baseclass="container" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="ck_camp" UniqueID="" Timestamp="" /> + + * + *m: actualizeaza_container + *p: ccamp + *p: cnumecamp + *p: csens + *p: lgrupare && .T. daca se pot face grupari dupa acest camp. + *p: lordine && .T. daca se poate ordona dupa acest camp. + *p: nid_container + *p: nordine_grup + *p: nordine_ordine + *p: nselectat + * + + * + BorderWidth = 0 + ccamp = + cnumecamp = + csens = + Height = 19 + lgrupare = .T. + lordine = .T. + Name = "ct_selectie_camp" + nid_container = 0 + nordine_grup = 0 + nordine_ordine = 0 + nselectat = 0 + Width = 108 + * + + ADD OBJECT 'ck_camp' AS _checkbox WITH ; + Alignment = 0, ; + Caption = "Camp", ; + Left = 9, ; + Name = "ck_camp", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> + + PROCEDURE actualizeaza_container + Lparameters llVizibil + This.Visible=llVizibil + This.ck_camp.FontBold = .F. + This.ck_camp.Value = 0 + This.ngrupat = 0 + ENDPROC + + PROCEDURE Init + This.ck_camp.Caption = This.cnumecamp + ENDPROC + + PROCEDURE ck_camp.Click + This.Parent.nselectat = This.Value + If This.Value = 1 + This.FontBold=.T. + This.Parent.Parent.do_adauga(This.Parent.ccamp,This.Parent.cnumecamp,This.Parent.lgrupare,This.Parent.lordine) + Else + This.FontBold = .F. + This.Parent.Parent.do_sterge(This.Parent.ccamp) + Endif + ENDPROC + +ENDDEFINE + +DEFINE CLASS frm_date_rapoarte AS _frmbase OF "..\comun\clase\_frm_base.vcx" + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="Pixels" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="But_salveaza1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_raport" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_clb_raport.But_sterge1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_data_referinta" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Clb_perioada" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_opt_agent" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_opt_masina" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_opt_delegat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_opt_client" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_nract" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_datascad" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_nume_agent" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_nume_delegat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_nrinmat" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_nume_client" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Ct_selectie1.Ct_selectie_dataact" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="But_listare1" UniqueID="" Timestamp="" /> + + * + *m: do_adauga_filtru + *m: do_cauta_agent + *m: do_cauta_client + *m: do_cauta_delegat + *m: do_cauta_masina + * + + * + DoCreate = .T. + Height = 470 + Name = "frm_date_rapoarte" + Width = 696 + _shape1.Height = 29 + _shape1.Left = 0 + _shape1.Name = "_shape1" + _shape1.Top = 0 + _shape1.Width = 696 + _shape2.Height = 29 + _shape2.Left = 600 + _shape2.Name = "_shape2" + _shape2.Top = 0 + _shape2.Width = 96 + Lb_titlu_alb_b121.Caption = "CRITERII DE SELECTIE" + Lb_titlu_alb_b121.FontBold = .T. + Lb_titlu_alb_b121.Name = "Lb_titlu_alb_b121" + Lb_titlu_alb_b121.TabIndex = 22 + BUT_TERMIN1.Left = 664 + BUT_TERMIN1.Name = "BUT_TERMIN1" + BUT_TERMIN1.TabIndex = 18 + BUT_TERMIN1.Top = 1 + GRIDSORT1.Left = 480 + GRIDSORT1.Name = "GRIDSORT1" + GRIDSORT1.Top = 36 + * + + ADD OBJECT 'But_listare1' AS but_listare WITH ; + Left = 634, ; + Name = "But_listare1", ; + Top = 1 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'But_salveaza1' AS but_salveaza WITH ; + Left = 603, ; + Name = "But_salveaza1", ; + TabIndex = 20, ; + Top = 1, ; + Visible = .F. + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Clb_data_referinta' AS clb_tx_simplu WITH ; + Left = 383, ; + Name = "Clb_data_referinta", ; + TabIndex = 3, ; + Top = 100, ; + Text_simplu1.ControlSource = "poListare.data_referinta", ; + Text_simplu1.Height = 23, ; + Text_simplu1.Left = 126, ; + Text_simplu1.Name = "Text_simplu1", ; + Text_simplu1.Top = 3, ; + Text_simplu1.Width = 159, ; + Lb_simplu1.Caption = "Data de referinta", ; + Lb_simplu1.Name = "Lb_simplu1" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Clb_perioada' AS clb_n1n2_simplu WITH ; + Left = 383, ; + Name = "Clb_perioada", ; + TabIndex = 2, ; + Top = 72, ; + tx_n1.ControlSource = "poListare.datai", ; + tx_n1.Left = 127, ; + tx_n1.Name = "tx_n1", ; + tx_n1.Top = 2, ; + Lb_simplu1.Caption = "Perioada", ; + Lb_simplu1.Name = "Lb_simplu1", ; + tx_n2.ControlSource = "poListare.dataf", ; + tx_n2.Name = "tx_n2" + *< END OBJECT: ClassLib="..\comun\clase\lb_tx.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_raport' AS ct_clb_cautare WITH ; + Height = 31, ; + Left = 23, ; + Name = "Ct_clb_raport", ; + TabIndex = 21, ; + Top = 36, ; + Visible = .F., ; + Width = 396, ; + img_cautare.Height = 25, ; + img_cautare.Left = 321, ; + img_cautare.Name = "img_cautare", ; + img_cautare.Top = 3, ; + img_cautare.Width = 30, ; + clb_tx_cautare.Lb_simplu1.Caption = "Raport", ; + clb_tx_cautare.Lb_simplu1.Name = "Lb_simplu1", ; + clb_tx_cautare.Name = "clb_tx_cautare", ; + clb_tx_cautare.TabIndex = 1, ; + clb_tx_cautare.Text_simplu1.Height = 23, ; + clb_tx_cautare.Text_simplu1.Left = 71, ; + clb_tx_cautare.Text_simplu1.Name = "Text_simplu1", ; + clb_tx_cautare.Text_simplu1.Top = 3, ; + clb_tx_cautare.Text_simplu1.Width = 239 + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_clb_raport.But_sterge1' AS but_sterge WITH ; + Height = 27, ; + Left = 361, ; + Name = "But_sterge1", ; + TabIndex = 2, ; + Top = 1, ; + Width = 30 + *< END OBJECT: ClassLib="..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> + + ADD OBJECT 'Ct_opt_agent' AS ct_opt_cautare WITH ; + cprocedura = thisform.do_cauta_agent, ; + cvar_afisata = poListare.nume_agent, ; + Left = 383, ; + Name = "Ct_opt_agent", ; + TabIndex = 5, ; + Top = 198, ; + tx_cautare.Name = "tx_cautare", ; + opt_cautare.Name = "opt_cautare", ; + opt_cautare.OPTION1.Left = 5, ; + opt_cautare.OPTION1.Name = "OPTION1", ; + opt_cautare.OPTION1.Top = 5, ; + opt_cautare.OPTION2.Left = 5, ; + opt_cautare.OPTION2.Name = "OPTION2", ; + opt_cautare.OPTION2.Top = 24, ; + lb_explicatie.Caption = "Agent", ; + lb_explicatie.Name = "lb_explicatie" + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_opt_client' AS ct_opt_cautare WITH ; + cprocedura = thisform.do_cauta_client, ; + cvar_afisata = poListare.nume_client, ; + Left = 383, ; + Name = "Ct_opt_client", ; + TabIndex = 4, ; + Top = 128, ; + tx_cautare.Name = "tx_cautare", ; + opt_cautare.Name = "opt_cautare", ; + opt_cautare.OPTION1.Left = 5, ; + opt_cautare.OPTION1.Name = "OPTION1", ; + opt_cautare.OPTION1.Top = 5, ; + opt_cautare.OPTION2.Left = 5, ; + opt_cautare.OPTION2.Name = "OPTION2", ; + opt_cautare.OPTION2.Top = 24, ; + lb_explicatie.Caption = "Client", ; + lb_explicatie.Name = "lb_explicatie" + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_opt_delegat' AS ct_opt_cautare WITH ; + cprocedura = thisform.do_cauta_delegat, ; + cvar_afisata = poListare.nume_delegat, ; + Left = 383, ; + Name = "Ct_opt_delegat", ; + TabIndex = 6, ; + Top = 268, ; + tx_cautare.Name = "tx_cautare", ; + opt_cautare.Name = "opt_cautare", ; + opt_cautare.OPTION1.Left = 5, ; + opt_cautare.OPTION1.Name = "OPTION1", ; + opt_cautare.OPTION1.Top = 5, ; + opt_cautare.OPTION2.Left = 5, ; + opt_cautare.OPTION2.Name = "OPTION2", ; + opt_cautare.OPTION2.Top = 24, ; + lb_explicatie.Caption = "Delegat", ; + lb_explicatie.Name = "lb_explicatie" + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_opt_masina' AS ct_opt_cautare WITH ; + cprocedura = thisform.do_cauta_masina, ; + cvar_afisata = poListare.nrinmat, ; + Left = 383, ; + Name = "Ct_opt_masina", ; + TabIndex = 7, ; + Top = 338, ; + tx_cautare.Name = "tx_cautare", ; + opt_cautare.Name = "opt_cautare", ; + opt_cautare.OPTION1.Left = 5, ; + opt_cautare.OPTION1.Name = "OPTION1", ; + opt_cautare.OPTION1.Top = 5, ; + opt_cautare.OPTION2.Left = 5, ; + opt_cautare.OPTION2.Name = "OPTION2", ; + opt_cautare.OPTION2.Top = 24, ; + lb_explicatie.Caption = "Masina", ; + lb_explicatie.Name = "lb_explicatie" + *< END OBJECT: ClassLib="..\comun\clase\caut_ora.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1' AS ct_selectie WITH ; + ccoloanesuma = facturat,incasat, ; + cnumetabela = fact_vrap_fact_incasari, ; + Left = 24, ; + Name = "Ct_selectie1", ; + Top = 72, ; + Ct_grupare1.lb_grupare.Name = "lb_grupare", ; + Ct_grupare1.Name = "Ct_grupare1", ; + Ct_ordonare1.lb_ordonare.Name = "lb_ordonare", ; + Ct_ordonare1.Name = "Ct_ordonare1", ; + lb_coloane.Name = "lb_coloane" + *< END OBJECT: ClassLib="orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_dataact' AS ct_selectie_camp WITH ; + ccamp = dataact, ; + cnumecamp = Data factura, ; + Left = 17, ; + Name = "Ct_selectie_dataact", ; + nid_container = 2, ; + TabIndex = 37, ; + Top = 36, ; + ck_camp.Alignment = 0, ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_datascad' AS ct_selectie_camp WITH ; + ccamp = datascad, ; + cnumecamp = Data scadenta, ; + Left = 17, ; + Name = "Ct_selectie_datascad", ; + nid_container = 3, ; + TabIndex = 31, ; + Top = 51, ; + ck_camp.Alignment = 0, ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_nract' AS ct_selectie_camp WITH ; + ccamp = nract, ; + cnumecamp = Nr. factura, ; + Left = 17, ; + Name = "Ct_selectie_nract", ; + nid_container = 1, ; + TabIndex = 30, ; + Top = 22, ; + ck_camp.Alignment = 0, ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_nrinmat' AS ct_selectie_camp WITH ; + ccamp = nrinmat, ; + cnumecamp = Masina, ; + Left = 180, ; + Name = "Ct_selectie_nrinmat", ; + TabIndex = 35, ; + Top = 51, ; + ck_camp.Alignment = 0, ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_nume_agent' AS ct_selectie_camp WITH ; + ccamp = nume_agent, ; + cnumecamp = Agent, ; + Left = 180, ; + Name = "Ct_selectie_nume_agent", ; + nid_container = 5, ; + TabIndex = 33, ; + Top = 22, ; + ck_camp.Alignment = 0, ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_nume_client' AS ct_selectie_camp WITH ; + ccamp = nume_client, ; + cnumecamp = Client, ; + Left = 17, ; + Name = "Ct_selectie_nume_client", ; + nid_container = 4, ; + TabIndex = 36, ; + Top = 67, ; + ck_camp.Alignment = 0, ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="orapoarte.vcx" BaseClass="container" /> + + ADD OBJECT 'Ct_selectie1.Ct_selectie_nume_delegat' AS ct_selectie_camp WITH ; + ccamp = nume_delegat, ; + cnumecamp = Delegat, ; + Left = 180, ; + Name = "Ct_selectie_nume_delegat", ; + TabIndex = 34, ; + Top = 36, ; + ck_camp.Alignment = 0, ; + ck_camp.Name = "ck_camp" + *< END OBJECT: ClassLib="orapoarte.vcx" BaseClass="container" /> + + PROCEDURE do_adauga_filtru + Lparameters lcSql + lcFiltru = [WHERE DATAACT BETWEEN ?poListare.datai AND ?poListare.dataf] + If !Empty(Nvl(poListare.nume_client,[])) + lcFiltru = lcFiltru + [ AND nume_client = ?poListare.nume_client] + Endif + + If !Empty(Nvl(poListare.nume_agent,[])) + lcFiltru = lcFiltru + [ AND nume_agent = ?poListare.nume_agent] + Endif + + If !Empty(Nvl(poListare.nume_delegat,[])) + lcFiltru = lcFiltru + [ AND nume_delegat = ?poListare.nume_delegat] + Endif + + If !Empty(Nvl(poListare.nrinmat,[])) + lcFiltru = lcFiltru + [ AND nrinmat = ?poListare.nrinmat] + Endif + poListare.csql = Strtran(lcSql,[WHERE 1=2],lcFiltru) + + ENDPROC + + PROCEDURE do_cauta_agent + Private pnIdPart,pcNumePart + lcTitlu=[ALEGETI AGENTUL] + pnIdPart=0 + pcNumePart=[] + + If caut_partener_dupa_tip(gnIdTipAgenti,lcTitlu,@pnIdPart,@pcNumePart) + poListare.id_agent = pnIdPart + poListare.nume_agent = Alltrim(pcNumePart) + Thisform.ct_opt_agent.Refresh() + Thisform.ct_opt_delegat.SetFocus() + Else + If Empty(Nvl(poListare.nume_agent,[])) + Thisform.ct_opt_agent.opt_cautare.Value=1 + Endif + Thisform.ct_opt_agent.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_cauta_client + Private pnIdPart,pcNumePart + Store 0 To pnIdPart + Store "" To pcNumePart + If cauta_client(@pnIdPart,@pcNumePart) + poListare.id_client = pnIdPart + poListare.nume_client = pcNumePart + + Thisform.ct_opt_client.Refresh() + Thisform.ct_opt_agent.SetFocus() + Else + If Empty(Nvl(poListare.nume_client,[])) + Thisform.ct_opt_client.opt_cautare.Value=1 + Endif + Thisform.ct_opt_client.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_cauta_delegat + Local loCauta + loCauta=caut_delegati() + If !Empty(loCauta.id_responsabil) + poListare.id_delegat = loCauta.id_responsabil + poListare.nume_delegat = Alltrim(loCauta.nume) + Thisform.ct_opt_delegat.Refresh() + Thisform.ct_opt_masina.SetFocus() + Else + If Empty(Nvl(poListare.nume_delegat,[])) + Thisform.ct_opt_delegat.opt_cautare.Value = 1 + Endif + Thisform.ct_opt_delegat.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_cauta_masina + locauta=caut_masina_gs() + If !Empty(locauta.id_masina) + poListare.nrinmat = Alltrim(locauta.nrinmat) + poListare.id_masina = locauta.id_masina + + Thisform.ct_opt_masina.Refresh() + Else + If Empty(Nvl(poListare.nrinmat,[])) + Thisform.ct_opt_masina.opt_cautare.Value = 1 + Endif + Thisform.ct_opt_masina.SetFocus() + Endif + + ENDPROC + + PROCEDURE do_listare + lccontrol = Upper(This.ActiveControl.BaseClass ) + If Inlist(lccontrol,"TEXTBOX","EDITBOX","COMBOBOX") + lcval=This.ActiveControl.ControlSource + &lcval=Thisform.ActiveControl.Value + Endif + + Do Case + Case Empty(Nvl(poListare.datai,{})) + amessagebox("Nu ati completat data initiala!",0+48,"Atentie") + Thisform.clb_perioada.tx_n1.SetFocus() + Return + Case Empty(Nvl(poListare.dataf,{})) + amessagebox("Nu ati completat data finala!",0+48,"Atentie") + Thisform.clb_perioada.tx_n2.SetFocus() + Return + Case Empty(Nvl(poListare.data_referinta,{})) + amessagebox("Nu ati completat data de referinta!",0+48,"Atentie") + Thisform.clb_data_referinta.SetFocus() + Return + Otherwise + With This.ct_selectie1 + .do_instructiune_sql() + lcSql = .csql + Endwith + If Empty(lcSql) + amessagebox("Nu ati ales coloane pentru selectie!",0+48,"Atentie") + Thisform.ct_selectie1.SetFocus() + Return + Else + This.do_adauga_filtru(lcSql) + Endif + Endcase + + If Used('crsraport') + Use In crsraport + Endif + *!* STRTOFILE(poListare.cSql,[c:\sql.txt]) + lnSucces = goExecutor.oExecute(poListare.csql,'crsraport') + If lnSucces < 0 + amessagebox(goExecutor.oPrelucrareEroare(),16,"Eroare") + Endif + + pcDataora = get_ora(2) + If Reccount('crsraport')<>0 + Thisform.AlwaysOnTop = .F. + Select crsraport + Report Form raport_facturat To Printer Prompt Preview + Thisform.AlwaysOnTop = .T. + Else + amessagebox("Nu exista rezultate pentru listare!",0+48,"Atentie") + Endif + + If Used('crsraport') + Use In crsraport + Endif + ENDPROC + + PROCEDURE Clb_perioada.tx_n1.Valid + *!* + ENDPROC + +ENDDEFINE diff --git a/Ferestre/fundal.sc2 b/Ferestre/fundal.sc2 new file mode 100644 index 0000000..a26c5e0 --- /dev/null +++ b/Ferestre/fundal.sc2 @@ -0,0 +1,989 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="fundal.scx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* +* +DEFINE CLASS dataenvironment AS dataenvironment + *< CLASSDATA: Baseclass="dataenvironment" Timestamp="" Scale="" Uniqueid="" ClassIcon="1" /> + + * + DataSource = .NULL. + Height = 200 + Left = 1 + Name = "Dataenvironment" + Top = 220 + Width = 520 + * + +ENDDEFINE + +DEFINE CLASS form1 AS form + *< CLASSDATA: Baseclass="form" Timestamp="" Scale="" Uniqueid="" /> + + *-- OBJECTDATA items order determines ZOrder / El orden de los items OBJECTDATA determina el ZOrder + *< OBJECTDATA: ObjPath="Label1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Text2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Image2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page5.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page5.Gridextra2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page6.Gridextra1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page6.Gridextra2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="_pgfrmbase1.Page6.Gridextra3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Image1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_utilizator" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="lb_utilizator1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine1" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine2" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Imagine4" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="cbo_sectii" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="Label3" UniqueID="" Timestamp="" /> + *< OBJECTDATA: ObjPath="but_alerta" UniqueID="" Timestamp="" /> + + * + *m: arata_meniu_fluna + *m: jurnal + *m: sectii_requery + *m: statusbarclick + *p: cverificaresetari + *p: ostatusbar + *p: _memberdata && XML Metadata for customizable properties + * + + * + AlwaysOnBottom = .T. + AutoCenter = .T. + BackColor = 255,255,255 + BorderStyle = 1 + Caption = "" + Closable = .F. + ControlBox = .F. + cverificaresetari = + DoCreate = .T. + Enabled = .T. + FillColor = 0,0,0 + HalfHeightCaption = .F. + Height = 633 + MaxButton = .F. + MinButton = .F. + Movable = .F. + Name = "Form1" + ostatusbar = .NULL. + Picture = ..\..\ + ShowTips = .T. + Width = 797 + WindowState = 2 + _memberdata = + + + + + * + + ADD OBJECT '_pgfrmbase1' AS pg_meniu_princ WITH ; + Anchor = 15, ; + ErasePage = .T., ; + Height = 575, ; + Left = 0, ; + Name = "_pgfrmbase1", ; + Top = 60, ; + Width = 800, ; + Page1.Cw1.Label_item1.Name = "Label_item1", ; + Page1.Cw1.Name = "Cw1", ; + Page1.Cw10.Label_item1.Name = "Label_item1", ; + Page1.Cw10.Name = "Cw10", ; + Page1.Cw2.Label_item1.Name = "Label_item1", ; + Page1.Cw2.Name = "Cw2", ; + Page1.Cw3.Label_item1.Name = "Label_item1", ; + Page1.Cw3.Name = "Cw3", ; + Page1.Cw4.Label_item1.Name = "Label_item1", ; + Page1.Cw4.Name = "Cw4", ; + Page1.Cw5.Label_item1.Name = "Label_item1", ; + Page1.Cw5.Name = "Cw5", ; + Page1.Cw6.Label_item1.Name = "Label_item1", ; + Page1.Cw6.Name = "Cw6", ; + Page1.Cw7.Label_item1.Name = "Label_item1", ; + Page1.Cw7.Name = "Cw7", ; + Page1.Cw8.Label_item1.Name = "Label_item1", ; + Page1.Cw8.Name = "Cw8", ; + Page1.Cw9.Label_item1.Name = "Label_item1", ; + Page1.Cw9.Name = "Cw9", ; + Page1.Name = "Page1", ; + Page1.PageOrder = 1, ; + Page1.Pict_liniuta1.Name = "Pict_liniuta1", ; + Page1.Pict_liniuta2.Name = "Pict_liniuta2", ; + Page1.Pict_meniu1.Anchor = 5, ; + Page1.Pict_meniu1.Height = 700, ; + Page1.Pict_meniu1.Left = 0, ; + Page1.Pict_meniu1.Name = "Pict_meniu1", ; + Page1.Pict_meniu1.Top = 8, ; + Page1.Pict_meniu1.Width = 200, ; + Page2.Cw1.Label_item1.Name = "Label_item1", ; + Page2.Cw1.Name = "Cw1", ; + Page2.Cw2.Label_item1.Name = "Label_item1", ; + Page2.Cw2.Name = "Cw2", ; + Page2.Cw3.Label_item1.Name = "Label_item1", ; + Page2.Cw3.Name = "Cw3", ; + Page2.Cw4.Label_item1.Name = "Label_item1", ; + Page2.Cw4.Name = "Cw4", ; + Page2.Cw5.Label_item1.Name = "Label_item1", ; + Page2.Cw5.Name = "Cw5", ; + Page2.Cw6.Label_item1.Name = "Label_item1", ; + Page2.Cw6.Name = "Cw6", ; + Page2.Cw7.Label_item1.Name = "Label_item1", ; + Page2.Cw7.Name = "Cw7", ; + Page2.Cw8.Label_item1.Name = "Label_item1", ; + Page2.Cw8.Name = "Cw8", ; + Page2.Cw9.Label_item1.Name = "Label_item1", ; + Page2.Cw9.Name = "Cw9", ; + Page2.Name = "Page2", ; + Page2.PageOrder = 4, ; + Page2.Pict_liniuta2.Name = "Pict_liniuta2", ; + Page2.Pict_meniu1.Anchor = 5, ; + Page2.Pict_meniu1.Height = 700, ; + Page2.Pict_meniu1.Name = "Pict_meniu1", ; + Page2.Pict_meniu1.Top = 10, ; + Page2.Pict_meniu1.Width = 200, ; + Page3.Cw1.Label_item1.Name = "Label_item1", ; + Page3.Cw1.Name = "Cw1", ; + Page3.Cw2.Label_item1.Name = "Label_item1", ; + Page3.Cw2.Name = "Cw2", ; + Page3.Cw3.Label_item1.Name = "Label_item1", ; + Page3.Cw3.Name = "Cw3", ; + Page3.Cw4.Label_item1.Name = "Label_item1", ; + Page3.Cw4.Name = "Cw4", ; + Page3.Name = "Page3", ; + Page3.PageOrder = 5, ; + Page3.Pict_meniu1.Anchor = 5, ; + Page3.Pict_meniu1.Height = 700, ; + Page3.Pict_meniu1.Left = 0, ; + Page3.Pict_meniu1.Name = "Pict_meniu1", ; + Page3.Pict_meniu1.Top = 8, ; + Page3.Pict_meniu1.Width = 200, ; + Page4.Cw1.Label_item1.Name = "Label_item1", ; + Page4.Cw1.Name = "Cw1", ; + Page4.Cw10.Label_item1.Name = "Label_item1", ; + Page4.Cw10.Name = "Cw10", ; + Page4.Cw11.Label_item1.Name = "Label_item1", ; + Page4.Cw11.Name = "Cw11", ; + Page4.Cw12.Label_item1.Name = "Label_item1", ; + Page4.Cw12.Name = "Cw12", ; + Page4.Cw13.Label_item1.Name = "Label_item1", ; + Page4.Cw13.Name = "Cw13", ; + Page4.Cw2.Label_item1.Name = "Label_item1", ; + Page4.Cw2.Name = "Cw2", ; + Page4.Cw3.Label_item1.Name = "Label_item1", ; + Page4.Cw3.Name = "Cw3", ; + Page4.Cw4.Label_item1.Name = "Label_item1", ; + Page4.Cw4.Name = "Cw4", ; + Page4.Cw5.Label_item1.Name = "Label_item1", ; + Page4.Cw5.Name = "Cw5", ; + Page4.Cw6.Label_item1.Name = "Label_item1", ; + Page4.Cw6.Name = "Cw6", ; + Page4.Cw7.Label_item1.Name = "Label_item1", ; + Page4.Cw7.Name = "Cw7", ; + Page4.Cw8.Label_item1.Name = "Label_item1", ; + Page4.Cw8.Name = "Cw8", ; + Page4.Cw9.Label_item1.Name = "Label_item1", ; + Page4.Cw9.Name = "Cw9", ; + Page4.Name = "Page4", ; + Page4.PageOrder = 6, ; + Page4.Pict_liniuta1.Name = "Pict_liniuta1", ; + Page4.Pict_liniuta2.Name = "Pict_liniuta2", ; + Page4.Pict_liniuta3.Name = "Pict_liniuta3", ; + Page4.Pict_liniuta4.Name = "Pict_liniuta4", ; + Page4.Pict_meniu1.Anchor = 5, ; + Page4.Pict_meniu1.Height = 700, ; + Page4.Pict_meniu1.Left = 0, ; + Page4.Pict_meniu1.Name = "Pict_meniu1", ; + Page4.Pict_meniu1.Top = 8, ; + Page4.Pict_meniu1.Width = 200, ; + Page5.Ct_comenzi1.But_copie.Name = "But_copie", ; + Page5.Ct_comenzi1.But_factura1.Name = "But_factura1", ; + Page5.Ct_comenzi1.But_listare1.Name = "But_listare1", ; + Page5.Ct_comenzi1.But_modifica1.Name = "But_modifica1", ; + Page5.Ct_comenzi1.But_nou1.Name = "But_nou1", ; + Page5.Ct_comenzi1.But_reset_criterii1.Name = "But_reset_criterii1", ; + Page5.Ct_comenzi1.But_start_criterii1.Name = "But_start_criterii1", ; + Page5.Ct_comenzi1.But_sterge1.Name = "But_sterge1", ; + Page5.Ct_comenzi1.Clb_tx_total.Lb_simplu1.Name = "Lb_simplu1", ; + Page5.Ct_comenzi1.Clb_tx_total.Left = 489, ; + Page5.Ct_comenzi1.Clb_tx_total.Name = "Clb_tx_total", ; + Page5.Ct_comenzi1.Clb_tx_total.Text_simplu1.Name = "Text_simplu1", ; + Page5.Ct_comenzi1.Clb_tx_total.Top = 471, ; + Page5.Ct_comenzi1.Cmd_executa1.Left = 125, ; + Page5.Ct_comenzi1.Cmd_executa1.Name = "Cmd_executa1", ; + Page5.Ct_comenzi1.Cmd_executa1.Top = 470, ; + Page5.Ct_comenzi1.Cmd_executa2.Left = 203, ; + Page5.Ct_comenzi1.Cmd_executa2.Name = "Cmd_executa2", ; + Page5.Ct_comenzi1.Cmd_executa2.Top = 507, ; + Page5.Ct_comenzi1.Cmd_executa3.Left = 7, ; + Page5.Ct_comenzi1.Cmd_executa3.Name = "Cmd_executa3", ; + Page5.Ct_comenzi1.Cmd_executa3.Top = 507, ; + Page5.Ct_comenzi1.Cmd_executa4.Left = 240, ; + Page5.Ct_comenzi1.Cmd_executa4.Name = "Cmd_executa4", ; + Page5.Ct_comenzi1.Cmd_executa4.Top = 470, ; + Page5.Ct_comenzi1.Cmd_select_adv1.Left = 7, ; + Page5.Ct_comenzi1.Cmd_select_adv1.Name = "Cmd_select_adv1", ; + Page5.Ct_comenzi1.Cmd_select_adv1.Top = 470, ; + Page5.Ct_comenzi1.Cmd_select_adv1.Width = 110, ; + Page5.Ct_comenzi1.Gridsort1.Name = "Gridsort1", ; + Page5.Ct_comenzi1.Height = 542, ; + Page5.Ct_comenzi1.lb_comenzi_elemente.Left = 98, ; + Page5.Ct_comenzi1.lb_comenzi_elemente.Name = "lb_comenzi_elemente", ; + Page5.Ct_comenzi1.lb_comenzi_elemente.Top = 33, ; + Page5.Ct_comenzi1.Left = 0, ; + Page5.Ct_comenzi1.Name = "Ct_comenzi1", ; + Page5.Ct_comenzi1.Top = -3, ; + Page5.Ct_comenzi1.Width = 781, ; + Page5.Ct_comenzi1._ct_controller_keypress1.Name = "_ct_controller_keypress1", ; + Page5.Ct_comenzi1._grdrow1.cAdresa_facturare.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cAdresa_facturare.Name = "cAdresa_facturare", ; + Page5.Ct_comenzi1._grdrow1.cAdresa_facturare.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.cAdresa_livrare.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cAdresa_livrare.Name = "cAdresa_livrare", ; + Page5.Ct_comenzi1._grdrow1.cAdresa_livrare.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.cAgent.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cAgent.Name = "cAgent", ; + Page5.Ct_comenzi1._grdrow1.cAgent.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.cComanda_externa.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cComanda_externa.Name = "cComanda_externa", ; + Page5.Ct_comenzi1._grdrow1.cComanda_externa.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.cDataLivrat.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cDataLivrat.Name = "cDataLivrat", ; + Page5.Ct_comenzi1._grdrow1.cDataLivrat.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.cDataora.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cDataora.Name = "cDataora", ; + Page5.Ct_comenzi1._grdrow1.cDataora.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.cData_comanda.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cData_comanda.Name = "cData_comanda", ; + Page5.Ct_comenzi1._grdrow1.cData_comanda.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.cData_livrare.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cData_livrare.Name = "cData_livrare", ; + Page5.Ct_comenzi1._grdrow1.cData_livrare.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.cDelegat.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cDelegat.Name = "cDelegat", ; + Page5.Ct_comenzi1._grdrow1.cDelegat.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.cFacturat.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cFacturat.Name = "cFacturat", ; + Page5.Ct_comenzi1._grdrow1.cFacturat._checkbox1.Alignment = 2, ; + Page5.Ct_comenzi1._grdrow1.cFacturat._checkbox1.Name = "_checkbox1", ; + Page5.Ct_comenzi1._grdrow1.cLucrare.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cLucrare.Name = "cLucrare", ; + Page5.Ct_comenzi1._grdrow1.cLucrare.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.cNrinmat.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cNrinmat.Name = "cNrinmat", ; + Page5.Ct_comenzi1._grdrow1.cNrinmat.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.cNr_comanda.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cNr_comanda.Name = "cNr_comanda", ; + Page5.Ct_comenzi1._grdrow1.cNr_comanda.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.cNr_comanda.Width = 83, ; + Page5.Ct_comenzi1._grdrow1.cNr_livrare.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cNr_livrare.Name = "cNr_livrare", ; + Page5.Ct_comenzi1._grdrow1.cNr_livrare.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.cNumar_contract.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cNumar_contract.Name = "cNumar_contract", ; + Page5.Ct_comenzi1._grdrow1.cNumar_contract.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.cNume.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cNume.Name = "cNume", ; + Page5.Ct_comenzi1._grdrow1.cNume.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.cSelectat.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cSelectat.Name = "cSelectat", ; + Page5.Ct_comenzi1._grdrow1.cSelectat._checkbox1.Alignment = 2, ; + Page5.Ct_comenzi1._grdrow1.cSelectat._checkbox1.Name = "_checkbox1", ; + Page5.Ct_comenzi1._grdrow1.cTip_comanda.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cTip_comanda.Name = "cTip_comanda", ; + Page5.Ct_comenzi1._grdrow1.cTip_comanda.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.cUtilizator.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow1.cUtilizator.Name = "cUtilizator", ; + Page5.Ct_comenzi1._grdrow1.cUtilizator.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow1.Height = 413, ; + Page5.Ct_comenzi1._grdrow1.Left = 6, ; + Page5.Ct_comenzi1._grdrow1.Name = "_grdrow1", ; + Page5.Ct_comenzi1._grdrow1.Top = 52, ; + Page5.Ct_comenzi1._grdrow1.Width = 86, ; + Page5.Ct_comenzi1._grdrow2.cCantitate.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow2.cCantitate.Name = "cCantitate", ; + Page5.Ct_comenzi1._grdrow2.cCantitate.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow2.cCodBare.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow2.cCodBare.Name = "cCodBare", ; + Page5.Ct_comenzi1._grdrow2.cCodBare.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow2.cCodmat.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow2.cCodmat.Name = "cCodmat", ; + Page5.Ct_comenzi1._grdrow2.cCodmat.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow2.cDenumire.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow2.cDenumire.Name = "cDenumire", ; + Page5.Ct_comenzi1._grdrow2.cDenumire.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow2.cNrCrt.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow2.cNrCrt.Name = "cNrCrt", ; + Page5.Ct_comenzi1._grdrow2.cNrCrt.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow2.cNumeListaPreturi.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow2.cNumeListaPreturi.Name = "cNumeListaPreturi", ; + Page5.Ct_comenzi1._grdrow2.cNumeListaPreturi.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow2.cPret.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow2.cPret.Name = "cPret", ; + Page5.Ct_comenzi1._grdrow2.cPret.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow2.cPret_cu_tva.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow2.cPret_cu_tva.Name = "cPret_cu_tva", ; + Page5.Ct_comenzi1._grdrow2.cPret_cu_tva._checkbox1.Alignment = 2, ; + Page5.Ct_comenzi1._grdrow2.cPret_cu_tva._checkbox1.Name = "_checkbox1", ; + Page5.Ct_comenzi1._grdrow2.cPTVA.Header1.Name = "Header1", ; + Page5.Ct_comenzi1._grdrow2.cPTVA.Name = "cPTVA", ; + Page5.Ct_comenzi1._grdrow2.cPTVA.Text1.Name = "Text1", ; + Page5.Ct_comenzi1._grdrow2.Height = 413, ; + Page5.Ct_comenzi1._grdrow2.Left = 95, ; + Page5.Ct_comenzi1._grdrow2.Name = "_grdrow2", ; + Page5.Ct_comenzi1._grdrow2.Top = 52, ; + Page5.Ct_comenzi1._grdrow2.Width = 685, ; + Page5.Name = "Page5", ; + Page5.PageOrder = 2, ; + Page6.Ct_lucrari_detalii1.But_listare1.Name = "But_listare1", ; + Page6.Ct_lucrari_detalii1.But_modifica1.Name = "But_modifica1", ; + Page6.Ct_lucrari_detalii1.But_nou1.Name = "But_nou1", ; + Page6.Ct_lucrari_detalii1.But_reset_criterii1.Name = "But_reset_criterii1", ; + Page6.Ct_lucrari_detalii1.But_start_criterii1.Name = "But_start_criterii1", ; + Page6.Ct_lucrari_detalii1.But_sterge1.Name = "But_sterge1", ; + Page6.Ct_lucrari_detalii1.Gridsort1.Name = "Gridsort1", ; + Page6.Ct_lucrari_detalii1.Height = 540, ; + Page6.Ct_lucrari_detalii1.lb_comenzi.Left = 9, ; + Page6.Ct_lucrari_detalii1.lb_comenzi.Name = "lb_comenzi", ; + Page6.Ct_lucrari_detalii1.lb_comenzi.Top = 352, ; + Page6.Ct_lucrari_detalii1.lb_lucrari_elemente.Left = 372, ; + Page6.Ct_lucrari_detalii1.lb_lucrari_elemente.Name = "lb_lucrari_elemente", ; + Page6.Ct_lucrari_detalii1.lb_lucrari_elemente.Top = 33, ; + Page6.Ct_lucrari_detalii1.Left = 0, ; + Page6.Ct_lucrari_detalii1.Name = "Ct_lucrari_detalii1", ; + Page6.Ct_lucrari_detalii1.Top = -1, ; + Page6.Ct_lucrari_detalii1.Width = 781, ; + Page6.Ct_lucrari_detalii1._ct_controller_keypress1.Name = "_ct_controller_keypress1", ; + Page6.Ct_lucrari_detalii1._grdrow1.cDataora.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow1.cDataora.Name = "cDataora", ; + Page6.Ct_lucrari_detalii1._grdrow1.cDataora.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow1.cData_lucrare.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow1.cData_lucrare.Name = "cData_lucrare", ; + Page6.Ct_lucrari_detalii1._grdrow1.cData_lucrare.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow1.cExecutata.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow1.cExecutata.Name = "cExecutata", ; + Page6.Ct_lucrari_detalii1._grdrow1.cExecutata._checkbox1.Alignment = 0, ; + Page6.Ct_lucrari_detalii1._grdrow1.cExecutata._checkbox1.Name = "_checkbox1", ; + Page6.Ct_lucrari_detalii1._grdrow1.cExplicatie.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow1.cExplicatie.Name = "cExplicatie", ; + Page6.Ct_lucrari_detalii1._grdrow1.cExplicatie.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow1.cInchisa.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow1.cInchisa.Name = "cInchisa", ; + Page6.Ct_lucrari_detalii1._grdrow1.cInchisa._checkbox1.Alignment = 2, ; + Page6.Ct_lucrari_detalii1._grdrow1.cInchisa._checkbox1.Name = "_checkbox1", ; + Page6.Ct_lucrari_detalii1._grdrow1.cNrord.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow1.cNrord.Name = "cNrord", ; + Page6.Ct_lucrari_detalii1._grdrow1.cNrord.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow1.cTermen_executie.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow1.cTermen_executie.Name = "cTermen_executie", ; + Page6.Ct_lucrari_detalii1._grdrow1.cTermen_executie.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow1.cUtilizator.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow1.cUtilizator.Name = "cUtilizator", ; + Page6.Ct_lucrari_detalii1._grdrow1.cUtilizator.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow1.Height = 296, ; + Page6.Ct_lucrari_detalii1._grdrow1.Left = 6, ; + Page6.Ct_lucrari_detalii1._grdrow1.Name = "_grdrow1", ; + Page6.Ct_lucrari_detalii1._grdrow1.Width = 360, ; + Page6.Ct_lucrari_detalii1._grdrow2.cData_comanda.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow2.cData_comanda.Name = "cData_comanda", ; + Page6.Ct_lucrari_detalii1._grdrow2.cData_comanda.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow2.cData_livrare.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow2.cData_livrare.Name = "cData_livrare", ; + Page6.Ct_lucrari_detalii1._grdrow2.cData_livrare.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow2.cNr_comanda.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow2.cNr_comanda.Name = "cNr_comanda", ; + Page6.Ct_lucrari_detalii1._grdrow2.cNr_comanda.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow2.cNume.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow2.cNume.Name = "cNume", ; + Page6.Ct_lucrari_detalii1._grdrow2.cNume.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow2.cTip_comanda.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow2.cTip_comanda.Name = "cTip_comanda", ; + Page6.Ct_lucrari_detalii1._grdrow2.cTip_comanda.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow2.Height = 152, ; + Page6.Ct_lucrari_detalii1._grdrow2.Left = 9, ; + Page6.Ct_lucrari_detalii1._grdrow2.Name = "_grdrow2", ; + Page6.Ct_lucrari_detalii1._grdrow2.Top = 373, ; + Page6.Ct_lucrari_detalii1._grdrow2.Width = 360, ; + Page6.Ct_lucrari_detalii1._grdrow3.cCantitate.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow3.cCantitate.Name = "cCantitate", ; + Page6.Ct_lucrari_detalii1._grdrow3.cCantitate.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow3.cCantitate2.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow3.cCantitate2.Name = "cCantitate2", ; + Page6.Ct_lucrari_detalii1._grdrow3.cCantitate2.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow3.cCodmat.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow3.cCodmat.Name = "cCodmat", ; + Page6.Ct_lucrari_detalii1._grdrow3.cCodmat.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow3.cDenumire.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow3.cDenumire.Name = "cDenumire", ; + Page6.Ct_lucrari_detalii1._grdrow3.cDenumire.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow3.cUM.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow3.cUM.Name = "cUM", ; + Page6.Ct_lucrari_detalii1._grdrow3.cUM.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow3.cUM2.Header1.Name = "Header1", ; + Page6.Ct_lucrari_detalii1._grdrow3.cUM2.Name = "cUM2", ; + Page6.Ct_lucrari_detalii1._grdrow3.cUM2.Text1.Name = "Text1", ; + Page6.Ct_lucrari_detalii1._grdrow3.Height = 480, ; + Page6.Ct_lucrari_detalii1._grdrow3.Left = 372, ; + Page6.Ct_lucrari_detalii1._grdrow3.Name = "_grdrow3", ; + Page6.Ct_lucrari_detalii1._grdrow3.Top = 53, ; + Page6.Ct_lucrari_detalii1._grdrow3.Width = 408, ; + Page6.Name = "Page6", ; + Page6.PageOrder = 3 + *< END OBJECT: ClassLib="..\clase\ofundal_facturare.vcx" BaseClass="pageframe" /> + + ADD OBJECT '_pgfrmbase1.Page5.Gridextra1' AS gridextra WITH ; + gridexpression = thisform._pgfrmbase1.page5.ct_comenzi1._grdrow1, ; + Left = 239, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 18 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT '_pgfrmbase1.Page5.Gridextra2' AS gridextra WITH ; + gridexpression = thisform._pgfrmbase1.page5.ct_comenzi1._grdrow2, ; + Left = 299, ; + Name = "Gridextra2", ; + productname = ROA, ; + Top = 18 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT '_pgfrmbase1.Page6.Gridextra1' AS gridextra WITH ; + gridexpression = thisform._pgfrmbase1.page6.ct_lucrari_detalii1._grdrow1, ; + Left = 255, ; + Name = "Gridextra1", ; + productname = ROA, ; + Top = 21 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT '_pgfrmbase1.Page6.Gridextra2' AS gridextra WITH ; + gridexpression = thisform._pgfrmbase1.page6.ct_lucrari_detalii1._grdrow2, ; + Left = 315, ; + Name = "Gridextra2", ; + productname = ROA, ; + Top = 21 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT '_pgfrmbase1.Page6.Gridextra3' AS gridextra WITH ; + gridexpression = thisform._pgfrmbase1.page6.ct_lucrari_detalii1._grdrow3, ; + Left = 367, ; + Name = "Gridextra3", ; + productname = ROA, ; + Top = 26 + *< END OBJECT: ClassLib="..\comun\utile\gridextras\gridextras.vcx" BaseClass="custom" /> + + ADD OBJECT 'but_alerta' AS _image WITH ; + BackStyle = 0, ; + Height = 32, ; + Left = 306, ; + Name = "but_alerta", ; + Picture = ..\comun\grafice\exclam.ico, ; + Top = 10, ; + Visible = .F., ; + Width = 32 + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="image" /> + + ADD OBJECT 'cbo_sectii' AS combobox WITH ; + Anchor = 8, ; + FontBold = .T., ; + FontSize = 10, ; + ForeColor = 73,74,171, ; + Height = 24, ; + ItemForeColor = 73,74,171, ; + Left = 405, ; + Name = "cbo_sectii", ; + RowSourceType = 2, ; + SelectedBackColor = 73,74,171, ; + SelectedItemBackColor = 73,74,171, ; + Style = 2, ; + ToolTipText = "Sectia folosita pentru Comenzi si Lucrari", ; + Top = 5, ; + Width = 163 + *< END OBJECT: BaseClass="combobox" /> + + ADD OBJECT 'Image1' AS image WITH ; + Anchor = 12, ; + Height = 220, ; + Left = 108, ; + Name = "Image1", ; + Picture = ..\grafice\roafacturare.bmp, ; + Stretch = 0, ; + Top = 264, ; + Width = 556 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Image2' AS image WITH ; + Anchor = 10, ; + Height = 63, ; + Left = -11, ; + Name = "Image2", ; + Picture = ..\comun\grafice\f1.jpg, ; + Stretch = 2, ; + Top = -1, ; + Width = 851 + *< END OBJECT: BaseClass="image" /> + + ADD OBJECT 'Imagine1' AS imagine WITH ; + Height = 48, ; + Left = 5, ; + Name = "Imagine1", ; + picturedown = icon_listapreturi1.png, ; + pictureup = icon_listapreturi2.png, ; + ToolTipText = "Facturare pe baza de lista de preturi", ; + Top = 1, ; + Width = 48 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine2' AS imagine WITH ; + Height = 48, ; + Left = 66, ; + Name = "Imagine2", ; + picturedown = icon_contracte1.png, ; + pictureup = icon_contracte2.png, ; + ToolTipText = "Facturare pe baza de contract", ; + Top = 1, ; + Width = 48 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine3' AS imagine WITH ; + Height = 48, ; + Left = 127, ; + Name = "Imagine3", ; + picturedown = icon_comenzi1.png, ; + pictureup = icon_comenzi2.png, ; + ToolTipText = "Facturare pe baza de comanda", ; + Top = 1, ; + Width = 48 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Imagine4' AS imagine WITH ; + Height = 48, ; + Left = 189, ; + Name = "Imagine4", ; + picturedown = icon_avize1.png, ; + pictureup = icon_avize2.png, ; + ToolTipText = "Facturare din aviz", ; + Top = 1, ; + Width = 48 + *< END OBJECT: ClassLib="..\comun\clase\ofundal.vcx" BaseClass="image" /> + + ADD OBJECT 'Label1' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Operator:", ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 17, ; + Left = 7, ; + Name = "Label1", ; + Top = 381, ; + Width = 53 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label2' AS label WITH ; + AutoSize = .T., ; + BackStyle = 0, ; + Caption = "Nivel de acces:", ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 17, ; + Left = 7, ; + Name = "Label2", ; + Top = 401, ; + Width = 85 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'Label3' AS label WITH ; + Anchor = 8, ; + BackStyle = 0, ; + Caption = "Secție", ; + FontCharSet = 238, ; + ForeColor = 255,255,255, ; + Height = 17, ; + Left = 369, ; + Name = "Label3", ; + Top = 9, ; + Width = 36 + *< END OBJECT: BaseClass="label" /> + + ADD OBJECT 'lb_utilizator' AS lb_simplu WITH ; + Anchor = 8, ; + Caption = "Operator:", ; + FontItalic = .T., ; + ForeColor = 255,255,255, ; + Left = 576, ; + Name = "lb_utilizator", ; + Top = 8 + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'lb_utilizator1' AS lb_simplu WITH ; + Anchor = 8, ; + Caption = "nume_utilizator", ; + FontBold = .T., ; + FontItalic = .T., ; + ForeColor = 255,255,255, ; + Left = 630, ; + Name = "lb_utilizator1", ; + Top = 8, ; + Visible = .F. + *< END OBJECT: ClassLib="..\comun\clase\lb.vcx" BaseClass="label" /> + + ADD OBJECT 'Text1' AS textbox WITH ; + BackStyle = 0, ; + BorderStyle = 0, ; + ControlSource = "utilizator", ; + FontBold = .T., ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 23, ; + Left = 62, ; + Name = "Text1", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 380, ; + Width = 147 + *< END OBJECT: BaseClass="textbox" /> + + ADD OBJECT 'Text2' AS textbox WITH ; + BackStyle = 0, ; + BorderStyle = 0, ; + ControlSource = "m.nivel", ; + FontBold = .T., ; + FontItalic = .T., ; + ForeColor = 0,0,128, ; + Height = 23, ; + Left = 93, ; + Name = "Text2", ; + ReadOnly = .T., ; + TabStop = .F., ; + Top = 400, ; + Width = 28 + *< END OBJECT: BaseClass="textbox" /> + + PROCEDURE Activate + *!* Local lnScrH,lnScrW + *!* lnScrW = _Screen.Width + *!* lnScrH = _Screen.Height + + *!* Thisform.image1.Top = lnScrH - Thisform.image1.Height - 50 + *!* Thisform.image1.Left = lnScrW - Thisform.image1.Width - 30 + *!* Thisform.image2.Width = lnScrW + 30 + *!* With Thisform._pgfrmbase1 + *!* .Width = lnScrW + *!* .Height = Thisform.Height-Thisform.image2.Height + *!* .page1.Pict_meniu1.Height = .Height + *!* .page2.Pict_meniu1.Height = .Height + *!* .page3.Pict_meniu1.Height = .Height + *!* .page4.Pict_meniu1.Height = .Height + *!* Endwith + + *!* If primadata + *!* primadata = .F. + + *!* Do start_firma In ostartfirma.prg + *!* verifica_drepturi2('gofundal','_pgfrmbase1') + *!* Thisform.lb_utilizator1.Caption=Alltrim(gcUserNameApp) + *!* Thisform.lb_utilizator1.Visible=.T. + + *!* Endif + + ENDPROC + + PROCEDURE arata_meniu_fluna + Do start_firma In ostartfirma.prg + verifica_drepturi('gofundal','_pgfrmbase1') + ENDPROC + + PROCEDURE jurnal + ENDPROC + + PROCEDURE KeyPress + Lparameters nKeyCode, nShiftAltCtrl + If nKeyCode==-1 &&F2 + Quit + Endif + + + + ENDPROC + + PROCEDURE RightClick + Thisform.arata_meniu_fluna() + + Thisform.sectii_requery() + ENDPROC + + PROCEDURE sectii_requery + *!* modificare v 2.0.11 + Thisform.cbo_sectii.RowSource="" + Thisform.cbo_sectii.Value="" + Thisform.cbo_sectii.Refresh() + *!* Do make_sectii_utilizator In onom_comenzi.prg + Do make_sectii_utilizator In proceduri_comune.prg + *!* modificare v 2.0.11 ^ + Select crsSectii + Go Top + gcNumeSectie = sectie + gnId_sectie = id_sectie + + lcSql = [begin pack_sesiune.set_id_sectie_comenzi(?gnId_sectie); end;] + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Endif + + Thisform.cbo_sectii.RowSource="crsSectii.sectie,id_sectie" + Thisform.cbo_sectii.Value=gcNumeSectie + Thisform.cbo_sectii.Refresh() + + *!* modificare v 2.0.11 + If Reccount('crsSectii')=0 + *!* AMESSAGEBOX('Pentru activarea paginilor "Comenzi" si "Lucrari", configurati sectiile la care aveti dreptul in' + Chr(13)+ ; + *!* 'Definirea companiei : "Entitati > Asociere entitati-sectii" (Tipul "COMENZI")!', 48, "Atentie") + This._pgfrmbase1.ActivePage = 4 && facturare + This._pgfrmbase1.page5.Enabled= .F. && comenzi + This._pgfrmbase1.page6.Enabled= .F. && lucrari + *This._pgfrmbase1.page4.Enabled = .F. + *!* For i = 1 To This._pgfrmbase1.page1.Objects.Count + *!* If Upper(This._pgfrmbase1.page1.Objects(i).Class) = [CW] + *!* This._pgfrmbase1.page1.Objects(i).dezactiveaza() + *!* Endif + *!* Endfor + Else + *!* This._pgfrmbase1.page5.Enabled= .T. + *!* This._pgfrmbase1.page6.Enabled= .T. + Do Case + Case Thisform._pgfrmbase1.ActivePage = 2 && comenzi + Thisform._pgfrmbase1.page5.Activate() + Case Thisform._pgfrmbase1.ActivePage = 3 && lucrari + Thisform._pgfrmbase1.page6.Activate() + Otherwise + *!* + Endcase + Endif + + *!* modificare v 2.0.15 + *!* gnTipUzualComanda = Val(extrage_optiuni(gcTipUzualComanda, gnId_sectie)) + *!* gnOre_inchidere = Val(extrage_optiuni(gcOre_inchidere, gnId_sectie)) + *!* gnOre_livrare = Val(extrage_optiuni(gcOre_livrare, gnId_sectie)) + *!* gnOre_executie = Val(extrage_optiuni(gcOre_executie, gnId_sectie)) + *!* gnCopiereCantitate = Val(extrage_optiuni(gcCopiereCantitate, gnId_sectie)) + *!* gnIdPoliticaPretC = Val(extrage_optiuni(gcIdPoliticaPretC, gnId_sectie)) + *!* gnIdPoliticaPret = Val(extrage_optiuni(gcIdPoliticaPret, gnId_sectie)) + *!* gnId_lista_preturi_PV = Val(extrage_optiuni(gcId_lista_preturi_PV, gnId_sectie)) + DO extrage_optiuni_firma IN update_comenzi.prg + *!* modificare v 2.0.15 ^ + *!* modificare v 2.0.11 ^ + + ENDPROC + + PROCEDURE Show + Lparameters nStyle + Local lcMesaj, llShowRezultate + *:Global primadata + DoDefault(nStyle) + Thisform.arata_meniu_fluna() + primadata = .F. + Thisform.lb_utilizator1.Caption = Alltrim(gcUserNameApp) + Thisform.lb_utilizator1.Visible = .T. + Do lansare_toolbar In oproceduri_comune.prg + Do lansare_help In oproceduri_comune.prg + + Thisform._pgfrmbase1.ActivePage = 4 && facturare + + Thisform.sectii_requery() + + *********************************************** + *** Verificare setari + lcMesaj = verifica_setari(.T.) && In oproceduri_facturare.prg + If Reccount('crsSectii') = 0 + lcMesaj = lcMesaj + 'Pentru activarea paginilor "Comenzi" si "Lucrari", configurati sectiile la care aveti dreptul in' + Chr(13)+ ; + 'Definirea companiei : "Entitati > Asociere entitati-sectii" (Tipul "COMENZI")!' + ENDIF + + This.cVerificareSetari = Nvl(m.lcMesaj, '') + If !Empty(This.cVerificareSetari) + This.but_alerta.Visible = .T. + Endif + *********************************************** + + *!* Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian + *!* Trebuie adaugata o proprietate OstatusBar la forma + *!* si o metoda statusbarclik care sa contina comanda + *!* Thisform.oStatusBar.newtooltip() + *!* + If Not Pemstatus(_Screen, "StatusBar", 5) Then + *!* 31.01.2008 TEST FARA STATUSBAR + *!* _Screen.Newobject("StatusBar","ctl32_statusbar", "ctl32_statusbar.vcx", null, 3) + _Screen.Newobject("StatusBar", "ctl32_statusbar", "ctl32_statusbar_fals.vcx", Null, 3) + *!* 31.01.2008 TEST FARA STATUSBAR ^ + Endif + Thisform.oStatusBar = _Screen.StatusBar + Thisform.oStatusBar.ctlIcon = "roastartmic.ico" + Thisform.oStatusBar.ctlMessage = _Screen.Caption + Bindevent(Thisform.oStatusBar, [ctlClick], This, [StatusBarClick]) + *!* end Modificare Pt Statusbar 20.Oct.2007 - Vasile Cristian + + * Populez comenzile + With This._pgfrmbase1.page5 + *!* .ct_comenzi1.creeaza_cursoare() + .ct_comenzi1.actualizeaza_cursoare() + + llShowRezultate = .ct_comenzi1.lShowRezultate + .ct_comenzi1.lShowRezultate = .F. && nu afisez "Nu exista rezultate" + .ct_comenzi1.but_reset_criterii1.Click() + .ct_comenzi1.lShowRezultate = m.llShowRezultate + + .ct_comenzi1._grdrow1.AfterRowColChange() + + .gridextra1.Setup() + .gridextra2.Setup() + Endwith + + * Populez lucrarile + With This._pgfrmbase1.page6 + .ct_lucrari_detalii1.actualizeaza_cursoare() + + llShowRezultate = .ct_lucrari_detalii1.lShowRezultate + .ct_lucrari_detalii1.lShowRezultate = .F. && nu afisez "Nu exista rezultate" + .ct_lucrari_detalii1.but_reset_criterii1.Click() + .ct_lucrari_detalii1.lShowRezultate = m.llShowRezultate + + .ct_lucrari_detalii1._grdrow1.AfterRowColChange() + + .gridextra1.Setup() + .gridextra2.Setup() + .gridextra3.Setup() + Endwith + + + This.WindowState = 2 + ENDPROC + + PROCEDURE statusbarclick + Thisform.oStatusBar.newtooltip() + + ENDPROC + + PROCEDURE but_alerta.Click + AMESSAGEBOX(Thisform.cVerificareSetari,0+48,_Screen.Caption) + ENDPROC + + PROCEDURE but_alerta.MouseEnter + LPARAMETERS nButton, nShift, nXCoord, nYCoord + this.ToolTipText = Thisform.cVerificareSetari + ENDPROC + + PROCEDURE cbo_sectii.InteractiveChange + Select crsSectii + gnId_sectie = id_sectie + gcNumeSectie = Alltrim(sectie) + + lcSql = [begin pack_sesiune.set_id_sectie_comenzi(?gnId_sectie); end;] + lnSucces = goExecutor.oExecute(lcSql) + If lnSucces < 0 + AMESSAGEBOX(goExecutor.cEroare,0+16,"Eroare") + Endif + + *!* modificare v 2.0.15 + *!* gnTipUzualComanda = Val(extrage_optiuni(gcTipUzualComanda, gnId_sectie)) + *!* gnOre_inchidere = Val(extrage_optiuni(gcOre_inchidere, gnId_sectie)) + *!* gnOre_livrare = Val(extrage_optiuni(gcOre_livrare, gnId_sectie)) + *!* gnOre_executie = Val(extrage_optiuni(gcOre_executie, gnId_sectie)) + *!* gnCopiereCantitate = Val(extrage_optiuni(gcCopiereCantitate, gnId_sectie)) + *!* gnIdPoliticaPretC = Val(extrage_optiuni(gcIdPoliticaPretC, gnId_sectie)) + *!* gnIdPoliticaPret = Val(extrage_optiuni(gcIdPoliticaPret, gnId_sectie)) + *!* gnId_lista_preturi_PV = Val(extrage_optiuni(gcId_lista_preturi_PV, gnId_sectie)) + extrage_optiuni_firma() + *!* modificare v 2.0.15 ^ + Do Case + Case Thisform._pgfrmbase1.ActivePage = 2 + Thisform._pgfrmbase1.page2.Activate() + Case Thisform._pgfrmbase1.ActivePage = 3 + Thisform._pgfrmbase1.page3.Activate() + Otherwise + *!* + Endcase + + ENDPROC + + PROCEDURE Image1.RightClick + Thisform.arata_meniu_fluna() + ENDPROC + + PROCEDURE Imagine1.do_actiune + DO facturare_lista_de_preturi IN oproceduri_facturare.prg + ENDPROC + + PROCEDURE Imagine2.do_actiune + DO facturare_contracte IN oproceduri_facturare.prg + ENDPROC + + PROCEDURE Imagine3.do_actiune + DO facturare_comenzi IN oproceduri_facturare.prg + ENDPROC + + PROCEDURE Imagine4.do_actiune + DO facturare_avize IN oproceduri_facturare.prg + ENDPROC + + PROCEDURE lb_utilizator.RightClick + Thisform.arata_meniu_fluna() + ENDPROC + + PROCEDURE lb_utilizator1.RightClick + Thisform.arata_meniu_fluna() + ENDPROC + + PROCEDURE _pgfrmbase1.Page1.Activate + Thisform.image1.Visible=.T. + DODEFAULT() + ENDPROC + + PROCEDURE _pgfrmbase1.Page1.RightClick + Thisform.arata_meniu_fluna() + ENDPROC + + PROCEDURE _pgfrmbase1.Page2.Activate + Thisform.image1.Visible=.T. + DODEFAULT() + ENDPROC + + PROCEDURE _pgfrmbase1.Page2.RightClick + Thisform.arata_meniu_fluna() + ENDPROC + + PROCEDURE _pgfrmbase1.Page3.Activate + Thisform.image1.Visible=.T. + DODEFAULT() + ENDPROC + + PROCEDURE _pgfrmbase1.Page3.RightClick + Thisform.arata_meniu_fluna() + ENDPROC + + PROCEDURE _pgfrmbase1.Page4.Activate + Thisform.image1.Visible=.T. + DODEFAULT() + ENDPROC + + PROCEDURE _pgfrmbase1.Page4.RightClick + Thisform.arata_meniu_fluna() + ENDPROC + + PROCEDURE _pgfrmbase1.Page5.Activate + Thisform.image1.Visible=.F. + DODEFAULT() + ENDPROC + + PROCEDURE _pgfrmbase1.Page6.Activate + Thisform.image1.Visible=.F. + DODEFAULT() + ENDPROC + +ENDDEFINE diff --git a/Formulare/Fruvimed_nepersonalizate/Arhive_tipizate/0407_usr_aviz.fr2 b/Formulare/Fruvimed_nepersonalizate/Arhive_tipizate/0407_usr_aviz.fr2 new file mode 100644 index 0000000..d1bfe2b --- /dev/null +++ b/Formulare/Fruvimed_nepersonalizate/Arhive_tipizate/0407_usr_aviz.fr2 @@ -0,0 +1,554 @@ +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +* (EN) AUTOGENERATED - ATTENTION!! - NOT INTENDED FOR EXECUTION!! USE ONLY FOR MERGING CHANGES AND STORING WITH SCM TOOLS!! +*-------------------------------------------------------------------------------------------------------------------------------------------------------- +*< FOXBIN2PRG: Version="1.21" SourceFile="0407_usr_aviz.frx" CPID="1252" /> (Solo para binarios VFP 9 / Only for VFP 9 binaries) +* + + + + +